|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : VBA ACCESS [ Windows / Autre ] (yakusa82)
 Informations & options pour cette discussion
|
vendredi 1 juin 2007 à 11:30:47 |
VBA ACCESS
yakusa82
|
Bonjour, Je débute tout juste en VB, j'aurais besoin d'aide voila j'ai sous access 4 requetes que j'exécute l'une aprés l'autre manuellement "double clique lol" et j'aurais voulue crée un code qui permettrais de lancé l'exécution de ses 4 requetes l'une apres l'autres de plus, pour les 2 premieres une simple exécution mais pour la 3 et 4 il faut modifier 2 valeur champ date et critéres je voudrait qu'arrivé a la phase 3 le programme me demande les valeur pour tel et tel champ idem pour la phase 4 pourriez vous me dire comment procédé si un code de se type existe deja sur le quel je pourrait m'appuyer ou meme un tutos qui en parle merci 
|
|
|
|
vendredi 1 juin 2007 à 11:51:29 |
Re : VBA ACCESS
Exploreur
|
Salut, Si tu veux déjà avoir une réponse précise, faudrait peut-être nous montrer la structure de tes requêtes, tu ne crois pas ? A+
Exploreur
Linux a un noyau, Windows un pépin
|
|
|
|
vendredi 1 juin 2007 à 11:56:14 |
Re : VBA ACCESS
Nicko11
|
Salut,
tu vas donc l'onglet module de Access et tu fais nouveau.
Ensuite dans la fenetre VB de ce module tu mets:
Public sub Requete_SQL()
Dim valeur as string
SQL = Ta_requete1
Docmd.RUNSQL SQL
SQL = Ta_requete2
Docmd.RUNSQL SQL
valeur = Inputbox "Veuillez entrer la valeur"
SQL = Ta_requete3 'prendre en compte la valeur dans cette requete
Docmd.RUNSQL SQL
valeur = Inputbox "Veuillez entrer la valeur"
SQL = Ta_requete4 'prendre en compte la valeur dans cette requete
Docmd.RUNSQL SQL
End sub
A toi de remplacer les requetes en gras par ce qu'il faut
|
|
|
|
vendredi 1 juin 2007 à 12:22:37 |
Re : VBA ACCESS
yakusa82
|
en faite sur la requete 1 et 2 une simple exécution suffit de ces requetes
mais pour la 3 et 4 la en effet il faut une msgbox qui demanderais la valeurs du champ 8 qui est la période du temps au temps et la valeur du critere du champ 1
|
|
|
|
vendredi 1 juin 2007 à 12:30:36 |
Re : VBA ACCESS
yakusa82
|
Quand tu met
SQL = Ta_requete1 >>>c'est le nom de ma requete dans access ou faut mettre la requete SQL qui est derreire
SELECT ACFIC0101_ACPROMPF.NOPRPR, [Fichiers articles].DESIG, ACFIC0101_ACPROMPF.PSP7PR, [Poids mesures].Champ2 AS [Lib poids], Int(100*[PSP7PR]/[POCTU])/100 AS PK, Int(ACFIC0101_ACPROMPF!PSP7PR) AS euros, Right(Str(100*ACFIC0101_ACPROMPF!PSP7PR),2) AS centimes, "du 13 au 24 juin 2007" AS Periode, ACFIC0101_ACPROMPF.CDPLPR INTO [table des stops]
FROM (ACFIC0101_ACPROMPF LEFT JOIN [Fichiers articles] ON ACFIC0101_ACPROMPF.CDPLPR = [Fichiers articles].PLIG) LEFT JOIN [Poids mesures] ON [Fichiers articles].PKGL = [Poids mesures].Champ1
WHERE (((ACFIC0101_ACPROMPF.NOPRPR)=3259 Or (ACFIC0101_ACPROMPF.NOPRPR)=3260));
Docmd.RUNSQL SQL
|
|
|
|
vendredi 1 juin 2007 à 13:39:17 |
Re : VBA ACCESS
|
|
vendredi 1 juin 2007 à 13:47:01 |
Re : VBA ACCESS
Nicko11
|
Est ce que ca te convient sinon ?
et en effet, SQL est en faite une chaine de caracteres donc, ce n'est pas le nom mais bien la requete en question, a moins que tu veuilles le contrainre.
Ex :
SQL = "Select .............................."
|
|
|
|
vendredi 1 juin 2007 à 14:09:46 |
Re : VBA ACCESS
yakusa82
|
PB
si je fait
SQL= " select......" bien ca me met une erreur
erreur compilation:
erreur de syntaxe
|
|
|
|
vendredi 1 juin 2007 à 14:59:53 |
Re : VBA ACCESS
Nicko11
|
Oula attent, je parlais de ta requete LOL,
c'est à dire :
SQL = "SELECT ACFIC0101_ACPROMPF.NOPRPR, [Fichiers articles].DESIG, ACFIC0101_ACPROMPF.PSP7PR, [Poids mesures].Champ2 AS [Lib poids], Int(100*[PSP7PR]/[POCTU])/100 AS PK, Int(ACFIC0101_ACPROMPF!PSP7PR) AS euros, Right(Str(100*ACFIC0101_ACPROMPF!PSP7PR),2) AS centimes, "du 13 au 24 juin 2007" AS Periode, ACFIC0101_ACPROMPF.CDPLPR INTO [table des stops]
FROM (ACFIC0101_ACPROMPF LEFT JOIN [Fichiers articles] ON ACFIC0101_ACPROMPF.CDPLPR = [Fichiers articles].PLIG) LEFT JOIN [Poids mesures] ON [Fichiers articles].PKGL = [Poids mesures].Champ1
WHERE (((ACFIC0101_ACPROMPF.NOPRPR)=3259 Or (ACFIC0101_ACPROMPF.NOPRPR)=3260));"
Docmd.RUNSQL SQL
car ca :
SQL= " select......" , ca veut rien dire.
Attention quand meme car je crois qu'il faut revoir la synthaxe.
|
|
|
|
vendredi 1 juin 2007 à 15:58:54 |
Re : VBA ACCESS
yakusa82
|
oui ca sais ce que j'ai fait
SQL = "SELECT ACFIC0101_ACPROMPF.NOPRPR, [Fichiers articles].DESIG,
ACFIC0101_ACPROMPF.PSP7PR, [Poids mesures].Champ2 AS [Lib poids],
Int(100*[PSP7PR]/[POCTU])/100 AS PK, Int(ACFIC0101_ACPROMPF!PSP7PR) AS
euros, Right(Str(100*ACFIC0101_ACPROMPF!PSP7PR),2) AS centimes, "du 13 au 24 juin 2007" AS Periode, ACFIC0101_ACPROMPF.CDPLPR INTO [table des stops]
FROM
(ACFIC0101_ACPROMPF LEFT JOIN [Fichiers articles] ON
ACFIC0101_ACPROMPF.CDPLPR = [Fichiers articles].PLIG) LEFT JOIN [Poids
mesures] ON [Fichiers articles].PKGL = [Poids mesures].Champ1
WHERE (((ACFIC0101_ACPROMPF.NOPRPR)=3259 Or (ACFIC0101_ACPROMPF.NOPRPR)=3260));"
Docmd.RUNSQL SQL
lol c juste que c'etait pour allé plus vite ds mon message héhé
je fait donc comme ci dessus
sauf que ca me met l'erreur
en faite ça s'affiche comme suit
SQL=
SELECT ACFIC0101_ACPROMPF.NOPRPR, [Fichiers articles].DESIG,
ACFIC0101_ACPROMPF.PSP7PR, [Poids mesures].Champ2 AS [Lib poids],
Int(100*[PSP7PR]/[POCTU])/100 AS PK, Int(ACFIC0101_ACPROMPF!PSP7PR) AS
euros, Right(Str(100*ACFIC0101_ACPROMPF!PSP7PR),2) AS centimes, "du 13 au 24 juin 2007" AS Periode, ACFIC0101_ACPROMPF.CDPLPR INTO [table des stops]
FROM
(ACFIC0101_ACPROMPF LEFT JOIN [Fichiers articles] ON
ACFIC0101_ACPROMPF.CDPLPR = [Fichiers articles].PLIG) LEFT JOIN [Poids
mesures] ON [Fichiers articles].PKGL = [Poids mesures].Champ1
WHERE (((ACFIC0101_ACPROMPF.NOPRPR)=3259 Or (ACFIC0101_ACPROMPF.NOPRPR)=3260));"
Docmd.RUNSQL SQL
|
|
|
Cette discussion est classé dans : vba, access, code, requetes, exécution
 Répondre à ce message
 Sujets en rapport avec ce message
Code VBA pour Access [ par fakir51 ]
Bonjour,j' ai un formulaire comprennant plusieur champ et j'aimerai faire une procédure évènementielle qui me permette d afficher un enregistrement gr
Dates sous VBA ACCESS [ par Clonk ]
Salut!J'ai un prob sous Access.Certains l'ont peut être remarqué, mais il arrive lorsque mmC facile à régler dans un code tout bête, mais perso j'util
Création d'un bouton par le code VBA en ACCESS [ par ademag ]
Bonjour,Nous cherchons désespéremment la syntaxe pour créer des boutons dans un formulaire access, en leur attribuant par le code des coordonnées. En
VBA - ACCESS 2002 SP3 - Création formulaire - Help !!!!! [ par trymeup ]
Bonjour, je suis vraiment novice en VBA et j'ai un soucis que je n'arrive pas à régler.J'ai une requête qui me renvoie des résultats avec un nombre de
code pour les cases a cocher (vba access) [ par said960 ]
comment faire pour les case a cocher en vba (access)
L'erreur 2486 VBA : Un vrai code poubelle ! [ par Phenox ]
Quelle vacherie ce truc ! Je vous explique :Anecdote : Sur 150 clients ayant mon logiciel ( VBA sous Access 2000
Code barre vba access (URGENT) [ par HakNouveau ]
bonjour, je dois créer une interface sur vba avec access où je dois afficher une dizaine de code barre dans une même pagele truc, c'est qu'il faut pou
VBA + ACCESS [ par nonaud ]
Salut à tous,Récemment dans le cadre de mon boulot, j'ai hérité de la mintenance d'une base access98 du genre "fait maison".Je bricole bien un peu de
Inclure un code exterieur dans une macro vba [ par larsene67 ]
Bonjour, J'espere ne pas être trop redondant avec ma question, mais je n'ai pas réussi à y trouver de réponses juque là...Voila, j'ai actuellement plu
Tracage d'exécution de code VB6 [ par seb500 ]
Bonjour,Je cherche à avoir une trace de l'exécution d'un programme écrit en VB6. Le but étant de connaître uniquement les modules et procédures appelé
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|