verrouiller le contenu d'un champ pour qu'il soit répéter dans l'enregistrement suivant [Résolu]

[thomyvp]

Bonjour @ tous,

je suis en train de créer une db avec un formulaire pour la gestion de notre inventaire mobilier

il se peut que des objets différents aient la même date d'achat, la même catégorie d'objet, le même descriptif, le même numéro de facture, la même date facture, ....(ex gsms, ordinateurs...)

je aimerais lorsque j'encode ce genre d'enregistrements je puisse verrouiller les champs (petit cadenas qui change de couleur), pour ne pas devoir chaque fois ré-encoder des données qui sont identiques.

quelqu'un à une idée de comment je pourrais m'y prendre

merci

[ClaudeLELOUP]

Bonjour,

Jette un coup d'œil sur cette discussion aux posts 65 et 66.

[rjamin]

Bonjour,
Dans Access on peut recopier la donnée du même champ de l'enregistrement précédent dans le champ de l'enregistrement en cours.
Si je me trouve dans le champ N°Facture et que le N° de facture est le même qu'à la ligne précédente on tape Ctrl+" et il y a recopie de la donnée prcédente.

[thomyvp]

Bonjour @ tous,....

si j'ai bien compris je dois stocker mes données formulaires dans des variables globales lorsqu'il y a un évènement sur le cadenas et les recopier dans l'enregistrement suivant

lorsque l'utilisateur réactive le cadenas libérer le contenu des variables globales...

cela nécessite l'utilisation d'un flag au nivau global pour voir si c'est le premier de l'utilisateur ou le deuxième...

Merci

[loufab]

Bonjour,

A la place des variables globales tu peux directement te servir de la propriété Valeur par défaut des controles.
Quand ton cadenas est activé tu copie les valeurs dans la propriété et quand tu desactive tu remets à blanc.

Il existe beaucoup de solutions différentes.

Cordialement,

[thomyvp]

bonjour @ tous,

voila ce que j'ai implémenté

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Function ApplyDefaultValue(ctrDefault As Control)
Dim ActualDefaultValue As String
ActualDefaultValue = Nz(ctrDefault.DefaultValue, "0")
If ActualDefaultValue = "" Then
If ctrDefault.Value <> "" Then
ctrDefault.DefaultValue = "'" & ctrDefault.Value & "'"
ctrDefault.ForeColor = RGB(255, 0, 0)
Else
MsgBox "vous ne pouvez pas affecter une valeur par défaut vide complétez tout d'abord le champ correspondant", vbInformation, "Inventaire"
Exit Function
End If
Else
ctrDefault.ForeColor = RGB(59, 59, 59)
ctrDefault.DefaultValue = ""
End If
End Function
 
Private Sub FactureDefaultValue_Click()
    ApplyDefaultValue TxtFacture
End Sub