bonjour a tous voila cela fait longtemps que je n'ai pas utiliser vb
et la j'ai un petit probleme j'ai une base de donnée access
voila une partie du code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim consultdos As Recordset
Dim consuldos, strdos, strdos2 As String
Set db = OpenDatabase("prodect.mdb")
Set consultdos = db.OpenRecordset("select * from [intervention]")
 
consuldos = InputBox("Quel est le numéro du dossie concerné ?", "SAISIE D'UN NUMERO DE DOSSIER", "")
 
strdos = consuldos
strdos = "[numinter]= '" & consuldos & "'" consultdos.FindFirst str(strdos)
et à l'execution j'ai une erreur detype 13 imcopatibilité
c'est un champ sur access de type texte et la valeur attribué est un numérique je ne me rappel plus pouvez vous m'aider merci