Discussion :

[lumbroso]

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

[ucfoutu]

Bonjour,

Voir Val dans ton aide en ligne et utliser le résultat sans guillemets

[francky57]

essaye cstr pour convertir ton champs en string
ou cint pour le convertir en integer

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim consuldos, strdos, strdos2 As String

attention en VB, chaque variables doit avoir son As.
consuldos et strdos sont considérés comme Variant, donc au moment de leur utilisation, VB attribu au mieux, dans ton cas, en numerique, alors que ton champ et de type texte donc pour VB String.
Comme le dit francky57, Cstr(consuldos), semble être une solution qui devrait fonctionner.
Je ne comprend pas pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strdos = consuldos
strdos = "[numinter]= '" & consuldos & "'" consultdos.FindFirst str(strdos)

je te propose ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim consultdos As Recordset
Dim consuldos As String, strdos As String, 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", "")
 
If IsNumeric(consuldos) = True Then
 strdos = "[numinter]= '" & consuldos & "'"
 consultdos.FindFirst strdos
 Else
 'pas numerique
End If

Tu dis si sa fonctionne