Discussion :

[LyLy_91]

Bonjour,

Je pense que ça doit être simple à faire vu que je n'ai pas trouver la réponse sur le forum, mais si quelqu'un peut m'aider ce serait sympe.

J'ai un formulaire, avec d'une part un sous formulaire affichant ma table dimension (JLP_Dimension_mm_pouce) et d'autre part une zone de text (txt_idauto)

Je voudrais supprimer un enregistrement de ma table en fonction de ma zone de texte, en cliquant sur un bouton de commande.

Je precise que je suis sur Access 2003 et que ma table est une table liée à SQL Server

Voici le code de mon bouton

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
Private Sub cmd_supp_Click()
 
Dim AMETIS_ACCESS As DAO.Database
Dim rst As DAO.Recordset
 
Dim txt_idauto As String
 
Set AMETIS_ACCESS = Application.CurrentDb
Set rst = AMETIS_ACCESS.OpenRecordset("JLP_Dimension_mm_pouce", dbOpenDynaset)
 
rst.MoveFirst
 
If Me.txt_idauto <> "" Then
 
    DoCmd.RunSQL "Delete * From JLP_Dimension_mm_pouce where (rst![idauto]=txt_idauto.value)"
 
End If
 
Exit_cmd_supp_Click:
    Exit Sub
 
Err_cmd_supp_Click:
    MsgBox Err.Description
    Resume Exit_cmd_supp_Click
 
End Sub

Dîtes moi ce qui ne va pas.
Merci d'avance

[LyLy_91]

J'ai modifié mon code :

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
Private Sub cmd_supp_Click()
 
Dim AMETIS_ACCESS As DAO.Database
Dim rst As DAO.Recordset
 
Dim idauto As Integer
 
Set AMETIS_ACCESS = Application.CurrentDb
Set rst = AMETIS_ACCESS.OpenRecordset("JLP_Dimension_mm_pouce", dbOpenDynaset)
 
rst.MoveFirst
 
idauto = txt_idauto
 
If Me.txt_idauto <> "" Then
 
    DoCmd.RunSQL "Delete * From JLP_Dimension_mm_pouce where [idauto]"
 
End If
 
Exit_cmd_supp_Click:
    Exit Sub
 
Err_cmd_supp_Click:
    MsgBox Err.Description
    Resume Exit_cmd_supp_Click
 
End Sub

Et j'ai le message d'erreur suivant :
"Erreur d'exécution "3086" : Impossible de supprimer dans les tables spécifiées"

Donc à mon avis c'est parce que je n'ai pas tous les droits quand ma table Access est liée à SQL server.

Je vous dirais si ça marche quand j'aurais les droits.

Aurélie

[Chtulus]

Bonjour,

En effet cela peu être liéé à des problème de droits, mais il te mettrais surement plus un message du style, "Permissions denied" !

En revanche mopi je passe par le code suivant :

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
 
Private Sub Button1_Click()
 
'Déclaration des variables
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset
 
 
'Instantation variable connexion
Set cnx = New ADODB.Connection
 
'Description de la chaine de connexion
cnx.ConnectionString = "Provider = sqloledb ; " & _
                       "Data Source = NomServeurSQL ; " & _
                       "Initial catalog = NomBaseDonnée ; " & _
                        "User ID = IDutilisateur ; " & _
                        "Password = PWDutilisateur ; "
 
'Ouverture de la connection
cnx.Open
 
'Si état de la connexion = ouverte
 If cnx.State = adStateOpen Then
 
 
    'On ouvre le record de la requête
    rst.Open "SELECT TonChamps " _
                 & " FROM TaTable " _
                   & " WHERE TonChamps = '" & Forms!NomFormulaire!NomChamps & "' ;", cnx
 
' Puis finir le traitement...

[_MattU_]

Ta requête ne doit pas être correcte.

Code :

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

"Delete * From JLP_Dimension_mm_pouce where [idauto]"

Where [idauto] ??
Il y a un problème dans ta clause where
je pense plus a un truc du genre :

Code :

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

"Delete * From JLP_Dimension_mm_pouce where [nom du champ id de ta table] = " & idauto & ";"

La ca me parait un peu mieux
Voila essaye et tiens nous au courant !

[LyLy_91]

Merci pour vos réponses, j'ai fais les changement pour la connection à la base SQL, et j'ai toujours le même message.

J'ai testé une requête de suppression directement avec access et c'est le même message, et même en accédant directement à ma table par access je ne peux rien faire (ni modifier, ni supprimer)

Je vais voir si on me donne les droits nécessaires. Et vous tiens au courant pour la suite.

Merci à vous.
Aurélie

[LyLy_91]

Bonjour,

Voila où j'en suis, j'ai trouvé pourquoi je ne pouvais pas écrire sur ma table, au moment de lier la table, il fallait que je choisisse un index unique.

Voila le code que j'ai finalement mis et il fonctionne.
Apparement je n'ai pas besoin d'ouvrir de connection.

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
 
Private Sub cmd_supp_Click()
 
Dim id As Integer
 
    If txt_idauto.Value <> "" Then
       id = txt_idauto.Value
       DoCmd.RunSQL "Delete * From JLP_Dimension_mm_pouce where [idauto] = " & id & ";" '
       MsgBox "Vous aller supprimmer la ligne " & id & " !", vbOKOnly
    Else
       MsgBox "Veuillez saisir un numéro id !", vbOKOnly
    End If
 
txt_idauto.Value = ""
 
    Me.Refresh
 
Exit_cmd_supp_Click:
    Exit Sub
 
Err_cmd_supp_Click:
    MsgBox Err.Description
    Resume Exit_cmd_supp_Click
 
End Sub

Merci à vous.
Aurélie