Discussion :

[etranger]

Bonjour,

J'ai un projet à rendre dans quelques jours et je bloc sur une chose ou deux choses :

J'ai créer un formulaire pour consulter des enregistrements, à partir de ce formulaire, j'aimerais pouvoir séléctioner un enrgistrement et en cliquant sur un bouton ouvrir un nouveau formulaire qui me permet de modifier le détails de l'enregistrement (donc ouvrir un formulaire à un enregistrement précis qui est celui qui a été sélectioné dans le formulaire de visionement).

J'aimerais égualement pouvoir modifier le titre de se formulaire de modifiquation.

Merci d'avance pour vos réponces.

[Oleff]

Bonjour,
La sélection d'un enregistrement précis est assez facile, il suffit d'utiliser la clause where de l'objet docmd

Code :

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

docmd.openForm "tonForm", , , "id = " & idRecord

A adapter à ta base et à tes champs.

Pour changer le titre, tout dépend de la forme de celui-ci.
Si c'est une étiquette, il faut que tu modifies sa légende

Code :

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

Me.tonEtiquette.caption = "Titre"

Tu peux le faire sur ouverture de ton formulaire en oubliant pas le requery sur l'étiquette.

[anouar_chaieb]

Ou bien ce code :

Code :

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

1
2
3
 If (Forms![1erForm]!champs où tu vas choisir l'enreg ) Then
        DoCmd.OpenForm "2èmeForm à afficher", acNormal, "", "", , acNormal
    End If

[etranger]

Merci pour votre aide.

il y a encore une chose que je n'est pas compris : comment recupérer l'enrgistrement sélectioner (via le sélecteur d'enregistrement) ?

Pour changer le titre, tout dépend de la forme de celui-ci.
Si c'est une étiquette, il faut que tu modifies sa légende

il sagit de la légende du formulaire.

[Oleff]

Il faut que tu récupères les valeurs de clé et non le numéro d'enregistrement.
Le numéro d'enregistrement est un entier long qui est attribué par access au recordset en cours et n'a donc pas de valeur hors de celui-ci.

[dretore]

Bonjour,

tu peux aussi selectionner l'enregistrement à partir d'une liste déroulante et mettre ce code

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
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Machine"
 
    stLinkCriteria = "[NumMachine]=" & "'" & Me![NumMachine] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

[etranger]

merci a vous tous pour vos réponces