Discussion :

[vald59]

Bonjour

j'ai trouve une difficulté au niveau de mon sous formulaire , je vous explique j'ai créer un formulaire avec 4 liste déroulante (produit, référence, marque, emplacement) donc ma recherche peut se faire avec un de ses critères grâce a un code que j'ai mis en place , le résultat du produit recherché est affiché sur un sous formulaire ( lui aussi a 4 champ produit , référence , marque , emplacement ) donc l'idée c'est d'enregistrer cette recherche sur une autre table, j'arrive pas a mettre un bouton enregistrer sur sous formulaire ... est ce que vous avez des idées ?

Merci pour votre aide

[tee_grandbois]

Bonsoir,
ajouter un bouton dans un sous-formulaire n'est pas, à priori, quelque chose de compliqué...A quel moment rencontres-tu le souci ?
je pense qu'il faut afficher en-tête ou pied de formulaire (clic sur le bandeau Détail, puis bouton de droite) et insérer le bouton.

L'icône bouton dans le ruban est le suivant:



cliquer sur l'icône et ensuite se positionner sur le sous-formulaire

[vald59]

Bonjour,

Merci pour votre réponse , le problème quand je crée ce bouton il s'affiche que sur le formulaire j'ai essaye plusieurs fois de se positionner sur le sous formulaire mais ça ne marche pas, et puis l'autre problème c'est le code vba du bouton qui m’enregistre la ligne sélectionne "recherché par mes listes déroulante " dans le sous formulaire dans une autre table

Merci pour votre aide

[tee_grandbois]

Bonjour,
il faut ouvrir le sous-formulaire en mode création directement sans passer par le formulaire.

et puis l'autre problème c'est le code vba du bouton qui m’enregistre la ligne sélectionne "recherché par mes listes déroulante " dans le sous formulaire dans une autre table

Je ne comprend pas trop
Peux-tu poster le code ?

donc l'idée c'est d'enregistrer cette recherche sur une autre table

Peux-tu préciser pour quelle raison souhaites-tu enregistrer la sélection dans une table ?

[vald59]

Bonjour,

Pour le code vba : j'ai une table nommé stock ou j'ai plusieurs champs moi j'ai besoin juste de 4 champs : produit , marque , référence, emplacement j'ai mis une place dans un formulaire 4 liste déroulante ( produit, marque , référence , emplacement ) le but c'est ce de faire une recherche avec une de ces listes deroulante ( soit une recherche avec la référence ou une recherche avec la marque... ) donc après j'affiche ma recherche sur le sous formulaire (4 champs aussi : produit,marque , référence,emplacement) .

l'idée c'est de transférer grâce a un bouton cette recherche dans une autre table appelle machine.

Merci pour votre aide

[tee_grandbois]

Bonjour,
voici un exemple de code pour insérer les enregistrements à partir du sous-formulaire.
Il doit être inséré sur l'évènement click du bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim sSQL as string
Dim oRs As Recordset
Set oRs = Me.RecordsetClone        ' Chargement des enregistrements sélectionnés
If ors.RecordCount > 0 Then
     ors.MoveFirst
     DoCmd.SetWarnings False
     Do Until ors.EOF
        ' Construction de la requête d'insertion
        sSQL = "INSERT INTO Machine (produit,marque,référence,emplacement)"
        sSQL = sSQL & " VALUES (""" & ors.("produit") & """," & ors.("marque") & """," & ors.("référence") & """," & ors.("emplacement") & """"
' ou sans guillemets si tous les champs sont de type numérique: 
'       sSQL = sSQL & " VALUES (" & ors.("produit") & "," & ors.("marque") & "," & ors.("référence") & "," & ors.("emplacement") 
        sSQL = sSQL & "); "
	' Exécution de la requête
	CurrentDb.Execute sSQL, dbFailOnError
        ors.MoveNext
     Loop
	DoCmd.SetWarnings True 
End If
 
Msgbox "insertion terminée"
set ors = nothing

[vald59]

Bonjour,

Je vous remercie pour votre réponse, j'ai une erreur de syntaxe au niveau de la ligne sSQL & " VALUES (""" & ors.("produit")...... ?

[tee_grandbois]

bonjour,
oui, erreur d'écriture de code, des guillemets manquants et des points en trop.
Voila la correction:

Code :

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

        sSQL = sSQL & " VALUES(""" & ors("produit") & """,""" & ors("marque") & """,""" & ors("référence") & """,""" & ors("emplacement") & """"

désolé

[vald59]

Bonjour,

Désolé encore une fois il arrive pas reconnaître "Set oRs = Me.RecordsetClone " ?

MERCI

[tee_grandbois]

Merci de donner le numéro et le descriptif d'erreur en cas de plantage, cela peut aider.
Pense à compiler le code après chaque modif (dans fenêtre VBA / Déboguage / Compiler ...)

[vald59]

Bonjour,

oui,j'ai une erreur d'exécution "7951"
"vous avez entré une expression dont la référence à la propriété clôneRecordset n'est pas valide" ?

Merci pour votre réponse

[tee_grandbois]

Bonjour,
l'erreur indique que l'on ne peut pas cloner le jeu d'enregistrements, autrement dit, il n'y a pas de source de données.
Y a t-il des enregistrements dans le sous-formulaire ?
Le bouton est-il bien placé à l'endroit où se trouve les enregistrements ?
Serait-il possible d'avoir une impression d'écran du formulaire (mode création et mode formulaire) ?

Pour le moment, tu ne montres pas grand chose de tes réalisations, donc difficile de trouver du premier coup.