Discussion :

[stefon]

J'ai deux formulaires dont un qui s'ouvre a l'aide d'un macro une fois que je clique sur la case a cocher , le probleme c'est que cette case mm si elle apparait cocher dans mon formulaire elle ne l'est pas dans ma table

J'avais pensé a entrer une ligne de commande dans ma macro pour lui dire d'affecter la valeur -1 a cette case mais comment faire ?

Merci

[stefon]

Personne ?

[vador972]

Salut,
Par exemple base toi sur ce code que tu placera sur l'évènement 'Sur Clic' d'un contrôle de type bouton :

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
 
 
Sub Maj_Click()
Dim MyRec As Recordset
 
 
'ouverture d'un recordset
Set MyRec = CurrentDb.OpenRecordset("SELECT NomDuChamp FROM NomDeTaTable WHERE ChampClePrimaire=" & ValeurClePrimaire & ";")
 
'mise à jour des données
With MyRec
    .Edit
    .Fields(0) = True
    .Update
    .Close
End With
 
End Sub

[stefon]

Oui mais je n'ai pas le code pour ajouter -1 à interventions.immo

[vador972]

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
 
Sub Maj_Click()
Dim MyRec As Recordset
If CaseACocher.value=1 then  'si la case est cochée
 
  'ouverture d'un recordset
  Set MyRec = CurrentDb.OpenRecordset("SELECT Intervention FROM      immo WHERE intervention.ClePrimaire=" & ValeurClePrimaire & ";")
 
  'mise à jour des données
  With MyRec
      .Edit
      .Fields(0) = -1
      .Update
      .Close
  End With
End If
 
  End Sub

[stefon]

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
Sub Maj_Click()
Dim MyRec As Recordset
If CaseACocher.value=1 then  'si la case est cochée

  'ouverture d'un recordset
  Set MyRec = CurrentDb.OpenRecordset("SELECT Interventions.immo FROM  Interventions WHERE intervention.ClePrimaire=" & ValeurClePrimaire & ";")

  'mise à jour des données
  With MyRec
      .Edit
      .Fields(0) = -1
      .Update
      .Close
  End With
End If

  End Sub

OK
En rouge c'est ce que j'ai modifié car je pense que tu as inversé les tables et champs ?!
En bleu je dois rentrer quelles valeurs ?

Merci pour tout

[vador972]

En blue c'est le nom du champ contenant ta clé primaire (en espérant que tu en aies créee une).

[stefon]

En blue c'est le nom du champ contenant ta clé primaire (en espérant que tu en aies créee une).

Oui biensur , ma clé primaire est un numero auto , je ne vois pas quelle valeur lui rentrée apres interventions.clé primaire ?

[vador972]

Alors :
Tu crée une zone de texte basé sur cette même table affichant le numéro de la clé. Appelons ce Champ texte 'ClePrim' :

Code :

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

1
2
 
Set MyRec = CurrentDb.OpenRecordset("SELECT Interventions.immo FROM  Interventions WHERE intervention.ClePrimaire=" & ValeurClePrimaire & ";")

devient :

Code :

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

1
2
 
Set MyRec = CurrentDb.OpenRecordset("SELECT Interventions.immo FROM  Interventions WHERE intervention.ClePrimaire=" & Cleprim.Value & ";")