Discussion :

[thunderpat]

j'ai un problème de table avec vb
j'ai crée sur access97 une deuxieme table son nom c'est Tbljournal2 pour mon programme vb voici ce que j'ai mit pour la sauvegarde.
l'erreur c'est qu'il ne reconnait pas la table

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
If b > 0 Then
    With Adojournal2.Recordset
             .AddNew
             !Utilisateurs = CmbUtilisateurs.Text
             !numéro_de_commande = TxtNumComm.Text
             !Date = Date
             !Heure = Time
             !tension_desirée = TxtTension.Text
             !tension_obtenue = LblAffichage.Caption
             !Unité = CmbUnité.Text
             If txtremarques.Text = "" Then
                GoTo rienfaire
            Else
             !REMARQUES = txtremarques.Text
            End If
rienfaire:
             .Update
             .Save
             .Requery
    End With

[La Praline]

Bonjour,

La question que je te poserais conerne les déclarations de ta tables... et de ta base de données...

Si il ne reconnait pas ta table c'est peut être parce qu'elle est mal déclarée...
Je pourrais en être sûr si tu avais précisé où le programme te renvois lorsqu'il retourne l'erreur...

Bref tout ça pour te demander de poster le début de ton code qui contient surement l'erreur...

Cordialement

[thunderpat]

il me dit variable not defined
c adojournal2 qui est selectionné

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
If b > 0 Then
    With Adojournal2.Recordset
             .AddNew
             !Utilisateurs = CmbUtilisateurs.Text
             !numéro_de_commande = TxtNumComm.Text
             !Date = Date
             !Heure = Time
             !tension_desirée = TxtTension.Text
             !tension_obtenue = LblAffichage.Caption
             !Unité = CmbUnité.Text
             If txtremarques.Text = "" Then
                GoTo rienfaire
            Else
             !REMARQUES = txtremarques.Text
            End If
rienfaire:
             .Update
             .Save
             .Requery
    End With

[thunderpat]

je ne sais pas comment la déclarer

[zazaraignée]

qu'utilises-tu pour faire la connexion à ta base de données ?

[La Praline]

En effet Zaza, ton Adojournal devrait être un control ADODC que tu as placé sur ta form...