Je me heurte (et ca fait mal) au message d erreur suivant:
You must save the current field before you run the requery
action.
Contexte: J ai une combo dans la liste est limitee.
Par double-clique de cette combo, j ouvre un formulaire
qui me permet de saisir de nouvelles valeurs dans la table
source de ma combo. Enfin, apres la saisie, je ferme le
formulaire de saisie, et je requery ma combo. Et le
message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre
aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus()
Me.LocalClientID.Requery
End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, ,
acDialog, "LocalClientID"
Else
DoCmd.OpenForm "CompaniesFrm"
DoCmd.GoToRecord , "CompaniesFrm", acNewRec
End If
Exit_LocalClientID_DblClick:
Exit Sub
Err_LocalClientID_DblClick:
MsgBox Err.Description
Resume Exit_LocalClientID_DblClick
End Sub
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
Denis Taglia
Bonjour, Sans garantie pas teste, mais le requery est fait sur le gotfocus et si je ne m'abuse (voir le doctor), le focus est deja sur le ctrl en question, sur un autre evenement peut-etre ça fonctionnera (sur activation du formulaire????). Bon code Denis
"martin" a écrit dans le message de news:073f01c3620e$1f96b320$
Bonjour,
Je me heurte (et ca fait mal) au message d erreur suivant: You must save the current field before you run the requery action.
Contexte: J ai une combo dans la liste est limitee. Par double-clique de cette combo, j ouvre un formulaire qui me permet de saisir de nouvelles valeurs dans la table source de ma combo. Enfin, apres la saisie, je ferme le formulaire de saisie, et je requery ma combo. Et le message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus() Me.LocalClientID.Requery End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "LocalClientID" Else DoCmd.OpenForm "CompaniesFrm" DoCmd.GoToRecord , "CompaniesFrm", acNewRec End If
Exit_LocalClientID_DblClick: Exit Sub
Err_LocalClientID_DblClick: MsgBox Err.Description Resume Exit_LocalClientID_DblClick End Sub
Bonjour,
Sans garantie pas teste, mais le requery est fait sur le gotfocus et si je
ne m'abuse (voir le doctor), le focus est deja sur le ctrl en question, sur
un autre evenement peut-etre ça fonctionnera (sur activation du
formulaire????).
Bon code
Denis
"martin" <martinpila@hotmail.com> a écrit dans le message de
news:073f01c3620e$1f96b320$a501280a@phx.gbl...
Bonjour,
Je me heurte (et ca fait mal) au message d erreur suivant:
You must save the current field before you run the requery
action.
Contexte: J ai une combo dans la liste est limitee.
Par double-clique de cette combo, j ouvre un formulaire
qui me permet de saisir de nouvelles valeurs dans la table
source de ma combo. Enfin, apres la saisie, je ferme le
formulaire de saisie, et je requery ma combo. Et le
message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre
aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus()
Me.LocalClientID.Requery
End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, ,
acDialog, "LocalClientID"
Else
DoCmd.OpenForm "CompaniesFrm"
DoCmd.GoToRecord , "CompaniesFrm", acNewRec
End If
Exit_LocalClientID_DblClick:
Exit Sub
Err_LocalClientID_DblClick:
MsgBox Err.Description
Resume Exit_LocalClientID_DblClick
End Sub
Bonjour, Sans garantie pas teste, mais le requery est fait sur le gotfocus et si je ne m'abuse (voir le doctor), le focus est deja sur le ctrl en question, sur un autre evenement peut-etre ça fonctionnera (sur activation du formulaire????). Bon code Denis
"martin" a écrit dans le message de news:073f01c3620e$1f96b320$
Bonjour,
Je me heurte (et ca fait mal) au message d erreur suivant: You must save the current field before you run the requery action.
Contexte: J ai une combo dans la liste est limitee. Par double-clique de cette combo, j ouvre un formulaire qui me permet de saisir de nouvelles valeurs dans la table source de ma combo. Enfin, apres la saisie, je ferme le formulaire de saisie, et je requery ma combo. Et le message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus() Me.LocalClientID.Requery End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "LocalClientID" Else DoCmd.OpenForm "CompaniesFrm" DoCmd.GoToRecord , "CompaniesFrm", acNewRec End If
Exit_LocalClientID_DblClick: Exit Sub
Err_LocalClientID_DblClick: MsgBox Err.Description Resume Exit_LocalClientID_DblClick End Sub
martin
Salut Denis,
1) En fait, justement je ne sais pas si la combo a deja le focus ou non. En effet, etant donne que je la double- clique pour entrer des valeurs dans un autre formulaire, ne perd elle pas alors le focus?
2) Sinon, sur l'evenement sur Activation de formulaire, ca aurait le meme effet?
MErci!
-----Message d'origine----- Bonjour, Sans garantie pas teste, mais le requery est fait sur le gotfocus et si je
ne m'abuse (voir le doctor), le focus est deja sur le ctrl en question, sur
un autre evenement peut-etre ça fonctionnera (sur activation du
formulaire????). Bon code Denis
"martin" a écrit dans le message de
news:073f01c3620e$1f96b320$
Bonjour,
Je me heurte (et ca fait mal) au message d erreur suivant:
You must save the current field before you run the requery
action.
Contexte: J ai une combo dans la liste est limitee. Par double-clique de cette combo, j ouvre un formulaire qui me permet de saisir de nouvelles valeurs dans la table
source de ma combo. Enfin, apres la saisie, je ferme le formulaire de saisie, et je requery ma combo. Et le message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre
aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus() Me.LocalClientID.Requery End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "LocalClientID" Else DoCmd.OpenForm "CompaniesFrm" DoCmd.GoToRecord , "CompaniesFrm", acNewRec End If
Exit_LocalClientID_DblClick: Exit Sub
Err_LocalClientID_DblClick: MsgBox Err.Description Resume Exit_LocalClientID_DblClick End Sub
.
Salut Denis,
1) En fait, justement je ne sais pas si la combo a deja le
focus ou non. En effet, etant donne que je la double-
clique pour entrer des valeurs dans un autre formulaire,
ne perd elle pas alors le focus?
2) Sinon, sur l'evenement sur Activation de formulaire, ca
aurait le meme effet?
MErci!
-----Message d'origine-----
Bonjour,
Sans garantie pas teste, mais le requery est fait sur le
gotfocus et si je
ne m'abuse (voir le doctor), le focus est deja sur le
ctrl en question, sur
un autre evenement peut-etre ça fonctionnera (sur
activation du
formulaire????).
Bon code
Denis
"martin" <martinpila@hotmail.com> a écrit dans le message
de
news:073f01c3620e$1f96b320$a501280a@phx.gbl...
Bonjour,
Je me heurte (et ca fait mal) au message d erreur
suivant:
You must save the current field before you run the
requery
action.
Contexte: J ai une combo dans la liste est limitee.
Par double-clique de cette combo, j ouvre un formulaire
qui me permet de saisir de nouvelles valeurs dans la
table
source de ma combo. Enfin, apres la saisie, je ferme le
formulaire de saisie, et je requery ma combo. Et le
message apparait a ce moment la, MAIS PAS
SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour
votre
aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus()
Me.LocalClientID.Requery
End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, ,
acDialog, "LocalClientID"
Else
DoCmd.OpenForm "CompaniesFrm"
DoCmd.GoToRecord , "CompaniesFrm", acNewRec
End If
Exit_LocalClientID_DblClick:
Exit Sub
Err_LocalClientID_DblClick:
MsgBox Err.Description
Resume Exit_LocalClientID_DblClick
End Sub
1) En fait, justement je ne sais pas si la combo a deja le focus ou non. En effet, etant donne que je la double- clique pour entrer des valeurs dans un autre formulaire, ne perd elle pas alors le focus?
2) Sinon, sur l'evenement sur Activation de formulaire, ca aurait le meme effet?
MErci!
-----Message d'origine----- Bonjour, Sans garantie pas teste, mais le requery est fait sur le gotfocus et si je
ne m'abuse (voir le doctor), le focus est deja sur le ctrl en question, sur
un autre evenement peut-etre ça fonctionnera (sur activation du
formulaire????). Bon code Denis
"martin" a écrit dans le message de
news:073f01c3620e$1f96b320$
Bonjour,
Je me heurte (et ca fait mal) au message d erreur suivant:
You must save the current field before you run the requery
action.
Contexte: J ai une combo dans la liste est limitee. Par double-clique de cette combo, j ouvre un formulaire qui me permet de saisir de nouvelles valeurs dans la table
source de ma combo. Enfin, apres la saisie, je ferme le formulaire de saisie, et je requery ma combo. Et le message apparait a ce moment la, MAIS PAS SYSTEMATIQUEMENT.
Quel est le probleme? que faut-il faire? merci pour votre
aide!
Ci dessous le code:
Private Sub LocalClientID_GotFocus() Me.LocalClientID.Requery End Sub
Private Sub LocalClientID_DblClick(Cancel As Integer)
On Error GoTo Err_LocalClientID_DblClick
Dim stDocName As String Dim stLinkCriteria As String
If Not (IsNull(Me.LocalClientID)) Then DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "LocalClientID" Else DoCmd.OpenForm "CompaniesFrm" DoCmd.GoToRecord , "CompaniesFrm", acNewRec End If
Exit_LocalClientID_DblClick: Exit Sub
Err_LocalClientID_DblClick: MsgBox Err.Description Resume Exit_LocalClientID_DblClick End Sub
