Office: (Office 2010) mit String aus Formular Übereinstimmung in Abfrage prüfen

Hallo liebe Mitglieder
Ich verzweifle wieder einmal fast und wende mich an Euch.
Ich möchte gern aus einem Formular heraus (Click) prüfen, ob übereinstimmende Datensätze in einer Abfrage vorhanden sind oder nicht.
Das versuche ich so. Leider lande ich immer hinter der Else... Unabhängig davon ob ich eine Übereinstimmung hab oder nicht. Was mache ich hier falsch?

Code:

Private Sub btn_MailVersand2_Click()

Dim strDatei As String, LU As Long
Dim strInhalt As String
Dim olItem As Object, olApp As Object
Dim strMail As String
Dim WsShell
Dim intText As Integer
Dim temp As String


temp = Forms!frm_start!zdf_MaNr.Value
 

Debug.Print temp   ' mit Strg+G wird das Direkfenster aufgerufen
 
      

If DCount("*", "abfrage2", zdf_MaNr.Value) = temp Then


MsgBox "Übereinstimmung"
'spring nach unten

Else

MsgBox "Keine Übereinstimmung"
'jetzt mach etwas anderes

End If
'und weiter geht es
      
          

 

Hallo,
die Verwendung der DCount ist nicht korrekt. Schau Dir mal die Beispiele hier an:
DCount-Funktion - Microsoft-Support

Du gibst einen Kriterienausdruck an, der keinen Operator enthält und somit wohl immer die Gesamtzahl der Datensätze wiedergibt.

 

Ach ja stimmt. Da war mal was.

Aber wenn ich es abändere bleibts dabei. Obwohl in Abfrage2 nur ein Datensatz angezeigt wird und dieser mit dem Wert "temp" (21) laut Direktfenster mit dem Wert im Formular übereinstimmt.

Wie könnte denn die Anweisung verändert werden, damit die Übereinstimmung festgestellt werden kann?

Code:

If "abfrage2.zdf_MaNr" = temp Then


MsgBox "Übereinstimmung"
'spring nach unten

Else
MsgBox "Keine Übereinstimmung"
'jetzt mach etwas anderes

End If
'und weiter geht es

So leider auch nicht.

 

Code:

temp = Forms!frm_start!zdf_MaNr

If DCount("*", "abfrage2", "zdf_MaNr = " & temp ) > 0 Then
      MsgBox "mind 1 Übereinstimmung"
      'spring nach unten
Else
     MsgBox "Keine Übereinstimmung"
     'jetzt mach etwas anderes
End If
'und weiter geht es

So, wenn temp eine Zahl ist. Wenn es ein String ist:

Code:

DCount("*", "abfrage2", "zdf_MaNr = '" & temp & "'")  > 0

 

Guten Morgen
Es ist eine Zahlenwert. Wow. Das funktioniert super.
Vielen Dank für die Unterstützung!