Hallo,
ich habe versucht eine And-Suchfunktion in Access zu programmieren:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

Private Sub Suchen_Click()
On Error GoTo Err_Suchen_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = ""
 
    stDocName = "Personen"
    VName.SetFocus
    If VName.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Vorname]= '" & Me![VName] & "' and "
    End If
    Me.SetFocus
    NName.SetFocus
    If NName.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Nachname]= '" & Me![NName] & "' and"
    End If
    Me.SetFocus
    Strasse.SetFocus
    If Strasse.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Strasse]= '" & Me![Strasse] & "' and"
    End If
    HNr.SetFocus
    If HNr.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Hausnummer]= '" & Me![HNr] & "' and"
    End If
    PLZ.SetFocus
    If PLZ.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[PLZ]= '" & Me![PLZ] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    Geburtsdatum.SetFocus
    If Geburtsdatum.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Geburtsdatum]= '" & Me![Geburtsdatum] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    GroesseVon.SetFocus
    If GroesseVon.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Groesse] >= '" & Me![GroesseVon] & "' and"
    End If
    Me.SetFocus
    '###verursacht Fehler###
    GroesseBis.SetFocus
    If GroesseBis.Text <> "" Then
        'stLinkCriteria = stLinkCriteria & "[Groesse] <= '" & Me![GroesseBis] & "' and"
    End If
    Me.SetFocus
    Geschlecht.SetFocus
    If Geschlecht.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Geschlecht]= '" & Me![Geschlecht] & "' and"
    End If
    Me.SetFocus
    Kategorie.SetFocus
    If Kategorie.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Kategorie]= '" & Me![Kategorie] & "' and"
    End If
    Me.SetFocus
    Augenfarbe.SetFocus
    If Augenfarbe.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Augenfarbe]= '" & Me![Augenfarbe] & "' and"
    End If
    Me.SetFocus
    Haarfarbe.SetFocus
    If Haarfarbe.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[Haarfarbe]= '" & Me![Haarfarbe] & "' and"
    End If
    Me.SetFocus
    '###verurschact Fehler###
    IDNR.SetFocus
    If IDNR.Text <> "" Then
        stLinkCriteria = stLinkCriteria & "[ID]= '" & Me![IDNR] & "' and"
    End If
    Me.SetFocus
    If stLinkCriteria = "" Then
        MsgBox ("Sie haben kein Kriterium eingegeben")
        GoTo Exit_Suchen_Click
    End If
    stLinkCriteria = stLinkCriteria & "[ID] > 0"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Suchen_Click:
    Exit Sub
 
Err_Suchen_Click:
    MsgBox Err.Description
    Resume Exit_Suchen_Click
    
End Sub
Leider tritt dabei folgender Fehler ein:
Die Aktion OpenForm wurde abgebrochen.
Was ist der Fehler?
Vielen Dank für die Antwort schon im vorraus,
---
Anton S.