Erreur de compilation malgré que le code est juste

Fermé

pegazus - 7 janv. 2016 à 13:50
yusefbasraoui Messages postés 21 Date d'inscription dimanche 29 mars 2015 Statut Membre Dernière intervention 1 décembre 2016 - 12 janv. 2016 à 21:59

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 ,

A voir également:

Erreur de compilation malgré que le code est juste
Erreur 0x80070643 - Accueil - Windows
Le code ascii - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows

1 réponse

Réponse 1 / 1

f894009 Messages postés 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
7 janv. 2016 à 14:02

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)

pegazus
7 janv. 2016 à 14:17

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

f894009 Messages postés 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712 > pegazus
Modifié par f894009 le 7/01/2016 à 14:25

Re,

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 alors

CLng(Me.N°ID)

pegazus
7 janv. 2016 à 14:33

re
:( le mmem prblm
j'ai une table naissant
et un fourmulaire de vérification par n°ID
j ai ajouter une zone texte etc...
le mm prbl frere

pegazus
7 janv. 2016 à 14:38

le champ dans la table est déja de type numérique
mais le champ de saisie dans le formulaire....

pegazus
7 janv. 2016 à 14:42

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

Discussions similaires

Problème de décodeur TV Bouygues Telecom

Orange - Erreur P01 Netflix

code ascii

Panne T32 sur telecommande Orange