> Tous les forums > Forum Autres langages
 Probleme avec un Recordset sous VBA pour Access2k
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
AT
  Posté le 30/04/2004 @ 14:54 
Aller en bas de la page 
Nouvel astucien
Bonjour, Je travaille sur Access 2000 sous Windows 2000 et j'essaie d'ecrire un petit morceau de code pour mettre a jour le contenu d'un controle "Textbox" a partir du resultat d'une requete. Voici le code que j'essaie de faire tourner: Dim test as Recordset Set test = CurrentDb.OpenRecordset("SELECT [EmployeeTable].EmployeeNumber, [EmployeeTable].FamilyName FROM EmployeeTable WHERE [EmployeeTable].FamilyName= " & Me![Name], 2) EmployeeNumber.Text = test("EmployeeNumber") Au moment de l'execution, j'ai un message d'erreur "Too few parameters. Expected 2" et l'execution s'arrete sur la deuxieme ligne de code. Je ne vois pas d'ou vient l'erreur. Pouvez-vous m'aider? J'ai essayer de voir ce qu'il se passait si je faisais pointer l'objet test vers une table plutot que sur une requete SQL. J'ai teste le code suivant: Dim test as Recordset DoCmd.SetWarnings False SQL_Select = "SELECT EmployeeTable.EmployeeNumber INTO T_Extract_EmployeeNum FROM EmployeeTable WHERE EmployeeTable.FamilyName='" & Me![Name] & "'" DoCmd.RunSQL (SQL_Select) Set test = CurrentDb.OpenRecordset("T_Extract_EmployeeNum", DB_OPEN_TABLE) EmployeeNumber.Text = test("EmployeeNumber") L'execution s'arrete sur la ligne 4 et j'ai le message "Type mismatch". La table "T_Extract_EmployeeNum" est pourtant correctement creee. La encore, je ne vois pas d'ou vient le probleme. Pouvez-vous m'aider? Merci d'avance!
Publicité
baptiste
 Posté le 30/04/2004 à 16:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour, essaie ça, en tenant compte de ce que j'ai mis en rouge : [code] Dim test as Recordset Set test = CurrentDb.OpenRecordset("SELECT [EmployeeTable].EmployeeNumber, [EmployeeTable].FamilyName FROM EmployeeTable WHERE [EmployeeTable].FamilyName= """ & Me![Name] &""") EmployeeNumber.Text = test("EmployeeNumber") [/code]
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
28,79 €Support écran PC / TV pivotant sur pied (26 à 55 pouces, max 45 kg) à 28,79 € (via coupon)
Valable jusqu'au 18 Mai

Amazon propose actuellement le support écran PC / TV pivotant sur pied Bontec à 28,79 € seulement grâce à un coupon de réduction à activer sur la page du produit. Ce support est adapté aux écrans plats de 26 à 55 pouces LED, LCD et PLASMA à compatibilité VESA de 100x100 jusqu'à 400x400.  Il supporte jusqu'à 45Kg, est régable en hauteur et cache les câbles disgracieux à l'arrière. Vous pouvez le mettre par exemple sur un meuble pour surélever votre TV ou votre PC (et mettre une enceinte dessous ?) sans avoir besoin de percer le mur.


> Voir l'offre
10,90 €Adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 à 10,90 €
Valable jusqu'au 18 Mai

Amazon fait une promotion sur l'adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 qui passe à 10,90 € au lieu de 20 €. Cet adaptateur vous permettra de rajouter une prise Ethernet Gigabit à votre ordinateur portable (ou votre tablette via un adaptateu²r OTG) qui en est dépourvu.


> Voir l'offre
199,99 €Boitier PC Corsair Crystal Series 680X RGB à 199,99 €
Valable jusqu'au 18 Mai

Amazon fait une belle promotion sur l'excellent boîtier PC Corsair Crystal Series 680X RGB qui passe à 199,99 € au lieu de 249,99 €. Le boîtier Corsair Crystal 680X RGB est un boîtier ATX intelligent à double compartiment en verre trempé qui offre un flux d’air exceptionnel et un éclairage RGB éclatant pour refroidir efficacement et illuminer les systèmes les plus exigeants. Il vous permettra d'installer confortablement tous les composants informatiques les plus puissants du moment pour concevoir votre machine ultime. Avec ses 3 panneaux en verre trempé, il dispose d'une excellente visibilité et d'un esthétisme très affirmé. Profitez de ses 3 ventilateurs RGB pour un refroidissement efficace et une touche de couleur captivante. Gérez les réglages lumineux directement depuis des boutons situés sur le dessus du boîtier et personnalisez l'ambiance de la pièce dans laquelle vous l'avez posé. La livraison est gratuite.


> Voir l'offre

Sujets relatifs
problème avec tomcat eclipse sous linux
Problème avec WinPython - Spyder
macro excell pour ouverture fichier avec password
Problème avec les espaces C++
Problème pour un batch urgent, veuillez lire svp
problème avec un parametre de requete preparée MVC
Problème Access avec 2 inner join
////// Probléme avec Idman 6.50 \\\
Problème sous vb
problème avec JTextField
Plus de sujets relatifs à Probleme avec un Recordset sous VBA pour Access2k
 > Tous les forums > Forum Autres langages