Discussion :

[arindor]

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 :

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
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 :

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

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

[Hatchepsout]

[Cravis]

Il faut que tu ajout les donnée grâce à une instruction sql dans ta base accès et que tu fasse un requery sur ton recordset pour mettre les données à jour :

Exemple d'utilisation :

Code :

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

1
2
3
 
db.execute "INSERT INTO maTable (champ1,champ2,champn) VALUES (val1,val2,valn)"
tb.requery

[bricoyeye]

Salut,
si tu veux que tous tes textes soit renseigner, remplaces les and par les or:

Code :

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

1
2
3
4
5
If (Textcodesi.Text = "" or Textnomag.Text = "" or Textnumtel.Text = "" or _
 Textdr.Text = "" or Textloop.Text = "" orTextbri.Text = "" or Cmbstat.Text = "" or_
Textnumipls.Text = "" or Cmbcon.Text = "" or Cmbnas.Text = "" or _
Textobs.Text = "" or Textnom.Text = "" or Textpren.Text = "" or _
Textport.Text = "" or Textemail.Text = "") Then

Avec And, 1 seul texte renseigné, et ça passe à else, et si tes champs ne veulent pas de vide, erreur!

Esuite, verifis dans propriétes des textBox que locked soit à false