Discussion :

[nunurs83]

Au moment de l'insert j'ai une jolie fenêtre me disant : Cette opération n'est pas autorisée si l'objet est ouvert. erreur d'exec 3705...je ne vois pourtant pas l'erreur

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
 present = False
    cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    cnx.ConnectionString = "C:\huhu.mdb"
    cnx.Open
 
    If Me.lst_nomFourn.Value <> "" Then
        Fourn = Me.lst_nomFourn.Value
        SQL = "SELECT nom_fournisseur FROM Fournisseur;"
        rst.Open SQL, cnx
 
        If Not rst.EOF Then 'si la table n'est pas vide
            'Parcourons le recordset
            rst.MoveFirst
 
            Do While Not (rst.EOF)
                If rst("nom_fournisseur") = Fourn Then
                    MsgBox ("Le fournisseur est déjà référencé.")
                    present = True
                    Exit Do
                End If
                rst.MoveNext
            Loop
 
            If Not present Then
                'On ajoute : INSERT INTO
                    SQL = "INSERT INTO fournisseur (nom_fournisseur) VALUES (""" & Fourn & """);"
                    rst.Open SQL, cnx
            End If
        Else
            'Premier ajout
            SQL = "INSERT INTO fournisseur (nom_fournisseur) VALUES (""" & Fourn & """);"
            rst.Open SQL, cnx
        End If
    End If
    rst.Close

[Maroxye]

Moi,

J'aurais tendance à fermer le RS après chaque INSERT, donc pas à la fin de la boucle. Sinon, il manque peut-être des paramètres à l'ouverture de ta bd?

Essaie celà



Isabelle