Discussion :

[martonpylon12]

bonjour,

j'aimerais que lorqsue j'ouvre mon formulaire, je puisse choisir une valeur qui, jusqu'à la prochaine ouverture du formulaire serve de valeur par default pour un de ses champs.

par exemple il s'ouvre et me demande la valeur. Je rempis "premier" et tous les enregistrements que je vais renseigner avant la fermeture du form auront un champ précis dont la valeur sera "premier" sans que j'aie à la saisir.

Et pouvoir changer la valeur à chaque ouverture du form, ou en cliquant sur un bouton dans le form.

Comment pouvoir faire ??

merco et a++

[STEF_1]

Oyé,

Voilà une solution parmi t'en d'autre

Il faut créer une table, disons T_PARAM_APPLI avec 1 Champ : VALFORM
et dans ton formulaire tu mets :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Private Sub Btn_ChangeVal_Click()
If SearchValDefault(1) = False Then MsgBox "Valeur non changé"
End Sub
 
Private Sub Form_Open(Cancel As Integer)
If SearchValDefault(0) = False Then
    Cancel = True
    MsgBox "Pas de valeur par défault de renseigné"
    Exit Sub
End If
End Sub
 
 
 
Function SearchValDefault(ID As Long) As Boolean
 
    ' 0 --> ENTRER DANS LE FORMULAIRE
    ' 1 --> NOUVELLE VALEUR
 
    Dim Rs As DAO.Recordset
    Dim RetVal As String
 
    Set Rs = CurrentDb.OpenRecordset("T_PARAM_APPLI")
        If Rs.BOF Then      ' Pas de valeur dans ta table
            RetVal = InputBox("MERCI DE RENSEIGNER LA VALEUR PAR DEFAULT", "...")
            If RetVal = "" Then ' Annul ou rien de renseigné
                SearchValDefault = False
            Else
                Rs.AddNew
                    Rs!VALFORM = RetVal
                Rs.Update
                Me.NomDeLAZone = RetVal
                SearchValDefault = True
            End If
 
        Else    ' Il y a déjà une valeur
            Select Case ID
                Case 0  ' entrer dans le form, on informe de la valeur
                    SearchValDefault = True
                    MsgBox "La Valeur par défault est " & Rs!VALFORM
                    Me.NomDeLAZone = Rs!VALFORM
                Case 1  ' nouvelle saisie
                    RetVal = InputBox("MERCI DE RENSEIGNER LA VALEUR PAR DEFAULT", "...")
                    If RetVal = "" Then ' Annul ou rien de renseigné
                        SearchValDefault = False
                    Else
                        Rs.Edit
                            Rs!VALFORM = RetVal
                        Rs.Update
                        Me.NomDeLAZone = RetVal
                        SearchValDefault = True
                    End If
            End Select
        End If
    Rs.Close: Set Rs = Nothing
 
 
End Function

Il faut aussi créer un bouton Btn_ChangeVal

A++

[martonpylon12]

merci STEPH_1 pour la réponse.

Par contre, j'ai mis le code dans celui de mon form, et quand je l'ouvre, un message d'erreur apparait au niveau de la ligne

Code :

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

Dim Rs As DAO.Recordset

qui me dit "Type défini par l'utilisateur non défini" : : :

c'est quoi ça ??

[STEF_1]

il faut cocher la référence à la bibliothèque DAO dans Outils /référence de ta fenêtre VBA

[Tofalu]

Le nom de la référence est Microsoft DAO X.X. Coche la version la plus récente.

[martonpylon12]

j'ai coché "microsoft ActiveX data object 2.7 library" et
"microsoft ActiveX data object Recordset 2.7 library"

mais ça me fait pareil ??

j'espère que c'est ça DAO

[STEF_1]

La desc exacte est

Micosoft DAO 3.6 Object Library

[martonpylon12]

ok merci stef,

pour ça c'est ok

par contre quand je lance le formulaire, la fenêtre "MERCI DE RENSEIGNER LA VALEUR PAR DEFAULT" s"affiche bien, je la remplis. Mais il me met un message de débogage au niveau de la ligne :

Code :

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

Me.NomDeLaZone = RetVal

.

Le nom que j'ai entré existe bien dans la table et dans le formulaire. ?

[STEF_1]

A la place de nomdelazone, tu doit mettre le nom du champ dans laquelle tu veut mettre ta valeur par défault.

[martonpylon12]

oui, c'est fait j'ai mis

Code :

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

Me.Adversaire

car le champ se nomme "Adversaire"

pourtant ça devrait marcher il me semble, il me dit bien "la valeur par defaut est "ce quej'ai mis"" : :

[STEF_1]

tu as un message d'errezur ?
me.adversaire est bien une zone de texte ?

Tu as bien changé partout NomDeLaZone en Adversaire


...

[Papy Turbo]

Excuse moi si je n'ai pas bien compris, mais, si je reviens à la question d'origine, qui consiste à mettre une valeur par défaut pour le champ 'Adversaire', j'aurais mis, dans l'évènement Form_Load du formulaire :

Code :

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

    Adversaire.DefaultValue  = InputBox ("Valeur par défaut pour l'adversaire ?")

C'est ça que tu veux ?

[martonpylon12]

merci papy turbo c'était effectivement ça

a++

[martonpylon12]

par contre, petite précision :

quand je mets un nombre ça marche, mais pas quand je mets du texte.

: il me met "#Nom"

[Tofalu]

Pour du texte, il faut peut être insérer des quotes

Code :

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

Adversaire.DefaultValue  = chr(39) & InputBox ("Valeur par défaut pour l'adversaire ?") & chr(39)

De quel type est ton champ adversaire ?

[martonpylon12]

merci tofalu, ça marche apparemment

le champ est au format texte.

a++

[Papy Turbo]

Exact, merci Tofalu : il faut passer à la propriété 'DefaultValue' exactement ce que tu mettrais dans la propriété 'Valeur par défaut' du contrôle du formulaire.
Quand tu tapes du texte dans la propriété en mode Création de formulaire, Access rajoute automatiquement les guillemets. Dans le code, il faut le faire toi même (trop nul, cet Access )