OVH Cloud OVH Cloud

Pb access 2K

6 réponses
Avatar
Guy
salut=20

ba j'ai un probleme avec du code access 2k, j'aimerai=20
savoir kel est la syntaxe pour la commande

docmd.runcommand

y me met une ereur 'nombre d'arguments incorrect ou=20
affectation de propriet=E9 incorrecte', l'erreur aparait au=20
premier docmd.runcommand


g recuper=E9 un prog dans une version d'access anterieur et=20
il m'a conveti comme suis...



Private Sub Bt_Nouveau_Click()

Dim MaBD As Database
Dim GpeParam As Recordset

DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
DoCmd.GoToRecord acForm, "F_Clients", acNewRec

Me![Remise Client] =3D 1

'initialiser le n=B0client

Set MaBD =3D CurrentDb
Set GpeParam =3D MaBD.OpenRecordset("T_Param=E8tres",=20
dbOpenDynaset)
=20
Me![NumClient] =3D GpeParam.Fields("NbNvClient")
=20
GpeParam.Edit
GpeParam.Fields("NbNvClient") =3D GpeParam.Fields
("NbNvClient") + 1
GpeParam.Update
GpeParam.Close

MaBD.Close

Soci=E9t=E9.SetFocus


End Sub


merci d'avance

6 réponses

Avatar
Gafish
Bonjour,

Normalement runCommande ne prend qu'un seul paramètre.
Essaie peut etre de mettre à la place de :
DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
les commandes :
DoCmd.RunCommand acFormBar
DoCmd.RunCommand acRecordsMenu
DoCmd.RunCommand acSaveRecord

En plus les commandes que tu cites ne font pas partie des constantes de
méthodes pour runCommand (regarde dans l'aide)

Arnaud

"Guy" a écrit dans le message de
news:211f01c4a213$f007ae10$
salut

ba j'ai un probleme avec du code access 2k, j'aimerai
savoir kel est la syntaxe pour la commande

docmd.runcommand

y me met une ereur 'nombre d'arguments incorrect ou
affectation de proprieté incorrecte', l'erreur aparait au
premier docmd.runcommand


g recuperé un prog dans une version d'access anterieur et
il m'a conveti comme suis...



Private Sub Bt_Nouveau_Click()

Dim MaBD As Database
Dim GpeParam As Recordset

DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
DoCmd.GoToRecord acForm, "F_Clients", acNewRec

Me![Remise Client] = 1

'initialiser le n°client

Set MaBD = CurrentDb
Set GpeParam = MaBD.OpenRecordset("T_Paramètres",
dbOpenDynaset)

Me![NumClient] = GpeParam.Fields("NbNvClient")

GpeParam.Edit
GpeParam.Fields("NbNvClient") = GpeParam.Fields
("NbNvClient") + 1
GpeParam.Update
GpeParam.Close

MaBD.Close

Société.SetFocus


End Sub


merci d'avance
Avatar
Christophe JEAN
Bonjour,

Que souhaites-tu faire avec
DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord ?
Car dans la liste de commande, je n'ai pas la commande acFormBar. Si cette
syntaxe vient d'un version antiérieur à l'Access que tu utilise aujourd'hui,
vérifiece que faisit cette commande.

Tiens-nous au courant

A+

Christophe JEAN
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Private Sub Bt_Nouveau_Click()

Dim MaBD As Database
Dim GpeParam As Recordset

DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
DoCmd.GoToRecord acForm, "F_Clients", acNewRec

Me![Remise Client] = 1

'initialiser le n°client

Set MaBD = CurrentDb
Set GpeParam = MaBD.OpenRecordset("T_Paramètres",
dbOpenDynaset)

Me![NumClient] = GpeParam.Fields("NbNvClient")

GpeParam.Edit
GpeParam.Fields("NbNvClient") = GpeParam.Fields
("NbNvClient") + 1
GpeParam.Update
GpeParam.Close

MaBD.Close

Société.SetFocus


End Sub



merci d'avance

Avatar
Raymond [mvp]
Bonjour.

DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
il s'agit d'une vieille commande de menu que les jeunes ne connaissent pas,
evidemment.
remplace la par:
DoCmd.RunCommand acCmdSaveRecord

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Guy" a écrit dans le message de news:
211f01c4a213$f007ae10$
salut

ba j'ai un probleme avec du code access 2k, j'aimerai
savoir kel est la syntaxe pour la commande

docmd.runcommand

y me met une ereur 'nombre d'arguments incorrect ou
affectation de proprieté incorrecte', l'erreur aparait au
premier docmd.runcommand


g recuperé un prog dans une version d'access anterieur et
il m'a conveti comme suis...



Private Sub Bt_Nouveau_Click()

Dim MaBD As Database
Dim GpeParam As Recordset

DoCmd.RunCommand acFormBar, acRecordsMenu, acSaveRecord
DoCmd.GoToRecord acForm, "F_Clients", acNewRec

Me![Remise Client] = 1

'initialiser le n°client

Set MaBD = CurrentDb
Set GpeParam = MaBD.OpenRecordset("T_Paramètres",
dbOpenDynaset)

Me![NumClient] = GpeParam.Fields("NbNvClient")

GpeParam.Edit
GpeParam.Fields("NbNvClient") = GpeParam.Fields
("NbNvClient") + 1
GpeParam.Update
GpeParam.Close

MaBD.Close

Société.SetFocus


End Sub


merci d'avance
Avatar
Christophe JEAN
Je ne dis pas qu'Access 1.1 était dénué de charme, je dis qu'à l'époque, je
lui préférais DBase 4 puis 5 (en langage CLIPPER) si c'était un traitement
volumineux sinon pour une base bureautique, on utilisait Approach (puisqu'il
était souvent fourni avec Lotus 1-2-3).
Paradox et son ObjectPal ne plaisait guère, je n'ai jamais compris l'utilité
de la syntaxe DoDefault. De toute façon il était compatible DBase.

Eh oui, à l'époque on se méfiait des marchands de tapis (=MS :-b ).

Pardon pour ne pas avoir reconnu DoCmd.RunCommand acFormBar, acRecordsMenu,
acSaveRecord comme étant la sauvegarde.




Lao Tzeu nous l'avait dit : "Cogne-toi ta tête contre une cruche. Si tu
entends un son creux, n'en déduit pas que c'est forcément la cruche qui est
vide"
Avatar
Raymond [mvp]
Enfin un adepte de clipper. ça c'était le bon temp et access pouvait
toujours s'aligner.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe JEAN" a écrit dans le message de news:
41540c23$0$16583$
Je ne dis pas qu'Access 1.1 était dénué de charme, je dis qu'à l'époque,
je lui préférais DBase 4 puis 5 (en langage CLIPPER) si c'était un
traitement volumineux sinon pour une base bureautique, on utilisait
Approach (puisqu'il était souvent fourni avec Lotus 1-2-3).
Paradox et son ObjectPal ne plaisait guère, je n'ai jamais compris
l'utilité de la syntaxe DoDefault. De toute façon il était compatible
DBase.

Eh oui, à l'époque on se méfiait des marchands de tapis (=MS :-b ).

Pardon pour ne pas avoir reconnu DoCmd.RunCommand acFormBar,
acRecordsMenu, acSaveRecord comme étant la sauvegarde.




Lao Tzeu nous l'avait dit : "Cogne-toi ta tête contre une cruche. Si tu
entends un son creux, n'en déduit pas que c'est forcément la cruche qui
est vide"




Avatar
Christophe JEAN
Et il peut encore et toujours essayer de rivaliser !