Table attaché Access
Bonjour,
je travaille actuellement sur une base de données access avec une table attaché T, je souhaiterai supprimer des enregistrements de ma table attaché depuis un fomulaire, pour cela je dois me connecter à la baseB (celle ou se trouve la table T) et lancer la requête de suppression, mon probléme arrive à ce moment je ne connais pas la commande qui me permet d'acceder à la baseB
Pouvez vous me dire quelle est cette commande SVP?
je travaille actuellement sur une base de données access avec une table attaché T, je souhaiterai supprimer des enregistrements de ma table attaché depuis un fomulaire, pour cela je dois me connecter à la baseB (celle ou se trouve la table T) et lancer la requête de suppression, mon probléme arrive à ce moment je ne connais pas la commande qui me permet d'acceder à la baseB
Pouvez vous me dire quelle est cette commande SVP?
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
ContributeurPeux-tu, à la main, faire la requete suivante :
select * From Tel_Archive WHERE No = "numerodecontrat"
en remplacant numerodecontrat par la valeur que tu veux supprimer. -
ContributeurQuelle est la diféfrence entre Me!No.Value et Forms!FrmPrincipal!No ?
Je suggére de faire une commande
msgbox sql
pour voir ce que contiens sql juste avant le db.execute -
ContributeurQuel est le type de la colonne "No" ?
Si c'est un nombre, je supprimerais les Chr(34) dans le sql. -
ContributeurSi la table est attachée, tu y accéde comme si c'était une table locale.
C'est le but de l'attache.-
Merci de ta réponse, mais pourquoi l'enregistrement ne s'efface pas est ce que cela vient de mon code:
Private Sub Commande104_Click()
'Déclaration des variables
Dim db As Database
Dim sql As String
Dim No As String
'Récupération du n° de contrat
No = Forms!FrmPrincipal!No
'Confirmation de la suppression
Sup = MsgBox("Vous allez supprimer définitivement les données du contrat " & No & " Etes vous sure de supprimer ce contrat", vbYesNo + 256 + vbCritical, "Confirmation")
If Sup = vbYes Then
Sup = MsgBox("Etes vous sure de vouloir supprimer le contrat" & No & " ? Vous ne pourrez pas annuler la suppression", vbYesNo + 256 + vbCritical, "Confirmation")
If Sup = vbYes Then
'Suppression des enrgistrement
Set db = CurrentDb
sql = "Delete * From Tel_Archive WHERE No = " & Chr(34) & Me!No.Value & Chr(34)
db.Execute (sql)
MsgBox "Suppression effectuée"
db.Close
Else: MsgBox "Suppression annulée"
End If
Else: MsgBox "Suppression annulée"
End If
End Sub
-
