DCount Fehlermeldung

[dfone]

Hall, ich hab mir im Forum die DCount Funktion rausgesucht.
Ich möchte damit verhindern, daß Adressen doppelt gespeichert werden.

Jedoch bringt diese bei mir die Fehlermeldung: "Datentypen in Kriterienausdruck unverträglich".

Es wird sicherlich daran liegen, daß ein Feld ein Fremdschlüssel ist und das andere ein Textfeld.

Dem Formular liegt die Tabelle tblAdressen mit:

Adress_ID, PLZ_ID_F (als Fremdschlüssel), Strasse und ZusatzInfo.

PLZ_ID_F kommt von der Tabelle tblPLZ dort mit PLZ_ID, Postleitzahl und Ort.

...zugrunde.

Weiterhin hab ich per Assistent eine Speicherschaltfläche erstellt und dann den Code für DCount dort eingefügt und angepasst:

Private Sub Datensatz_speichern_Click()
On Error GoTo Err_Datensatz_speichern_Click

If DCount("*", "tblAdressen", "[PLZ_ID_F]='" & Me![PLZ_ID_F] & "' AND [Strasse]='" & Me![Strasse] & "'") > 0 Then
Cancel = True
MsgBox "Die Adresse ist schon vorhanden!"
Else

    DoCmd.RunCommand acCmdSaveRecord
   
End If

Exit_Datensatz_speichern_Click:
    Exit Sub

Err_Datensatz_speichern_Click:
    MsgBox Err.Description
    Resume Exit_Datensatz_speichern_Click
   
End Sub

Wo liegt der Fehler im Code?

Vielen Dank, Mfg Dirk

[bahasu]

Hi,

an welcher Stelle tritt der Fehler auf?

Vielleicht ist es auch schon mit:
If DCount("*", "tblAdressen", "[PLZ_ID_F]=" & Me![PLZ_ID_F] & " AND [Strasse]='" & Me![Strasse] & "'") > 0 Then

also ohne '  ok

Harald

[dfone]

ich probiere es mal

[dfone]

Danke es funtioniert...

[dfone]

Achso habs glatt vergessen...

wie kann ich diese funktion um das Feld Zusatzinfo erweitern?

[bahasu]

Hi,

soll das bei der Bedingung mit rein?

Schwebt Dir so etwas vor?
If DCount("*", "tblAdressen", "[PLZ_ID_F]=" & Me![PLZ_ID_F] & " AND [Strasse]='" & Me![Strasse] & "' and Zusatzinfo = '" & Me!Zusatzinfo & "'") > 0 Then

Fragender Gruß
Harald

[dfone]

Ja genau das schwebte so rum ;-)

danke
mfg dirk