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
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
ich probiere es mal
Danke es funtioniert...
Achso habs glatt vergessen...
wie kann ich diese funktion um das Feld Zusatzinfo erweitern?
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
Ja genau das schwebte so rum ;-)
danke
mfg dirk