Bonjour,
Dans mon IHM j'ai mis des "CheckBox", j'arrive parfaitement a ecrire les selections dans ma bes de de donnée Access (Information declaré en "Oui/Non dans access). Mais par contre inpossible de relire les informations de mes selection, j'ai une erreure de "proprité" pourquoi et comment resoudre cela ?
Merci pour votre aide.
Sébastien
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87 '========================= '===Creation de la base=== '========================= Private Sub Command1_Click() Dim db As Database Dim rs As Recordset Dim sql As String Set db = OpenDatabase(App.Path & "\BDD_97.mdb") 'On séléctionne tous les champs de la table sql = "select * from Table1" 'on est bien en mode écriture (dbOpenDynaset) Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'Pour ajouter un enregistrement rs.AddNew rs.Fields("Nom") = TxtNom.Text rs.Fields("Prenom") = TxtPrenom.Text rs.Fields("Age") = TxtAge.Text rs.Fields("Dossier") = TxtNumDossier.Text '''''''''''ECRITURE DANS LA BASE OK rs.Fields("toto") = Chktoto.Value rs.Fields("tata") = Chktata.Value 'Une fois les valeurs définies, on met à jour rs.Update rs.Close MsgBox "Création de la Base Réussie", vbInformation, "Enregistrement..." End Sub '======================== '===Lecture de la base=== '======================== Private Sub Command2_Click() Dim db As Database Dim rs As Recordset Dim sql As String Set db = OpenDatabase(App.Path & "\BDD_97.mdb") 'On séléctionne tous les champs de la table sql = "select * from Table1" 'Remarqué la présence de ' obligatoire pour le bon fonctionnemnt sql = "select * from Table1 where Nom='" & TxtNom.Text & "' " Set rs = db.OpenRecordset(sql, dbOpenSnapshot) 'Verification si information est dans la base If rs.EOF = False Then TxtDossier.Text = rs.Fields("Auto") TxtNom.Text = rs.Fields("Nom") TxtPrenom.Text = rs.Fields("Prenom") TxtAge.Text = rs.Fields("Age") TxtNumDossier.Text = rs.Fields("Dossier") '''''''''RELECTURE DE TOTO ET TATA MARCHE PAS ??????? Chktoto.Value = rs.Fields("toto") Chktata.Value = rs.Fields("tata") Else MsgBox "Pas d'information dans la Base", vbCritical, "Attention" Exit Sub End If 'dbOpenSnapshot à la place du dbOpenDynaset en mode "écriture" sql = "select * from Table1 where Nom='" & TxtNom.Text & "' and Age='" & TxtAge & "' " Set rs = db.OpenRecordset(sql, dbOpenSnapshot) TxtDossier.Text = rs.Fields("Auto") TxtNom.Text = rs.Fields("Nom") TxtPrenom.Text = rs.Fields("Prenom") TxtAge.Text = rs.Fields("Age") TxtNumDossier.Text = rs.Fields("Dossier") Chktoto.value = rs.Fields("toto") Chktata.Value = rs.Fields("tata") MsgBox "Chargement des Valeurs Réussi", vbInformation, "Chargement..." 'Une fois les valeurs définies, on met à jour rs.Close End Sub
Partager