Erreur de compilation malgré que le code est juste

pegazus -
yusefbasraoui Messages postés 21 Date d'inscription Statut Membre Dernière intervention - 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 ,

Afficher la suite

A voir également:

Erreur de compilation malgré que le code est juste
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 715

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

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 17277 Date d'inscription Statut Membre Dernière intervention 1 715 > pegazus

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

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

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

pegazus

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

Panne T32 sur telecommande Orange

Erreur 3005 sur France TV

Votre réponse

Discussions similaires