Discussion :

[abdel11]

Bonsoir
merci de m'aider pour pouvoir imprimer un seul enregistrement da ma base de données.
comment faire SVP.cordialement.
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
On Error GoTo Err_Voir_Lettre_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "impression1"
    stLinkCriteria = "[N°]=" & Me![N°]
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_Voir_Lettre_Click:
    Exit Sub
Err_Voir_Lettre_Click:
    MsgBox Err.Description

code copier sur un forum, mais ne fonctionne pas
SVP aidez-moi
merci

[Renardo]

Bonjour
essai comme cela

Code :

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

DoCmd.OpenReport "impression1", acViewNormal, "", "[N°]=[Forms]![NomFormulaire]![NomChamp]", acNormal

Remplace NomFormulaire par le nom de ton formulaire et leNomChamp par le nom de ton controle

[abdel11]

Bonsoir
Merci pour votre réponse
je ne pourrais tester maintenet je ne possède pas d'imprimante chez moi...!
merci encore, une fois tester je vous tiendrais au courant.
cordialement

[abdel11]

Bonjour, merci pour votre réponse,
je viens de tester mais lca ne marche pas.
erreur :
le champ spécifié peut désigner plusieurs tables listéés dans la clause FROM de votre instruction SQL.
merci pour votre aide.

[Tofalu]

Bonjour

Dans ce cas, il faut préfixer le nom du champ par le nom de sa table.

Exemple :

tblClient.IDClient

[abdel11]

Bonsoir
merci pour votre réponse.
je ne sais pas comment m'y prendre svp un ptit exemple si c'est posible
merci encore pour votre aide si précieuse.
cordialement

[Rémi GAUDINAT]

Bonsoir,
afin de pouvoir imprimer un seul enregistrement d'une table il faut au préalable l'identifier par son numéro unique d'identification (éventuellement numéro auto).
Il peut y avoir plusieurs solutions, mais pour ma part ce que je fais la plupart du temps c'est un formulaire de recherche contenant une list box reflétant tous les enregistrements avec une instruction de type OpenReport sur sortie du formulaire de ce style.

Code :

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

DoCmd.OpenReport "MON_ETAT", acViewPreview, "", "", acDialog

Sur la list box une intruction sur sortie pour renvoyer le numéro de l'enregistrement en mémoire.

Code :

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

numero_choisi = Me.ma_list_box.Value

la variable "numero_choisi" étant une variable publique dans un module.

Code :

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

Public numero_choisi As Long

Ensuite il ne reste plus qu'à mettre une instruction sur ouverture de l'état et le tour est jouer.

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
Report.RecordSource = "SELECT ma_table.* FROM ma_table WHERE (((ma_table.numero_identification)=" & numero_choisi & "));"
End Sub

Ca fait parti des solutions envisageables, je ne dis pas que c'est la meilleure, mais ça reste assez simple à programmer.
Bon courage

[abdel11]

Bonsoir , je vous remerci pour votre réponse,
ca na pas marché pour moi
merci en tout cas c'est gentil
cordialement

[abdel11]

Bonjour à tous
merci pour l'aide
voila la solution à mon problème
code

Code :

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

1
2
3
4
5
6
7
Private Sub Commande53_Click()
On Error GoTo Err_Voir_Lettre_Click
DoCmd.OpenReport "nom etat", acViewNormal, "", "[table1.n°]=" & Me![Table1.N°] ' [Forms]![saisie1]![table1.n°]", acNormal
Exit_Voir_Lettre_Click:
    Exit Sub
Err_Voir_Lettre_Click:
    MsgBox Err.Description

merci encore à la prochaine question.
cordialement.