Enregistrement des données dans une requete access à partir d'un form vb
Bonjour tous le monde
Voilà j'ai un problème j'ai créé 4 tables(T_Agences, T_DR, T_Connexion et T_NAS). Les clés primaires des 3 dernières tables sont des clés secondaires de la table T_Agence.
Ensuite j'ai créé une requete qui prend tous les champs de T_agence, Nom_DR de T_DR, type_connexion de T_Connexion et type_nas de T_NAS.
Tout ça c'est fait sous access.
Et sous vb j'ai créé un formulaire comportant les éléments de la requête où type_nas et type_connexion sont datacombo alimentés par leur tables.
Maintenant le problème est que si je saisis les données et que je veuille les ajouter au niveau de la requête j'ai un message d'erreur me disant que l'objet est en lecture seule.
J'aimerai que vous m'aidiez ou me proposer une autre solution je dois rendre l'application dans 2 jours SVP.
Aussi je dois effectuer des recherches à partir de la requête.
Les recherches sont: afficher les noms d'agence selon le type de connexion et selon le type de NAS.
Je vous donne mon code ajouter et la connexion à la requête que j'ai fait sous vb
Code:
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
| Private Sub Cmdajout_Click()
If (Textcodesi.Text = "" And Textnomag.Text = "" And Textnumtel.Text = "" And _
Textdr.Text = "" And Textloop.Text = "" And Textbri.Text = "" And Cmbstat.Text = "" And _
Textnumipls.Text = "" And Cmbcon.Text = "" And Cmbnas.Text = "" And _
Textobs.Text = "" And Textnom.Text = "" And Textpren.Text = "" And _
Textport.Text = "" And Textemail.Text = "") Then
MsgBox "Les champs sont vides !", vbCritical
Else
Tb.AddNew
Tb![nom_agence] = Textnomag.Text
Tb![code_sibanque] = Textcodesi.Text
Tb![nom_dr] = Textdr.Text
Tb![num_tel] = Textnumtel.Text
Tb![num_ipls] = Textnumipls.Text
Tb![loopback] = Textloop.Text
Tb![adresse_ipbri] = Textbri.Text
Tb![statut] = Cmbstat.Text
Tb![type_connexion] = Cmbcon.Text
Tb![type_nas] = Cmbnas.Text
Tb![prenom_gerant] = Textpren.Text
Tb![nom_gerant] = Textnom.Text
Tb![portable_gerant] = Textport.Text
Tb![email_gerant] = Textemail.Text
Tb![observations] = Textobs.Text
Tb.Update
TabStrip.Tabs.Item(2).Caption = "Gestion des Agences"
Call EffacerChamps
'End If
End If
TabStrip.Tabs.Item(1).Selected = True
End Sub |
Pour la connexion :
Code:
1
2
3
4
5
6
7
8
9
10
| Private Sub Form_Load()
bd.Provider = "Microsoft.jet.oledb.4.0"
bd.ConnectionString = App.Path & "\Les_Caisses.mdb"
bd.Open
Tb.Open "select * from R_Agences ", bd, adOpenDynamic, adLockOptimistic
Call Ajuster
End Sub |
Merci d'avance
