petit prob avec on error go toRésolu

Question

g un petit prob avec on error go to... voil&#224; mon code, je ne sais pas pkoi il ne me renvoie pas le message d'erreur... A vous de m'aider, je suis coinc&#233;....

 rs1.Open "select * from [type ac] ", con, adOpenDynamic, adLockOptimistic
    p = rs1![num_type]
 


    rs.Open "insert into ac (num_type, design_ac, num_ac) values ('" & p & "', '" & txtdes.Text & "','" & txtsap & "') ", con, adOpenDynamic, adLockOptimistic
    On Error GoTo ErreurMsgBox
 
 
 rs2.Open "insert into FOURNIR (Article, Fourn) values ( '" & txtsap & "', '" & txtfour.Text & "') ", con, adOpenDynamic, adLockOptimistic
 On Error GoTo ErreurMsgBox


ErreurMsgBox:
MsgBox ("erreur")
Merci d'avance!!!

linasteph · Accepted Answer

Petite remarque: si toutes tes instructions se trouvent dans la m&#234;me fonction place le on error... au tout d&#233;but de ta fonction.

Si le message Erreur n'appara&#238;t pas c'est qu'il n'y a aucune erreur rencontr&#233;e

tof008 · Answer

Merci pour ta r&#233;ponse...! Voila un prob vite et bien arrang&#233;!!!

Petit prob avec on error go to

2 réponses

Discussions similaires