Discussion :

[BERRACHED SAID]

Bonjour le Forum et excellente journée

Voila ça fait plus de 2 jours qu'une erreur me bloque "Type de donnée incompatible dans l'expression du Critère" j'ai tout essayé mais rien a faire voici le code si quelqu'un aurait la gentillesse de me délivrer et de localiser cette erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
Dim delta As String
 
Private Sub Command1_Click()
On Error Resume Next
Dim rs As String
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.jet.OLEDB.3.51"
conn.ConnectionString = App.Path & "\dbRente.mdb"
conn.Open
Set rsIdentif = New ADODB.Recordset
rs = "Select * from Identif where [NumEregist]=" & (txtNr.Text)
rsIdentif.Open rs, conn, adOpenKeyset, adLockOptimistic, adCmdText
If txtNom.Text <> "" Or txtPrenom.Text <> "" Then
rsIdentif.AddNew
rsIdentif!NumEregist = txtNr.Text
rsIdentif!Nom = txtNom.Text
rsIdentif!Prenom = txtPrenom.Text
rsIdentif!DateNaissance = txtNaissance.Text
rsIdentif!DateAccident = txtAccident.Text
rsIdentif!Adresse = txtAdresse.Text
rsIdentif!Rente = txtRente.Text
rsIdentif!Employeur = txtEmployeur.Text
rsIdentif!Benificiaire = Combo1
rsIdentif!Nature = Combo2
rsIdentif!MontantAnnuel = txtMannuel.Text
rsIdentif!TauxIPP = txtTauxIpp.Text
rsIdentif!photo = Ima2.Picture
If txtImg = "" Then
Ima2.Picture = LoadPicture(App.Path & "\anonymous.jpg")
Else
Ima2.Picture = LoadPicture("" & txtImg & "")
End If
     delta = Ima2.Width / Ima2.Height
            'on fixe la largeur de l'image1 à sa taille maximale
            Ima2.Width = 2300
rsIdentif.Update
Else
MsgBox ("Entrer le Nom, Prenom et adresse s´il vous plait!")
End If
Unload Me
Me.Show
End Sub

merci d'avance les amis

[sebnantes]

Salut

As-tu placer des points d'arrêt afin de connaître la ligne qui bug ?

[BERRACHED SAID]

Bonjour Sebnante

elle bug a ce Niveau du code

Code :

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

rsIdentif.Open rs, conn, adOpenKeyset, adLockOptimistic, adCmdText

merci

[sebnantes]

Donc tu as la réponse à ton problème

Le message que tu as, t'explique que l'une des variables a un type que la procédure Open ne reconnaît pas. A toi de trouver laquelle ^^

[BERRACHED SAID]

Salut,Sebnantes

je crois que cette erreur est provoqué lors de l'intégration du textbox de la photo parce que dans la base des données le champ de la photo est formaté en Objet Ole il va falloir formaté le textbox au format adéquate.

ou bien Acces 97 n'accepte pas les photo ?

parce que quand j'enlève la tranche du code relatif a la photo ça marche très bien
reste a savoir comment contourner ce problème, je tiens a conserver la totalité du code

Merci