Sub Auftrag_suchen()
Dim strSQL As String
Dim Jahr   As Integer
 
On Error GoTo err
    'anbindung_infordatenbank
 
    If Me.mnu_Jahr.Checked = True Then
        Jahr = Format(Date, "yy")
    ElseIf Me.mnu_letztesJahr.Checked = True Then
        Jahr = Format(Date, "yy") - 1
    End If
 
    strSQL = "Select distinct fbh.anr ,fbh.mnr as KDNr ,fbh.ktxt ,fba.mnr" & _
      ",fba.ktxt as bez" _
        & " from infor.relfb fbh,infor.relfb fba" _
        & " where fbh.anr=fba.anr and fbh.saext='H' and fba.saext='M' and" & _
        "fbh.anr like 'PAA" & Jahr & "%'"
 
 
    Set ARS = New ADODB.Recordset
    'ARS.Open strSQL, cn, adOpenKeyset, adLockReadOnly
    ARS.CursorLocation = adUseClient
    ARS.CursorType = adOpenKeyset
    ARS.LockType = adLockReadOnly
 
    ARS.Open strSQL, cn, , , adCmdText

Wer aufhört sich zu verbessern, hört auf gut zu sein.

Beitrag wurde zuletzt am 05.03.12 um 10:42:26 editiert.