Probleme dans un insert dans une table access

[Résolu]
Signaler
Messages postés
51
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
2 février 2006
-
Messages postés
51
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
2 février 2006
-
Bonjour

dans ma table(stock) d'une base access ,j'ai deux champs un champ texte(mois/annee) et un numero auto. pour faire le lien avec une autre table.
Qd je recupere la valeur mois/annee du type 05/2004, d'un champ texte sur un formulaire et que je l'insert dans la table pas de probleme. mais qd je concatenne les differentes valeur et que je veux l'inserer , il me divise mon critere mois par mon critere annee.j'ai essayer differentes conversion et rien a faire.

une partie du code (citinv, critmois, critannee sont du type string)

CritInv = SStckMsAn.Value
CritMois = CStr(Format((Format(CritInv, "mm") + 1), "0#"))
CritAnnee = CStr(Format(CritInv, "yyyy"))

If CritMois = 13 Then
CritMois = CStr(Format(1, "0#"))
CritAnnee = CStr(CritAnnee + 1)
End If

CmdInvSuiv.ActiveConnection = Conn
CmdInvSuiv.CommandText = "insert into stock ([mois/annee]) values (" & CStr(CritMois & "/" & CritAnnee) & ")"
CmdInvSuiv.Execute

3 réponses

Messages postés
51
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
2 février 2006

Merci

mais maintenant que vous me le dites , j'aurais dut penser au simple cote.
@+
3
Merci

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

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

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
salut,

essaie de remplacer cette ligne:
CmdInvSuiv.CommandText = "insert into stock ([mois/annee]) values (" & CStr(CritMois & "/" & CritAnnee) & ")"


par celle ci:
CmdInvSuiv.CommandText = "insert into stock ([mois/annee]) values ('" & CStr(CritMois & "/" & CritAnnee) & "')"


@+
Julien
-----------------------------------------------------------
:big) Essai ca sinon on trouvera autre chose ;)
-----------------------------------------------------------
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut stephG01
Je dirai même plus :
CmdInvSuiv.CommandText = "insert into stock ([mois/annee]) values ('" & CStr(CritMois) & "/" & CStr(CritAnnee) & "')"

Vala
Jack