Probléme avec une base de donnée

Question

Voila j’ai une base de donnée Access avec plusieurs tables qui seront appelées en fonction d’un choix que j’aurais fais précédemment et  je veux utiliser un seul objet « Data »

Voici le code :

Private Sub sauver_Click()
If (Combo1.Text = "Minimes Garçon") Then
    Data1.RecordSource = "cmg"
    save
End If

cmg est ma table

save est une fonction

Function save()
Data1.Recordset.AddNew
Data1.Recordset("Nom") = Nom.Text
Data1.Recordset("Prénom") = Prénom.Text
Data1.Recordset("Club") = Club.Text
Data1.Recordset.Update
Data1.Recordset.MoveFirst
End Function


Je pense que l’erreur vient de 

Data1.RecordSource = "cmg"


Avez-vous la solution ?
Merci d’avance.

inthecorner · Answer

Data1.RecordSource = "select Nom, prénom, club FROM cmg"

Amitiés

mango54 · Answer

Merci "inthecorner" mais ça ne fonctionne pas j'ai toujours le message d'erreur :
Erreur d'exécution '91'
Variable objet ou variable bloc With non définie

et dans la fonction save j'ai
Data1.Recordset.AddNew

de surligner en jaune.

mango54 · Answer

J'ai trouvé la solution il suffisait de Rafraîchir Data1 avec
Data1.Refresh


Private Sub sauver_Click()
If (Combo1.Text = "Minimes Garçon") Then
    Data1.RecordSource = "cmg"
    Data1.Refresh
    save
End If

Probléme avec une base de donnée

3 réponses

Discussions similaires