Discussion :

[aminepop]

ce code est en load de la form

Code :

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

1
2
3
4
5
6
7
Set con = New ADODb.Connection
con.Provider = "Microsoft.jet.oledb.4.0"
con.ConnectionString = App.Path & "\BDm.mdb"
con.Open
Set re = New ADODB.Recordset
re.Open "etudiants", con, adOpenDynamic, adLockBatchOptimistic
re.MoveFirst

et ce code dans le bouton enregistrer

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
With re.AddNew
 ![num_ins] = txtnum_ins.Text
 ![nom_eco] = txtnom.Text
 ![prenom_eco] = txtprenom.Text
 ![date_nais] = txtdate_nais.Text
 ![lieu_nais] = txtlnaissance.Text
 ![sexe] = cmbsexe.Text
 ![nationnalite] = txtnationnalite.Text
 ![adresse] = txtadresse.Text
 ![CP] = txtcp.Text
 ![Ville] = txtville.Text
 ![nom_p] = txtnom_p.Text
 ![prenom_p] = txtprenom_p.Text
 ![fonction_p] = txtfonction.Text
 ![CIN] = txtcin.Text
 ![tel_p] = txttel.Text
 ![niveau] = cmbniv.Text
 ![Groupe] = cmbgrp.Text
 ![frais_ins] = chk_ins.Value
 ![frais_assu] = chk_assu.Value
 ![frais_sco] = chk_sco.Value
 ![frais_inf] = chk_inf.Value
 ![frais_trans] = chk_trans.Value
 ![photo1] = strPhoto
 .Update
 End With
 MsgBox "Enregistrement efféctué avec succés...!", vbExclamation + 3, "Enregistrement"
enregistrer_seul.Enabled = False

il me demande que cette opération est non autorisé
.AddNew

[Delbeke]

Je ne connais pas bien ado, mais With re.AddNew ne parait incorrect
je verrais plustot

Code :

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

1
2
3
With re
 .AddNew
 ![num_ins] = txtnum_ins.Text

[aminepop]

meme si je met

Code :

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

1
2
3
4
 
with re 
.addnew
![num_ins]=txtnum_ins.text

il fais le même erreur

[ErosR]

ajouter cette référence

Microsoft ActiveX Data Objects 2.0 Libary

puis ajouter un module
Ecrit ce code dans le Module :

Code :

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

1
2
Dim cnx As ADODB.Connection
Dim RF As ADODB.Recordset

et après dans votre feuille dans laquelle votre command d'enregistrement ecrit :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cmdenregistrer_Click()
RF.addnew
'Selon les nombres de tentbox 5 ou 6 ou ...
for i= 0 to 5 
'TF c'est le nom de votre texbox que vous avez ajouté dans votre interface
RF(i) = TF(i)
Next i
RF.Update
End Sub

Et n'oubliez pas de faire attention comcernant INDEX de votre textbox


bonne chance

[ProgElecT]

je me demande si l'ouverture de ton recordset au niveau du type de verouillage, n'est pas le probléme, adLockBatchOptimistic est un curseur par lot, donc il a besoin d'une ouverture avec curseur statique.
Faire un essais en ouvrant comme sa

Code :

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

re.Open "etudiants", con, adOpenStatic, adLockOptimistic

[ThierryAIM]

pour être sûr, inclus cette ligne :

Code :

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

MsgBox rs.Supports(adAddNew)

[aminepop]

eh j'ai fais statique mais sa marche pas

Code :

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

MsgBox rs.Supports(adAddNew)

ou je met ce code
quand je finis l'enregistrement c'est bien il me dis : il est enregistré
mais quand je part a la base de donnée a Access je trouve pas que il est ajouté

[ThierryAIM]

ou je met ce code

qu'est-ce que ça peut m'agacer de répondre à ce genre de question ....

Si je n'étais pas poli, je te dirais bien ou le mettre !

Mets le juste après le Open de ton recordset (et en l'occurrence, remplace rs par re, dans ton cas, ça évitera une autre question idiote)

[aminepop]

pour être sûr, inclus cette ligne :

Code :

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

MsgBox rs.Supports(adAddNew)

quand je met ce message après l'enregistrement il affiche une boite
qui dit
faux

quand je le met après open de mon recordset au moment de l'exécution me dit vrai
et quand je le met a le bouton enregister il me dit faux

alors sa marche pas

[ProgElecT]

encor un petit essai

Code :

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

1
2
3
4
5
6
con.CursorLocation = adUseClient: con.Mode = adModeReadWrite
con.Provider = "Microsoft.jet.oledb.4.0"
con.ConnectionString = App.Path & "\BDm.mdb"
con.Open
Set re = New ADODB.Recordset
re.Open "etudiants", con, adOpenStatic, adLockOptimistic

con.Mode = adModeReadWrite peut faire éventuellement la différence.
Es-tu sûr que ton statut (droit d'utilisateur) te permet de modifier la BD?

[zazaraignée]

Si je n'étais pas poli, je te dirais bien ou le mettre !

Hum... Responsable... Quel bel exemple pour nous, modérateurs... n'empêche, tu m'as bien fait rigolé.

zaza

[Vld44]

ah bon ben si on a le droit de troller ... je note je note

à moins que l'ancienneté soit un pré requis bien sûr :p

[zazaraignée]

Non, on n'a pas le droit, en principe... T'en fait pas, demain, j'enlève mon commentaire. C'était juste un clin d'oeil à Thierry, en passant. Des fois, je comprends ses sautes d'humeur. Faut le prendre comme une petite tape sur l'épaule, et pas autrement. Désolée que ça n'ait pas été clair pour tous.

[Vld44]

non mais là il s'est rien passé ... c'est pas vraiment du troll ! et entre nous notre chèr ami l'a bien mérité

[Delbeke]

heu ,l'article 1 ne s'applique pas ici ?

Article 1 : le chef a toujours raison

[ThierryAIM]

Dns ce cas, ce serait plutôt l'article 2 qui s'appliquerait :

Article 2 : Si par hasard le chef avait tort, se reporter à l'article 1

Et je n'ai enfreint aucune règle (ou alors de pas beaucoup...) et c'est pas moi qui ai commencé le troll