Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Tabulation Automatique dans Formulaire

4 réponses
Avatar
Guy
Bonjour à tous

Dans un Formulaire j'ai un champ "Mode de Paiement" Liste déroulante avec
controle sur Sortie

Private Sub ModePaiement_Exit(Cancel As Integer)
If (Me![ModePaiement].Text) = "En votre aimable règlement" Then
Me![ResteDu] = True
Else
If (Me![ModePaiement].Text) = "Imputation Atelier" Then
Me![ResteDu] = True
Else
Me![ResteDu] = False
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Mais cela n'est pas suffissant il me faut rajouter du code pour
impérativement passé sur un autre Champ ou Bouton des que j'ai selectionné
mon mode de paiement
--
Amicalement et merci

4 réponses

Avatar
Pierre CFI [mvp]
bonjour
ta liste devrait étre alimenter par une table avec NoReglement et
LibelReglemet
1 en votre....
2 imputation....
3 xxx.......
la colonne liée et cachée étant la clé primaine
sur l'évenement afterupdate
Private Sub ModePaiement_AfterUpdate()
If Me![ModePaiement] = 1 Then
Me![ResteDu] = True
ElseIf (Me![ModePaiement]) = 2 Then
Me![ResteDu] = True
Else
Me![ResteDu] = False

End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '???????
Me.Moncontrole.setfocus 'ici le controle à atteindre
End Sub


--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour à tous

Dans un Formulaire j'ai un champ "Mode de Paiement" Liste déroulante avec
controle sur Sortie

Private Sub ModePaiement_Exit(Cancel As Integer)
If (Me![ModePaiement].Text) = "En votre aimable règlement" Then
Me![ResteDu] = True
Else
If (Me![ModePaiement].Text) = "Imputation Atelier" Then
Me![ResteDu] = True
Else
Me![ResteDu] = False
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Mais cela n'est pas suffissant il me faut rajouter du code pour
impérativement passé sur un autre Champ ou Bouton des que j'ai selectionné
mon mode de paiement
--
Amicalement et merci


Avatar
Guy
Bonjour Pierre,

1) dans quel Champ faut-il mettre Noréglement--
Amicalement et merci

2) Me.Moncontrole.setfocus 'ici le controle à atteindre
je n'ai pas compris ou mettre le controle

Merci pour les explications Supplémentaires


"Pierre CFI [mvp]" wrote:

bonjour
ta liste devrait étre alimenter par une table avec NoReglement et
LibelReglemet
1 en votre....
2 imputation....
3 xxx.......
la colonne liée et cachée étant la clé primaine
sur l'évenement afterupdate
Private Sub ModePaiement_AfterUpdate()
If Me![ModePaiement] = 1 Then
Me![ResteDu] = True
ElseIf (Me![ModePaiement]) = 2 Then
Me![ResteDu] = True
Else
Me![ResteDu] = False

End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '???????
Me.Moncontrole.setfocus 'ici le controle à atteindre
End Sub


--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour à tous

Dans un Formulaire j'ai un champ "Mode de Paiement" Liste déroulante avec
controle sur Sortie

Private Sub ModePaiement_Exit(Cancel As Integer)
If (Me![ModePaiement].Text) = "En votre aimable règlement" Then
Me![ResteDu] = True
Else
If (Me![ModePaiement].Text) = "Imputation Atelier" Then
Me![ResteDu] = True
Else
Me![ResteDu] = False
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Mais cela n'est pas suffissant il me faut rajouter du code pour
impérativement passé sur un autre Champ ou Bouton des que j'ai selectionné
mon mode de paiement
--
Amicalement et merci







Avatar
Pierre CFI [mvp]
..../....
ton pb est bien qu'aprés avoir fait un choix dans la liste , tu ailles sur
un autre controle automatiquement ??

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour Pierre,

1) dans quel Champ faut-il mettre Noréglement--
Amicalement et merci

2) Me.Moncontrole.setfocus 'ici le controle à atteindre
je n'ai pas compris ou mettre le controle

Merci pour les explications Supplémentaires


"Pierre CFI [mvp]" wrote:

bonjour
ta liste devrait étre alimenter par une table avec NoReglement et
LibelReglemet
1 en votre....
2 imputation....
3 xxx.......
la colonne liée et cachée étant la clé primaine
sur l'évenement afterupdate
Private Sub ModePaiement_AfterUpdate()
If Me![ModePaiement] = 1 Then
Me![ResteDu] = True
ElseIf (Me![ModePaiement]) = 2 Then
Me![ResteDu] = True
Else
Me![ResteDu] = False

End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '???????
Me.Moncontrole.setfocus 'ici le controle à atteindre
End Sub


--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour à tous

Dans un Formulaire j'ai un champ "Mode de Paiement" Liste déroulante
avec
controle sur Sortie

Private Sub ModePaiement_Exit(Cancel As Integer)
If (Me![ModePaiement].Text) = "En votre aimable règlement" Then
Me![ResteDu] = True
Else
If (Me![ModePaiement].Text) = "Imputation Atelier" Then
Me![ResteDu] = True
Else
Me![ResteDu] = False
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Mais cela n'est pas suffissant il me faut rajouter du code pour
impérativement passé sur un autre Champ ou Bouton des que j'ai
selectionné
mon mode de paiement
--
Amicalement et merci









Avatar
Guy
Re bonjour Pierre

Oiu je doit passer sur mon bouton Fermeture pour etre sur de bien valider le
Champ sinon je me retrouve sans affectation du mode de paiement et pour
faire la caisse en fin de journée cela n'est pas pratique
--
Amicalement et merci


"Pierre CFI [mvp]" wrote:

...../....
ton pb est bien qu'aprés avoir fait un choix dans la liste , tu ailles sur
un autre controle automatiquement ??

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour Pierre,

1) dans quel Champ faut-il mettre Noréglement--
Amicalement et merci

2) Me.Moncontrole.setfocus 'ici le controle à atteindre
je n'ai pas compris ou mettre le controle

Merci pour les explications Supplémentaires


"Pierre CFI [mvp]" wrote:

bonjour
ta liste devrait étre alimenter par une table avec NoReglement et
LibelReglemet
1 en votre....
2 imputation....
3 xxx.......
la colonne liée et cachée étant la clé primaine
sur l'évenement afterupdate
Private Sub ModePaiement_AfterUpdate()
If Me![ModePaiement] = 1 Then
Me![ResteDu] = True
ElseIf (Me![ModePaiement]) = 2 Then
Me![ResteDu] = True
Else
Me![ResteDu] = False

End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '???????
Me.Moncontrole.setfocus 'ici le controle à atteindre
End Sub


--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Guy" <André> a écrit dans le message de news:

Bonjour à tous

Dans un Formulaire j'ai un champ "Mode de Paiement" Liste déroulante
avec
controle sur Sortie

Private Sub ModePaiement_Exit(Cancel As Integer)
If (Me![ModePaiement].Text) = "En votre aimable règlement" Then
Me![ResteDu] = True
Else
If (Me![ModePaiement].Text) = "Imputation Atelier" Then
Me![ResteDu] = True
Else
Me![ResteDu] = False
End If
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

Mais cela n'est pas suffissant il me faut rajouter du code pour
impérativement passé sur un autre Champ ou Bouton des que j'ai
selectionné
mon mode de paiement
--
Amicalement et merci