Syntaxfehler AND Funktion

[I985]

Hallo zusammen,

ich versuche ein RecordSet zu erstellen, in dem nach 2 Parametern gesucht wird. Dabei handelt es sich um einen String- (SN) und einen Integerwert (P). Einzeln funktioniert dies jedoch als AND-Verknüpfung nicht. Die Fehlermeldung lautet: Typenunverträglichkeit

Kann da mal jemand einen Blick drauf werfen!? Ich finde den Fehler nicht... 

Code [Auswählen] Erweitern


Private Sub Form_AfterUpdate()
Dim t_min As Double
Dim SN As String
Dim P As Integer

SN = Me.Sachnummer
P = Me.Punkt

t_min = 99

Dim db As DAO.Database
Set db = CurrentDb
With CurrentDb().OpenRecordset("SELECT Vorgaben_Messwerte_SZV.Sachnummer, Vorgaben_Messwerte_SZV.Punkt, Vorgaben_Messwerte_SZV.T_min2 FROM Vorgaben_Messwerte_SZV WHERE Sachnummer='" & SN & "'" And "Punkt= P")
    .Edit
    .Fields("t_min2") = t_min
    .Update
     
    db.Close
    Set db = Nothing

End With
End Sub


[bahasu]

Hi,

was passiert mit:
With CurrentDb().OpenRecordset("SELECT Vorgaben_Messwerte_SZV.Sachnummer, Vorgaben_Messwerte_SZV.Punkt, Vorgaben_Messwerte_SZV.T_min2 FROM Vorgaben_Messwerte_SZV WHERE Sachnummer='" & SN & "' And "Punkt= " & me.Punkt)

Harald

[MzKlMu]

Hallo,
beide Variablen sind überflüssig, Du kannst Dich direkt auf die Formularfelder beziehen.

Code [Auswählen] Erweitern

... WHERE Sachnummer='" & Me.Sachnummer & "' And Punkt= " & Me.Punkt)

[I985]

Vielen Dank, hat funktioniert! Die Variablen habe ich auch wieder entfernt. Das war nur ein Test ob es evtl. so funktioniert. THX!