[Résolu] simple requete en VBA :)

simple requete en VBA :) [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 22-07-2005 à 15:39:55    

voila mon code qui semble simple sous Access mais il marche pas c'est bizarre :P
 
 
[]Private Sub Transfert_Click()
 
strSql = "Select * from Importation"
DoCmd.RunSQL strSql
 
 
End Sub[/]


Message édité par julseb le 28-07-2005 à 10:44:22
Reply

Marsh Posté le 22-07-2005 à 15:39:55   

Reply

Marsh Posté le 22-07-2005 à 16:33:51    

Ca veut dire quoi il marche pas?
Tu as un message d'erreur?
Poste plus de code stp, car le problème vient peut être d'un autre endroit

Reply

Marsh Posté le 22-07-2005 à 17:13:29    

ouais parceque la c'est un peu mince

Reply

Marsh Posté le 22-07-2005 à 19:53:38    

lol c'est le code mon bouton sur un formulaire access le code de celui-ci est mince :) je sais
 
il me met une erreur de synatxe ici ==> DoCmd.RunSQL strSql

Reply

Marsh Posté le 23-07-2005 à 10:31:43    

julseb a écrit :

il me met une erreur


LAQUELLE????!!!!


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 23-07-2005 à 12:35:38    

AlainTech a écrit :

LAQUELLE????!!!!


 
Oui ca aiderais quand même...

Reply

Marsh Posté le 25-07-2005 à 10:02:57    

Message d'erreur:
 
Erreur d'éxécution '2342'
Une action ExecuterSQL nécessite un argument consistant en une instruction SQL
 
aider moi svp :)

Reply

Marsh Posté le 25-07-2005 à 10:09:12    

Tu rigoles là ?
On veux du code, si tu donnes pas plus de code on pourra pas trouver d'où vient l'erreur.
Et l'erreur est asser claire quand même.
Documente toi peut être sur les fonctions que tu utilises aussi.
 
Edit: termine ta requête pas un ';' , Access aime bien.


Message édité par cesarr89 le 25-07-2005 à 10:13:02
Reply

Marsh Posté le 25-07-2005 à 10:12:06    

ta table Importation existe t'elle?

Reply

Marsh Posté le 25-07-2005 à 10:21:10    

oui elle existe bien et j'ai bien un  ;

Reply

Marsh Posté le 25-07-2005 à 10:21:10   

Reply

Marsh Posté le 25-07-2005 à 10:22:16    

le code que j'ai mis est le code total du bouton je me suis arrêté ici car javais une erreur. je pe pa te donner plus de code vu kil est deja la :P

Reply

Marsh Posté le 25-07-2005 à 10:24:32    

http://p2p.wrox.com/topic.asp?TOPIC_ID=518

Citation :

DoCmd.RunSQL is for action SQL only - eg: inserting, deleting and updating - it doesn't actually return anything


 
Ca réponds à ta question?

Reply

Marsh Posté le 25-07-2005 à 10:33:39    

forcement...

Reply

Marsh Posté le 25-07-2005 à 10:53:59    

ahh ok bah comment je fait pour executer une requête sous vba :(

Reply

Marsh Posté le 25-07-2005 à 10:56:38    

docmd.OpenQuery je crois
un truc du style en tous cas

Reply

Marsh Posté le 25-07-2005 à 10:58:23    

ok merci bien je vais essayer :D

Reply

Marsh Posté le 25-07-2005 à 11:07:25    

OpenQuery c pour ouvrir une requête deja existante moi je voudrais la créer dans le vba :P

Reply

Marsh Posté le 25-07-2005 à 11:09:37    

Pourquoi tu passe pas par DAO ou ADO genre:

Code :
  1. Dim db As DataDase
  2. Dim res As RecordSet
  3. set db = CurrentDb()
  4. set res = db.OpenRecordSet("select * from importation;" )


Message édité par cesarr89 le 25-07-2005 à 11:09:58
Reply

Marsh Posté le 25-07-2005 à 11:20:00    

g une erreur de compilation avec Database:
 
Type défini par l'utilisateur non défini

Reply

Marsh Posté le 25-07-2005 à 11:20:36    

Oui excuse c'est DataBase et pas DataDase.

Reply

Marsh Posté le 25-07-2005 à 11:27:15    

G tapé cela aucune erreu mais rien na'pparait:
:
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = CurrentDb()
    sSQL = "Select * From Importation"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    'rst.Close

Reply

Marsh Posté le 25-07-2005 à 11:28:45    

bah c'est normal.....faut peut être regarder les champs genre :

Code :
  1. If Not rst.NoMatch Then
  2.   'ton code
  3. Else
  4.   'Autre code
  5. End If


 
Edit : Apprends à utiliser un RecordSet ca sera mieux je pense.


Message édité par cesarr89 le 25-07-2005 à 11:29:20
Reply

Marsh Posté le 25-07-2005 à 11:31:09    

ouii je pense ossi :D merci pour ton aide :)

Reply

Marsh Posté le 25-07-2005 à 11:50:58    

De rien.

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed