Discussion :

[lio62]

Bonjour,

je voudrai copier la valeur d'une case à cocher d'un formulaire vers la case a cocher d'une table

j'ai un formulaire F_UTILSATEUR avec un champ caseacocher20 et j'ai une table T_UTILISATEUR avec un champ case a cocher



merci de votre aide

cordialement

[hyperion13]

Salut
Si le form est alimenté par la tbl il n'y a rien à faire de particulier.
Sinon

Code :

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

1
2
3
UPDATE MaTable
SET caseacocher20 = Me.caseacocher20
WHERE UnChamp = "Valeur"

[lio62]

Bonsoir et merci de ton aide mais c'est le contraire c'est le formulaire qui doit alimenter
la table

cdlt

[marot_r]

Bonjour.

C'est ce que fait le code de hyperion13 .
Il copie la valeur du champ du formulaire Me.caseacocher20 dans le champ de la table caseacocher20.

Une question, pourquoi ne pas utiliser un formulaire lié ? Comme cela Access s'occupe de tout cela sans une seule ligne de code.
Et si on a besoin on peut même, avec un peu de code, lui demander de confirmer les modifications.

A+

[lio62]

Bonjour HYPERYON et merci de votre aide je ne devais pas avoir les yeux en face des trous hier je vais tester

Bonjour Marot je me suis peut être emmêler les pinceaux je vais essayer les deux solutions.

Bonne journée

cordialement

[lio62]

Bonjour

et encore
merci pour votre aide j'ai une erreur de compilation sur T_UTILISATEUR, variable non définie ?

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
61
Private Sub VALIDER_Click()
 
 
 
 
    'Appel d'une variable
    Dim valide As String
    'Rechercher le mot de passe correspondant à l'identifiant
    If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")) Then
    MsgBox ("Identifiant inconnu !")
     Me.TXTID.SetFocus
     Me.TXTID = ""
    Else
     valide = DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
    'Si le mot de passe inscrit n'est pas correct alors
    If (Me!MDP <> valide) Or IsNull(Me!TXTID) Or IsNull(Me!MDP) Then
    'Message
    MsgBox ("Mot de Passe incorrect !")
     Me.MDP.SetFocus
       Me.MDP = ""
        'Sinon
 
       Else
 
 
     securite = DLookup("Utilisateur", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID")
 
       Select Case securite
 
         Case "ADMIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
         Case "GESTPRIN"
         'DoCmd.Close acForm, "F_IDENTIFICATION"
         DoCmd.OpenForm "F_MENU"
 
 
           Case "GESTSEC"
 Update T_UTILISATEUR
           Set connect = Me.connect
           WHERE connect = True
    
          ' Forms![F_IDENTIFICATION].Visible = False
          'DoCmd.Close acForm, "F_IDENTIFICATION"
          DoCmd.OpenForm "F_MENU"
 
 
 
      Case Else
       End Select      
 
 
End If
End If
 
 
   
 
 
End Sub

[lio62]

j'ai mis ce code mais il me coche l'ensemble du champs case a cocher

mais je voudrai qu'il ne coche que la case a cocher de l'identifiant qui a été entré dans la formulaire

Code :

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

DoCmd.RunSQL ("UPDATE[T_UTILISATEUR]SET [T_UTILISATEUR].connect=true;")

[tee_grandbois]

bonsoir,

mais je voudrai qu'il ne coche que la case a cocher de l'identifiant qui a été entré dans la formulaire

d'où l'utilité de la clause WHERE précisé dans le code d'hyperion13, que tu as su pourtant utiliser dans ce code:

Code :

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

If IsNull(DLookup("MDP", "T_UTILISATEUR", "[ID] = Forms!F_IDENTIFICATION!TXTID"))

[lio62]

Bonsoir TEE GRANDBOIS

merci mais

ce n'est pas moi qui avait trouvé celà ....

cordialement

[tee_grandbois]

merci mais

ce n'est pas moi qui avait trouvé celà ....

d'accord, mais cela va être dur pour la suite si tu copies du code sans chercher à comprendre ce qu'il fait ... l'aide Microsoft est pourtant très accessible même si la traduction automatique laisse quelques fois à désirer:
DLookup
SQL Access
le tuto SQL du forum

est-ce que cela a résolu ton problème au moins ?

[lio62]

merci je regarde celà

bonne journée

[lio62]

Bonjour et merci


en lisant les liens de TEE GRANDBOIS et mes livres....

Code :

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

 DoCmd.RunSQL "UPDATE T_UTILISATEUR SET T_UTILISATEUR.CONNECT2= 1  where ID=  Forms!F_IDENTIFICATION!TXTID"

merci a tous pour votre aide

cdlt