Discussion :

[langelot222]

Voilà , je veux remplir une table avec la date d'échéance d'un bail ainsi que la date où il faut envoyer la lettre recommandée, lorsqu'on connait la date de début de bail et la durée de ce dernier ainsi que le preneur conserné. Je récupère donc les informations dont j'ai besoin dans le formulaire. avec le code suivant (et je fait mes calculs) le tout en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 date_in = Form_preneur3.DateIn.Value
    dure_bail = InputBox("durée", "durée du bail")
    date_ech = DateAdd("yyyy", dure_bail, Form_preneur3.DateIn.Value)
 
    date_ech = DateAdd("d", -1, date_ech)
    date_out = DateAdd("m", -6, date_ech)
    numpre = Form_preneur3.num.Value

je lance ensuite la requete sql suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 sql = "INSERT INTO table2 (bail, DateLetter, DateOut, numpren)" _
            & "VALUES (" & dure_bail & "," & date_ech & "," & date_out & "," & numpre & ");"

au débugger les valeurs de mes variables sont correctes si la date d'entrée est le 19/04/2007 avec un bail de 9 j'ai comme valeur : pour date_ech=18/04/2016 , date_out =18/10/2015.

par contre quand je regarde ma table "table2" j'ai comme valeur "30/12/1899 00:03:12" dans la cellule" alors que le format de date est abrégé.

Le format dans la cellule n'est donc pas le bon et la valeur inscrite non plus

comment faire pour que ce soit la bonne ?
syntaxe compatible sql (ansi 92) est activée.

[Kloun]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sql = "INSERT INTO table2 (bail, DateLetter, DateOut, numpren) " _
            & "VALUES (" & dure_bail & ", #" & format(date_ech, "MM/DD/YYYY") & "#,#" & format(date_out, "MM/DD/YYYY") & "#," & numpre & ")"

La FAQ est ton amie.

[langelot222]

Ca marche nickel, merci beaucoup