VBA/Access Fermé

Question

Bonjour,

A l'aide d'un formulaire j'aimerais remplir ma base de données.
J'ai crée pour cela une méthode afin que je clique sur le boutton, cela m'ajoute une ligne dans ma base.

Voici le code en question : 

Private Sub Ajouter_Enreg_Click()
On Error GoTo Err_Ajouter_Enreg_Click

'####################################################################################
'                                  Button Ajout                                     '
'####################################################################################
    'DoCmd.GoToRecord , , acNewRec
    
initADO

Dim a, b
Dim connect_user

connect_user = Environ("Username")

a = InputBox("Veuillez entrer la référence du dossier", "Référence du Dossier")
b = InputBox("Veuillez entrer la date du dossier", "Date du Dossier")

rst.Open , db

rst.AddNew

rst("Référence Dossier") = a
rst("Identifiant Utilisateur") = connect_user
rst("Date Dossier") = b

rst.Update

Exit_Ajouter_Enreg_Click:
    Exit Sub

Err_Ajouter_Enreg_Click:
    MsgBox err.Description
    Resume Exit_Ajouter_Enreg_Click
    
End Sub

Cela me retourne : "Aucun texte de commande n'a été défini pour l'objet de commande".

Si quelqu'un a une idée du comment ^^

RailBird · Answer

Private Sub Ajouter_Enreg_Click()
On Error GoTo Err_Ajouter_Enreg_Click

'####################################################################################
'                                  Button Ajout                                     '
'####################################################################################
    'DoCmd.GoToRecord , , acNewRec
    
initADO

Dim a, b
Dim connect_user

connect_user = Environ("Username")

a = InputBox("Veuillez entrer la référence du dossier", "Référence du Dossier")
b = InputBox("Veuillez entrer la date du dossier", "Date du Dossier")


Set db = CurrentProject.Connection
rst.Open "Backoffice", db, adOpenDynamic, adLockOptimistic
rst.AddNew

rst("Référence Dossier") = a
rst("Identifiant Utilisateur") = connect_user
rst("Date Dossier") = b

rst.Update

Exit_Ajouter_Enreg_Click:
    Exit Sub

Err_Ajouter_Enreg_Click:
    MsgBox err.Description
    Resume Exit_Ajouter_Enreg_Click
    
End Sub


J'ai trouvé moi-même le problème, j'ouvre la db en lecture seule donc impossible d'y écrire ^^
Cdlt

VBA/Access

1 réponse

Discussions similaires