Problème insertion variable dans une tableà partir du code vba du bouton ajouterRésolu

Question

Bonjour à tous j'ai un problème avec l'insertion d'une variable dans une table à partir du code vba du bouton ajouter du formulaire:

Private Sub Ajouter_Dossier_Click()

        Dim requete As String
        Dim date1 As Date
       Dim date2 As Date
        date1= DateAdd("d", 75, date_Entree1.Value)
        date2 = DateAdd("d", 150, date_Entree1.Value) 
   
        requete = "INSERT INTO DOSSIERS (id,nom_Dossier,date_Entree,date1,date2) VALUES (id1.Value, nom_Dossier1.Value, date_Entree1.Value,date1, date2)"

        MsgBox requete
        MsgBox date1
        MsgBox date2
        DoCmd.RunSQL requete         
        Me.Undo
        Me.Refresh
  
    Else
        Exit Sub
    End If
End Sub

Dans le formulaire on sélectionne un id dans une liste ensuite on  un nom de dossier et pour finir la date d'entree et on clique sur le bouton ajouter.

le code créer une date1 = à la date d'entree + 75 jours
                           date2= àla date d'entree + 150 jours
et puis en suite on l'insère l'id, le nom de dossier, la date d'entree, la date1 et la date 2 dans un table DOSSIERS

Mon problème, c'est que je n'arrive pas à insérer date1 et date2. Acces me demande de les entrer.
Par contre j'arrive à les afficher avec MsgBox.

Merci de m'aider

Renfield · Accepted Answer

requete = "INSERT INTO `DOSSIERS` (`id`, `nom_Dossier`, `date_Entree`, `date1`, `date2`) VALUES (" & id1.Value & ", '" & nom_Dossier1.Value & "', #" & Format$(date_Entree1.Value, "MM\/DD\/YYYY") & "#, #" & Format$(date1, "MM\/DD\/YYYY") & "#, #" & Format$(date2, "MM\/DD\/YYYY") & "# )"

Renfield · Answer

cette question précise est posée au moins 10 fois par semaines...

au bas mot

yokulan · Answer

merci Renfield

Problème insertion variable dans une tableà partir du code vba du bouton ajouter

3 réponses

Votre réponse

Discussions similaires