Erreur de compilation malgré que le code est juste
Bonjour,
je eu un erreur 3464 """ type de donnéeest incompatible avec l'expression du critére.
le champ N°ID est de type numérique, lorsque je converte le champ en type texte le code fonctionne
qu'est que je dois faire
merci grave d m'aidez ,
je eu un erreur 3464 """ type de donnéeest incompatible avec l'expression du critére.
le champ N°ID est de type numérique, lorsque je converte le champ en type texte le code fonctionne
qu'est que je dois faire
merci grave d m'aidez ,
1 réponse
-
Bonjour,
Si cette donnee est saisie dans un formulaire, c'est une chaine de caracteres qu'il fout convertir en numerique exemple: MonChampSaisie="123" convertion: cint(MonChampSaisie)-
j'ai rien pigé
oui dans un fourmulaire
showw me voila mon code
Private Sub Commande2_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Naissant", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "N°ID = '" & Me.N°ID & "'"
If rs.NoMatch = True Then
MsgBox ("dommage")
Else
MsgBox ("je suis là")
End If
End Sub -
@pegazusRe,
Private Sub Commande2_Click() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Naissant", dbOpenSnapshot, dbReadOnly) rs.FindFirst "N°ID = '" & CInt(Me.N°ID) & "'" If rs.NoMatch = True Then MsgBox ("dommage") Else MsgBox ("je suis là") End If End Sub
si plus de 32767 enregistrements alorsCLng(Me.N°ID)
-
-
-
hey brooow
u ve made small mistake
voila
Private Sub Commande2_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Naissant", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "CInt(N°ID) = '" & Me.N°ID & "'"
If rs.NoMatch = True Then
MsgBox ("dommage")
Else
MsgBox ("je suis là")
End If
End Sub
merci troooo broooow
-
