Problême sur Access 97
Marie D
-
Marie D -
Marie D -
Bonjour,
Voici mon problême et j'espèe que vous pourrez le comprendre et m'aider
En fait j'ai un premier formulaire "descriptif" , puis, un bouton permet d'accéder à un autre formulaire "validation" où les utilisateurs cochent leur validation.
J'aimerai maintenant créer un fiche de suivi (où apparaitra certains champs du premier et du second formulaire) seulement consultable et non modifiable où l'utilisateur pourra appeler les enregistrments en tapant le nom du client.
Merci d'avance à tous
Voici mon problême et j'espèe que vous pourrez le comprendre et m'aider
En fait j'ai un premier formulaire "descriptif" , puis, un bouton permet d'accéder à un autre formulaire "validation" où les utilisateurs cochent leur validation.
J'aimerai maintenant créer un fiche de suivi (où apparaitra certains champs du premier et du second formulaire) seulement consultable et non modifiable où l'utilisateur pourra appeler les enregistrments en tapant le nom du client.
Merci d'avance à tous
A voir également:
- Problême sur Access 97
- Indicatif 97 - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
2 réponses
Bonsoir,
Voilà un module pour appeler un enregistrement via une liste déroulante.
Je l'utilise sous ACCESS 2000 mais il devrait fonctionner sous 97 en adaptant les données.
Private Sub Afficher_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[RéfContact] = " & Str(Me![Afficher])
Me.Bookmark = rs.Bookmark
End Sub
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES
Voilà un module pour appeler un enregistrement via une liste déroulante.
Je l'utilise sous ACCESS 2000 mais il devrait fonctionner sous 97 en adaptant les données.
Private Sub Afficher_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[RéfContact] = " & Str(Me![Afficher])
Me.Bookmark = rs.Bookmark
End Sub
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES
Bonjour,
Merci pour votre aide.
J'ai saisi le code indiqué à ma liste déroulante mais cela ne marche pas.
J'ai saisi:
Private Sub Afficher_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NOM_DU_CLIENT] = " & Str(Me![Afficher])
Me.Bookmark = rs.Bookmark
End Sub
Pouvez-vous m'aider s'il vous plait?
Merci d'avance,
Cordialement.
Merci pour votre aide.
J'ai saisi le code indiqué à ma liste déroulante mais cela ne marche pas.
J'ai saisi:
Private Sub Afficher_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NOM_DU_CLIENT] = " & Str(Me![Afficher])
Me.Bookmark = rs.Bookmark
End Sub
Pouvez-vous m'aider s'il vous plait?
Merci d'avance,
Cordialement.
Bonjour,
Chez moi ce code fonctionne sans incident. Mais il est vrai que je suis en ACCESS 2000.
Si ce n'est pas indiscret, je jetterais volontiers un coup d'oeil sur votre travail.
Si vous êtes d'accord, volà mon adresse.
arbaretier@jeanjacques@wanadoo.fr
Cordialement
La science se limite à trouver ce qui existe depuis toujours
Hubert REEVES
Chez moi ce code fonctionne sans incident. Mais il est vrai que je suis en ACCESS 2000.
Si ce n'est pas indiscret, je jetterais volontiers un coup d'oeil sur votre travail.
Si vous êtes d'accord, volà mon adresse.
arbaretier@jeanjacques@wanadoo.fr
Cordialement
La science se limite à trouver ce qui existe depuis toujours
Hubert REEVES
