Discussion :

[corwin44]

salut,

je suis en train de faire un base de donnée access ou l 'on peut consulter et modifier les données.
j ai une page ou l on affiche les enregistrements. A partir de cette page je veut pouvoir modifier l enregistrement selectionner dans la zone de liste.
pour cela j ai creer un bouton qui qd on a selectionner une ligne doit ouvrir un autre formulaire ou l on a tt les données concernant l enregistrment selectionnée. A partir de cette page, un formulaire avec des renseignements affichées dans des cases en justifiés, on peut modifier les anregistrements.
code du bouton:

Code :

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

1
2
3
4
5
6
7
Private Sub modification_Click()
If (IsNull(Me!resultatRecherche) Or (Me!resultatRecherche = "Id")) Then
      MsgBox "Aucun élément sélectionné dans la liste.", vbCritical
  Else
    Application.DoCmd.OpenForm "formulaireProduit", , , "  NomProduit =" & resultatRecherche.Column(5) & ""
  End If
End Sub

resultatRecherche et la zone de liste de base
formulaireProduit et le formulmaire d arrivée.

le pb c qu cela ne fonctionne pas, il m ouvre une fenetre qui porte le nom du produit et qui me demande de saisir le parametre...
ce que je veut ca de passer le parametre sans avoir a le saisir a la main.

Merci d avance

[cafeine]

Hello,

ta condition Where me paraît rédigée avec un petit manque de rigueur

Code :

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

Application.DoCmd.OpenForm "formulaireProduit", , , "  NomProduit =" & resultatRecherche.Column(5) & ""

NomProduit semble être du texte, donc il manque les Quotes (')

essaie avec cette notation :

Code :

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

DoCmd.OpenForm "formulaireProduit", , , "[NomProduit] = '" & Me.resultatRecherche.Column(5) & "'"

[corwin44]

salut,

trop fort cafeine... rapide efficace
merci bcp