Posez votre question Signaler

Problème insertion variable dans une tableà partir du code vba du bouton ajouter [Résolu]

Messages postés
40
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
31 juillet 2012
 - - Dernière réponse : yokulan
Messages postés
40
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
31 juillet 2012
 - 25 avril 2008 à 11:25
VB.NET Posez votre question Signaler
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
Afficher la suite 

3 réponses

Meilleure réponse
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
 54
3
Merci
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") & "# )"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Signaler Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
 54
0
Merci
cette question précise est posée au moins 10 fois par semaines...

au bas mot
Commenter la réponse de Renfield
Signaler Commenter la réponse de yokulan
Messages postés
40
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
31 juillet 2012
0
Merci
merci Renfield
Commenter la réponse de yokulan
Répondre Posez votre question