Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Update 2 Chsql

Update 2 Chsql

3 réponses
Avatar
jfd
Bonsoir et Bonne Année à tous
Comment est-il possible de faire 2 mises à jour Chsql sur la même action

Dim chsql As String
Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "'"
chsql = "UPDATE MaTable SETMaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True

Merci par avance
jfd
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

du genre :
Dim chsql As String
' Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SET MaTable.DatIns ='" & (Me.Text14) & "'"
DoCmd.RunSQL chsql
chsql = "UPDATE MaTable SET MaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True

si DatIns et DatIns2 représentent des champs de type Date, il faudra
mettre Text14 & Text18 au format Date


jfd a écrit :
Bonsoir et Bonne Année à tous
Comment est-il possible de faire 2 mises à jour Chsql sur la même action

Dim chsql As String
Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "'"
chsql = "UPDATE MaTable SETMaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True

Merci par avance
jfd




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
CErnst
S'il s'agit de la même table dans les 2 cas :

Dim chsql As String
Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "',
MaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True




"jfd" a écrit dans le message de news:

Bonsoir et Bonne Année à tous
Comment est-il possible de faire 2 mises à jour Chsql sur la même action

Dim chsql As String
Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "'"
chsql = "UPDATE MaTable SETMaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True

Merci par avance
jfd



Avatar
jfd
Merci de vos réponses je vais essayer cela.
Bonne soirée
jfd

"CErnst" a écrit :

S'il s'agit de la même table dans les 2 cas :

Dim chsql As String
Set dbBaseDonnees = CurrentDb
DoCmd.SetWarnings False
chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "',
MaTable.DatIns2 ='" & (Me.Text18) & "'"
DoCmd.RunSQL chsql
DoCmd.SetWarnings True




"jfd" a écrit dans le message de news:

> Bonsoir et Bonne Année à tous
> Comment est-il possible de faire 2 mises à jour Chsql sur la même action
>
> Dim chsql As String
> Set dbBaseDonnees = CurrentDb
> DoCmd.SetWarnings False
> chsql = "UPDATE MaTable SETMaTable.DatIns ='" & (Me.Text14) & "'"
> chsql = "UPDATE MaTable SETMaTable.DatIns2 ='" & (Me.Text18) & "'"
> DoCmd.RunSQL chsql
> DoCmd.SetWarnings True
>
> Merci par avance
> jfd
>