Discussion :

[eric0512]

Bonjour
J'ai une table nommée "nomtech" qui contient 2 champs. Un champ "Tech" et un champs "Nom".
Le champ "tech" est également avec lien dans une table nommée "recapcdepieces".
Dans mon formulaire, lorsque je saisie le champ "tech" de la table "recapcdepieces", j'aimerai qu'après mise à jour, une vérification de l’existence de l’enregistrement saisi soit faite dans la table "nomtech".
Si l'enregistrement existe, je passe au champ suivant, si il n'existe pas je souhaite que la table "nomtech" s'ouvre et que je puisse rentrer un nouvel enregistrement dans cette table.
Merci d'avance

[hyperion13]

Salut,
Tbl Recapcdepieces, pourquoi utiliser une zone de texte en lieu et place d'une liste déroulante pour le champ Tech ?
Le traitement d'ajout de nouvelles valeurs serait plus simple.
Dans votre cas, en mode création, clic btn droit sur la Zone de texte et remplacer par Listemodifiable. Puis dans les propriétés, onglet Données complétez la propriété Contenu pour créer une req sql sur la tbl nomtech

[eric0512]

Salut et merci pour cette réponse rapide
L'idée est excellente, par contre si je n'ai pas l'enregistrement voulu dans la liste déroulante, comment faire pour que j'ouvre ma table "nomtech" de manière automatique?

[hyperion13]

Re,
Dans mon post précédent, il y a un lien. Cliquez dessus. Il y a une procédure à mettre en place.
Vous n'avez pas besoin d'ouvrir la tbl. Si une valeur est inexistante dans la liste, il vous suffira simplement d'écrire la nouvelle valeur.

Question le champ Tech de la tbl nomtech est NuméroAuto ou alphanumérique ?

[eric0512]

Ça rempli bien le champ "tech" quand j'ajoute une entrée dans la liste déroulante, par contre dans la table "nomtech", j'ai un deuxième champs qui s'appelle "nom" et qui doit également être rempli.

[hyperion13]

Re,
Après le End If de la procédure ajouter ces 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.OpenTable "nomtech", acViewNormal
DoCmd.GoToRecord , , acLast

[hyperion13]

Ça rempli bien le champ "tech" quand j'ajoute une entrée dans la liste déroulante, par contre dans la table "nomtech", j'ai un deuxième champs qui s'appelle "nom" et qui doit également être rempli.

le 1er champ de la tbl nomtech est-ce un NuméroAuto ou une valeur alphanumérique ?

[eric0512]

C'est un champs Texte court.
Ça marche très bien, par contre je ne me souviens plus de la cde pour ouvrir un formulaire de la table nommé nomtech en mode boite de dialogue.
Merci pour votre patience.....

[hyperion13]

un truc comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.OpenForm "nomtech", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "nomtech", acLast

[eric0512]

ça plante....

[hyperion13]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.OpenForm "nomtech (est le nom du formulaire)", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "nomtech (est le nom du formulaire)", acLast

[eric0512]

Oui, c'est bien comme cela que j'ai écrit ce code. Et j'obtiens l'erreur indiquée au dessus.

[hyperion13]

Euh ... item du message d'erreur et numéro ?

[titi95]

Bonsoir

Bizarre la syntaxe de l'OpenForm avec un 2ème acNormal...
Peut-être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "nomtech", acNormal, , , , acDialog

[hyperion13]

Bonsoir

Bizarre la syntaxe de l'OpenForm avec un 2ème acNormal...
Peut-être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "nomtech", acNormal, , , , acDialog

Salut titi95
La syntaxe est juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "FormName", "View", "DataMode", "WindowsMode" (là on peut avoir AcNormal AcDialog, Hidden ou Icon)

Mais l'erreur ne serait-elle pas due à une référence absente dans son VBEditor ? DAO3.6 ou suivant MsAccess 14.0 Object Library ?

[eric0512]

ca ne fonctionne pas plus. Lorsque je fais une nouvelle saisie dans mon formulaire, j'ai bien la fenêtre qui me propose d'enregistrer cette nouvelle saisie. Et lorsque je clique sur Oui, j'ai la fenêtre suivante qui s'ouvre et je ne peux jamais ouvrir mon formulaire... puis ça m'envoie sur Visual Basic ou j'ai la ligne de cde des messages au dessus surlignée

[hyperion13]

Euh... pourquoi en macro incorporée ?
Vous pouvez envoyer un extrait de votre bdd en l'encapsulant dans du zip ou rar ?

[eric0512]

C'est bon, j'ai trouvé. j'avais créé une macro à l’ouverture de mon formulaire qui me plantait tout.
Tout fonctionne bien maintenant.
Merci beaucoup pour votre aide qui me fut précieuse.

[hyperion13]

ok, je ne comprenais plus.
pensez à clore la discussion

[titi95]

Bonjour à vous deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "nomtech", acNormal, "", "", , acNormal

fonctionne effectivement, mais je ne voyais aucun intérêt par rapport à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "nomtech", acNormal

alors que la demande était d'avoir acDialog...