MisterSis
Messages postés4Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 juin 2005
-
15 juin 2005 à 11:17
MisterSis
Messages postés4Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 juin 2005
-
15 juin 2005 à 14:05
Bonjour à tous ! Je développe une application sous access et lorsque je renseigne les champs d'un formulaire de saisie, je souhaiterai que certaines donées soient conservées par défaut à l'ouverture suivante du même formulaire. Si qqn a une idéee ???
omsylv
Messages postés69Date d'inscriptionlundi 3 janvier 2005StatutMembreDernière intervention15 septembre 2005 15 juin 2005 à 13:50
A mon avis il faut que après ta requête, pour chaque champ dont tu veux garder la valeur par défaut tu dises :
'si ton champ est une zone de texte
Me.monchamp.DefaultValue = Me.mochamp.value
'Si ton champ est un combobox
Me.monchamp.DefaultValue = Me.monchamp.column(0) 'column(0)
c'est la valeur de la 1ere colonne, si tu as une colonne cachée il faut
alors faire column(1)
MisterSis
Messages postés4Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 juin 2005 15 juin 2005 à 14:05
Merci omsylv! J'ai esayé comme ca mais il me met erreur '2467' et "membre ou donnée introuvable ou supprimé". Y a peu être du temp à mettre derrière tout ca, non???
MisterSis
Messages postés4Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 juin 2005 15 juin 2005 à 11:37
Le problème c'est que je dois faire apparaitre les données par défaut (du dernier enregistrement) uniquement si en validant l'utilisateur répond oui à ma question! Voici mon bout de code en question :
Private Sub sauvegarder_enr_Click()
Dim rq As Recordset
Dim db As database
Dim nomclient As String
If (MsgBox("Voulez-vous enregistrer d'autres retours ?", vbYesNo) = vbYes) Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
DoCmd.OpenForm "Saisie_SAV_Reception"
Set rq = db.openrecordset("select [nomclient] from [SAV-Saisie]")
rq.MoveLast
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?