J'ai un formulaire appell=E9 "Calendrier"
J'en ai un autre appell=E9 "Audience"
Sur "Audience j'ai un champ texte appell=E9 "TL1" et un bouton qui
appelle le "Calendrier"
Et quand je clique sur une date elle devrait se mettre dans TL1.
J'ai copier un code concernant un calendrier que voici:
Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer
If Not IsNull(Me.OpenArgs) Then
intI =3D InStr(1, Me.OpenArgs, "!", vbTextCompare)
If intI <> 0 Then
strForm =3D Left(Me.OpenArgs, intI - 1)
strChamp =3D Mid(Me.OpenArgs, intI + 1)
Forms(strForm)(strChamp) =3D Me!Calendrier.Value
End If
End If
DoCmd.Close
End Sub
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me
r=E9pond :
Erreur d'ex=E9cution 2465. Impossible de trouver le champ 'Calendrier'
auquel il est fait r=E9f=E9rence dans votre expression.
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
Pierre CFI [mvp]
bonjour calendrier c'est quoi,?? un form, un controle ? tu dis au départ que c'est un form, puis.....
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"Cestmoi" a écrit dans le message de news: Bonjour,
J'ai un formulaire appellé "Calendrier" J'en ai un autre appellé "Audience" Sur "Audience j'ai un champ texte appellé "TL1" et un bouton qui appelle le "Calendrier" Et quand je clique sur une date elle devrait se mettre dans TL1.
J'ai copier un code concernant un calendrier que voici:
Private Sub btnOK_Click() Dim strForm As String, strChamp As String Dim intI As Integer
If Not IsNull(Me.OpenArgs) Then intI = InStr(1, Me.OpenArgs, "!", vbTextCompare) If intI <> 0 Then strForm = Left(Me.OpenArgs, intI - 1) strChamp = Mid(Me.OpenArgs, intI + 1) Forms(strForm)(strChamp) = Me!Calendrier.Value End If End If DoCmd.Close End Sub
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Où se situe l'erreur ? Merci d'avance
bonjour
calendrier c'est quoi,?? un form, un controle ? tu dis au départ que c'est un form, puis.....
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Cestmoi" <albert.fouarge@just.fgov.be> a écrit dans le message de news: 1136884641.018235.25570@g47g2000cwa.googlegroups.com...
Bonjour,
J'ai un formulaire appellé "Calendrier"
J'en ai un autre appellé "Audience"
Sur "Audience j'ai un champ texte appellé "TL1" et un bouton qui
appelle le "Calendrier"
Et quand je clique sur une date elle devrait se mettre dans TL1.
J'ai copier un code concernant un calendrier que voici:
Private Sub btnOK_Click()
Dim strForm As String, strChamp As String
Dim intI As Integer
If Not IsNull(Me.OpenArgs) Then
intI = InStr(1, Me.OpenArgs, "!", vbTextCompare)
If intI <> 0 Then
strForm = Left(Me.OpenArgs, intI - 1)
strChamp = Mid(Me.OpenArgs, intI + 1)
Forms(strForm)(strChamp) = Me!Calendrier.Value
End If
End If
DoCmd.Close
End Sub
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me
répond :
Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier'
auquel il est fait référence dans votre expression.
bonjour calendrier c'est quoi,?? un form, un controle ? tu dis au départ que c'est un form, puis.....
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"Cestmoi" a écrit dans le message de news: Bonjour,
J'ai un formulaire appellé "Calendrier" J'en ai un autre appellé "Audience" Sur "Audience j'ai un champ texte appellé "TL1" et un bouton qui appelle le "Calendrier" Et quand je clique sur une date elle devrait se mettre dans TL1.
J'ai copier un code concernant un calendrier que voici:
Private Sub btnOK_Click() Dim strForm As String, strChamp As String Dim intI As Integer
If Not IsNull(Me.OpenArgs) Then intI = InStr(1, Me.OpenArgs, "!", vbTextCompare) If intI <> 0 Then strForm = Left(Me.OpenArgs, intI - 1) strChamp = Mid(Me.OpenArgs, intI + 1) Forms(strForm)(strChamp) = Me!Calendrier.Value End If End If DoCmd.Close End Sub
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Où se situe l'erreur ? Merci d'avance
3stone
Salut,
"Cestmoi"
Forms(strForm)(strChamp) = Me!Calendrier.Value
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS: Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier" dans lequel il se trouvre, tu as fait une co****** ;-)
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me
répond :
Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier'
auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS:
Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier"
dans lequel il se trouvre, tu as fait une co****** ;-)
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS: Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier" dans lequel il se trouvre, tu as fait une co****** ;-)
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS: Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier" dans lequel il se trouvre, tu as fait une co****** ;-)
Merci 3 stone c'était une c*******:-( encore une fois merci
Salut,
"Cestmoi"
Forms(strForm)(strChamp) = Me!Calendrier.Value
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me
répond :
Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier'
auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS:
Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier"
dans lequel il se trouvre, tu as fait une co****** ;-)
Merci 3 stone c'était une c*******:-( encore une fois merci
Quand je clique sur une date pour qu'elle s'inscrive dans TL1 il me répond : Erreur d'exécution 2465. Impossible de trouver le champ 'Calendrier' auquel il est fait référence dans votre expression.
Ben oui... puisque tu écris : Me!Calendrier.Value
cela devrait être plutôt : Me!CtrlCalendar.value
PS: Si tu as appelé ce controle "Calendrier" tout comme ton formulaire "Calendrier" dans lequel il se trouvre, tu as fait une co****** ;-)
Merci 3 stone c'était une c*******:-( encore une fois merci
