Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ
verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
4534e155$0$5069$ba4acef3@news.orange.fr...
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ
verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ
verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news: 4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> a écrit dans le message de news: eV6uNof8GHA.4708@TK2MSFTNGP05.phx.gbl...
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news: 4534e155$0$5069$ba4acef3@news.orange.fr...
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news: 4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news: 4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> a écrit dans le message de news: eV6uNof8GHA.4708@TK2MSFTNGP05.phx.gbl...
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news: 4534e155$0$5069$ba4acef3@news.orange.fr...
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne s'éxecute pas correctement puisqu'il n'affiche pas
l'enregistrement voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la consultation uniquement, les principaux champs sont
désactivés pour empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news: 4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534f27c$0$27388$Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message
de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
4534f27c$0$27388$ba4acef3@news.orange.fr...
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> a écrit dans le message
de news: eV6uNof8GHA.4708@TK2MSFTNGP05.phx.gbl...
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
4534e155$0$5069$ba4acef3@news.orange.fr...
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534f27c$0$27388$Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message
de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Oui
ce champ est en NumAuto (c'est ma clé d'enregistrement !)
"Pierre CFI [mvp]" a écrit dans le message
de news:oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534f27c$0$27388$Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message
de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Oui
ce champ est en NumAuto (c'est ma clé d'enregistrement !)
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> a écrit dans le message
de news: uTsX48f8GHA.4644@TK2MSFTNGP04.phx.gbl...
oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
4534f27c$0$27388$ba4acef3@news.orange.fr...
Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo.fr> a écrit dans le message
de news: eV6uNof8GHA.4708@TK2MSFTNGP05.phx.gbl...
bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" <schricke.franck@wanadoo.fr> a écrit dans le message de news:
4534e155$0$5069$ba4acef3@news.orange.fr...
Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
Oui
ce champ est en NumAuto (c'est ma clé d'enregistrement !)
"Pierre CFI [mvp]" a écrit dans le message
de news:oui, inputbox j'ai eu un malaise
ton numéro, c'est bien du numérique, pas du texte ??(le format du champ
dans la table ???
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534f27c$0$27388$Bonjour pierre et merci pour ta réponse,
j'ai modifié le code en fonction, mais à la place de input, j'ai glissé
un inputbox
stLinkCriteria = "Numbc=" & Val(InputBox("Entrez le numéro de Bon de
Commande", "NUMERO DE BON DE COMMANDE"))
toutefois, bien qu'aucun message d'erreur n'apparaît, le code ne
s'éxecute pas correctement puisqu'il n'affiche pas l'enregistrement
voulu.
Cela n'a peut être rien à voir mais ce formulaire étant destiné à la
consultation uniquement, les principaux champs sont désactivés pour
empêcher une quelconque saisie.
Merci d'avance
"Pierre CFI [mvp]" a écrit dans le message
de news:bonjour
pourquoi ne pas ouvrir ton form sur ce no
stLinkCriteria sert à çà
stLinkCriteria = "Numbc=" & val(input("no de code"))
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"Janus" a écrit dans le message de news:
4534e155$0$5069$Bonjour à tous,
j'aimerais effectuer une recherche à partir d'un formulaire sur un
champ verouillé et inactivé (numbc)
J'ai créé le code suivant mais j'ai un message d'erreur "objet requis"
' définition des variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim DdeNumBc As String
Dim Msg As String
Dim Titre As String
Dim fmcurrentform As Form
'ouverture du formulaire "consultation commande"
stDocName = "consultation commande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Boite de dialogue pour saisir le numéro de bc
Msg = "Entrez le numéro de bon de commande"
Titre = "NUMERO DE BON DE COMMANDE ?"
DdeNumBc = InputBox(Msg, Titre)
'activation du formulaire courant
Set frmCurrentForm = Screen.ActiveForm
numbc.select = True
DoCmd.FindRecord DdeNumBc, , , acSearchAll, , acCurrent, True
Merci pour votre aide
