Discussion :

[tibiurs]

bonjour a tous,
je possede une table A et une table B.
ces deux tables contiennent les memes types de donnees et les meme noms
Recemment j'ai rajoute dans chacune des deux tables des champs
Et a partir d'un formulaire qui m'affiche les donnees presentes dans la table A, en mode continu, pour chacune de smes lignes (une ligne= un enregistrement), j'ai un bouton et lorsque j'aapuie dessus, mon enregistrement est d'abord copier dans ma table B et effacer de la table A.
Mon probleme se trouve ici:
a chaque fois que j'appuie sur mon bouton la copie se passe parfaitement mais l'effacement ne s'effectue pas , j'ai un message d'erreur me diant qu'il faut que je specifie la table ou je doit supprimer les donnes
Or apres 50000 verification j'ai bien indiquer la bonne table dans ma requete suppression
Pouvez vous m'aider ??
merci d'avance

[Invité]

Quel est le code de ton bouton copie ?

Qu'y à t'il dans ta requête ?

a+

[tibiurs]

voici mon code qui se truove derriere 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
    DoCmd.SetWarnings False  'Permet de ne pas afficher les messages
 
    Dim stDocName As String
    Dim stDocName1 As String
    Dim stdocname2 As String
 
    stDocName = "r_save_cmd"
    stDocName1 = "r_del_cmd"
    stdocname2 = "r_maj_stock_auto"
    stDocName3 = "r_del_cmd_boitier"
 
 
    DoCmd.OpenQuery stdocname2, acNormal, acEdit 'MISE A JOUR DES STOCKS
    DoCmd.OpenQuery stDocName, acNormal, acEdit 'SAVE CMD DANS LA TABLE T_RADIATEURS
 
    If IsNull([Forms]![f_cmd_encours2]![côté]) Then
        DoCmd.OpenQuery stDocName3, acNormal, acEdit 'SUPPRESSION DE LA CMD A PREPARER
    Else
        DoCmd.OpenQuery stDocName1, acNormal, acEdit 'SUPPRESSION DE LA CMD A PREPARER
    End If
 
    [f_cmd_encours2].Requery    'met a jour l'affichage du formulaire

d'avance merci pour toute reponse

[Invité]

As-tu vérifié la valeur que prenait

Code :

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

If IsNull([Forms]![f_cmd_encours2]![côté]) Then

Est-ce que ta syntaxe est bonne pour un delete ?

Code :

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

DoCmd.OpenQuery stDocName3, acNormal, acEdit

Il faut vérifié en mode débogage !

[tibiurs]

Je ne sais pas du tout comment utiliser ce mode débogage
Pourrait tu m'en dire un peu plus ?
Merci d'avance

[tibiurs]

Je viens de trouver cela dans la FAQ et je pense que ca peut resoudre mon probleme
http://access.developpez.com/faq/?pa...fDataTransfert
mais mon souci est que je n'arrive pas a l'executer
est ce que quelqu'un pourrait m'orienter quant a la mise en place de ce genre de procedure
merci d'avance