exécution d'une requête select dans ms access 2007 vba et d'attribuer de la valeur à une zone de texte

J'ai besoin d'exécuter une requête sql et de la valeur est affectée à une zone de texte dans le formulaire.
Je suis à l'aide de docmd.runsql sql pour exécuter cette requête.

Private Sub Form_Current()
Dim SQL As String
Dim db As Database
Dim rs As DAO.Recordset

If IsNull(Me.txtInstalledQuantity) Then
SQL = "select count(tblequipmentbase.id)AS CountInstalledQuantity FROM (tblequipmentbase INNER JOIN     tblequipmentparts ON tblequipmentbase.id=tblequipmentparts.idconnect) INNER JOIN tblparts ON tblequipmentparts.idpart=tblparts.id where tblparts.id= " & txtQueryID.Value & ";"
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)
DoCmd.RunSQL SQL
Me.txtInstalledQuantity = rs!CountInstalledQuantity
Set rs = Nothing
Set db = Nothing
End If
End Sub

L'erreur est dans le runsql commande.

Pas tout à fait sûr de savoir pourquoi vous effectuez une RunSQL() appel de toute façon? À partir de votre .OpenRecordset de commande, vous devez déjà avoir les données que vous souhaitez.
même si je supprime le Docmd.RunSQL SQl,ça ne fonctionne pas.

InformationsquelleAutor user1175126 | 2012-02-22

1

Essayez ceci:
```
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)
Me.txtInstalledQuantity = rs.Fields("CountInstalledQuantity").Value
```
- Je n'ai jamais jugé nécessaire d'inclure la valeur de référence à un champ dans un jeu d'enregistrements. rs!fieldname est couramment utilisé.
- Tout à fait d'accord Remou. Je viens préfère toujours être explicite, en particulier lorsque vous traitez avec les propriétés par défaut comme .De la valeur. Tout dépend de votre style, les normes du code, je suppose.
- Le Form_Current() appartient à un sous-formulaire.txtQueryID est une zone de texte sur le même formulaire, mais sa valeur vient de la mainform.Je fave fait une variable publique pour obtenir cette valeur sur la mainform et il est affecté à une fonction publique qui retourne une chaîne de caractères.Le code fonctionne jusqu'ici, si je supprime le code dans Form_Current() de la sous-formulaire.Même si le sous-formulaire en charge avant le mainform il devrait au moins prendre la valeur de la mainform.
- Aussi, si je donne une valeur directe au lieu de &Moi.txtQueryID il fonctionne. Je ne comprends pas pourquoi rien ne fonctionne ensemble.
InformationsquelleAutor markblandford
0

Je vous suggère de créer une requête, nous allons l'appeler l'Équipement:
```
 SELECT eb.id 
 FROM (tblequipmentbase eb
 INNER JOIN tblequipmentparts ep
 ON eb.id=ep.idconnect) 
 INNER JOIN tblparts p
 ON ep.idpart=p.id 
```
Vous pouvez ensuite utiliser cette requête de plusieurs façons, par exemple, vous pouvez définir un contrôle de zone de texte source:
```
= DCount("eb.id","Equipment","p.ID=" & txtQueryID)
```
Plus d'infos: http://msdn.microsoft.com/en-us/library/aa168244(v=office.10).aspx
```
Me.txtInstalledQuantity = DCount("eb.id","Equipment","p.ID=" & txtQueryID)
```
Ou
```
Dim rs As DAO.Recordset

s = "SELECT Count(eb.id) As EqC " _
  & "FROM (tblequipmentbase eb " _
  & "INNER JOIN tblequipmentparts ep " _
  & "ON eb.id=ep.idconnect)  " _
  & "INNER JOIN tblparts p " _
  & "ON ep.idpart=p.id " _
  & "WHERE p.id = " & Me.txtQueryID

Set rs = CurrentDB.OpenRecordset(s)

Me.txtInstalledQuantity = rs!EqC
```
- Je ne peux pas utiliser une expression dans le contrôle de la source de cette zone de texte est modifiable.Les utilisateurs peuvent entrer des données qui sont ensuite enregistrées dans la base de données.
- Tout d'abord, créez la requête et vérifier si cela fonctionne, ensuite s'assurer que Moi.txtQueryID a une valeur. Il est toujours préférable de dire ce qui ne fonctionne pas implique, messages d'erreur, etc.
- Par hasard, est txtQueryID une étiquette, plutôt que d'une zone de texte? Parce que si c'est, vous avez besoin de Légende pour obtenir le contenu.
- txtQueryID est une zone de texte.Je ne peux pas passer une variable à la place d'une zone de texte valeur?
- Oui, vous pouvez, mais vous rencontrez des problèmes, et il est plus simple de tout simplement se référer à la zone de texte. Vous pouvez ajouter un point d'arrêt et d'examiner la chaîne s à s'assurer qu'il est correct, vous pouvez également utiliser l'outil de débogage.imprimer pour imprimer dans la fenêtre exécution et le test de la chaîne de caractères dans la fenêtre de création de requête afin d'assurer un enregistrement est retourné.
InformationsquelleAutor Fionnuala

Vous devez vous connecter pour publier un commentaire.