Forum - Questions générale - Sujet n°777

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 08/12/2016 : 13:15  Sujet n° 777  Dans un formulaire, sélection unique d'un enregistrement

le 31/10/2016 : 09:40
par possible924

Anonyme

visiteur

Bonjour à tous,
Dans un formulaire en mode continu, j'ai un champ "Dom_Sélect" de type Booléan. Je ne souhaite pouvoir ne sélectionner qu'un seul enregistrement, et donc, avant de donner la valeur -1 à un enregistrement, je met au préalable tous les enregistrements à la valeur 0, puis je met l'enregistrement actif à -1.
L'idée me semblait bonne, mais j'obtiens un message de conflit d'écriture.
Que faire pour contourner ce problème ?

Merci par avance pour votre aide

 sujet clos  Haut
Réponse n° 1
--------
le 31/10/2016 : 17:19
par 3Stone

3Stone

Administrateur

Bonjour,
 
Citation :

avant de donner la valeur -1 à un enregistrement, je met au préalable tous les enregistrements à la valeur 0, puis je met l'enregistrement actif à -1.

 
Ca, c'est pour la théorie...
 
Citation :

L'idée me semblait bonne, mais j'obtiens un message de conflit d'écriture.

 
Oui, mais comment fais-tu ?
Comment différencie tu les enregistrements du formulaire continu ?

Cordialement,
Pierre (3Stone)
  clos par 3Stone le 08/12/2016 : 13:15  Haut
Réponse n° 2
--------
le 01/11/2016 : 07:34
par possible924

Anonyme

visiteur
Voilà ce que j'ai fait, ça marche bien, le champ Dom_Sélect pour tous les enregistrement à 0 à la réception du focus sur le contrôle DomSélect.

Private Sub Dom_Sélect_GotFocus()
Sélect = Me.Dom_Sélect
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE T_Domiciliations SET T_Domiciliations.Dom_Sélect = 0 WHERE T_Domiciliations.Dom_Clé_Usager= " & Me.Parent.CléP_Usager
DoCmd.SetWarnings True
End Sub
Private Sub Dom_Sélect_Click()
DoCmd.RunCommand acCmdSaveRecord
End Sub
Private Sub Dom_Sélect_AfterUpdate()
If Sélect = -1 Then
Me.Dom_Sélect = 0
Else
Me.Dom_Sélect = -1
End If
End Sub
Private Sub Form_Close()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE T_Domiciliations SET T_Domiciliations.Dom_Sélect = 0"
DoCmd.SetWarnings True
End Sub


Bonne journée
A+
  clos par 3Stone le 08/12/2016 : 13:15  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut