Affecter résultat de la requête à la zone de texte dans MS Access

J'ai deux questions connexes. Tout d'abord, comment puis-je attribuer la valeur de résultat d'une requête vers une zone de texte?

Voici le code que j'ai, actuellement affecté à l'événement click d'un bouton:

Private Sub SeatCount_Click()
Dim db As Database
Dim qdf As QueryDef
Dim sql As String
Dim rs As Recordset

sql = "SELECT Count([Switch Port Matrix].[End Device Type]) AS [CountOfEnd Device Type] FROM [Switch Port Matrix] WHERE ((([Switch Port Matrix].[End Device Type])=""Seat"" Or ([Switch Port Matrix].[End Device Type])=""6AB"") AND (([Switch Port Matrix].Enabled)=1)) GROUP BY [Switch Port Matrix].[Switch Name] HAVING ((([Switch Port Matrix].[Switch Name]) Like """ & Me![Switch Name] & """))"

Set db = CurrentDb()
With db
    On Error Resume Next
    .QueryDefs.Delete "SeatCount"
    Set qdf = .CreateQueryDef("SeatCount", sql)
    DoCmd.OpenQuery "SeatCount"
    .QueryDefs.Delete "SeatCount"
End With
db.Close
qdf.Close

End Sub

Cela fonctionne, mais il ouvre la requête et affiche le résultat dans une feuille de données. Ce que je voudrais faire est d'afficher le résultat dans une zone de texte sur la forme plutôt que d'avoir à cliquer sur un bouton et regarder une feuille de données. Tout d'abord, comment puis-je récupérer le résultat sous la forme d'une chaîne plutôt que de l'exécution de la requête pour ouvrir une feuille de calcul? Ce que j'ai trouvé sur le web semble pointer vers l'utilisation de la fonction rechdom plutôt que sur l'exécution de la requête, comme je l'ai écrit, mais de ce que j'ai trouvé, dlookup semble adapté pour l'exécution de requêtes simples et je n'ai rien trouvé indiquant que vous pouvez ajouter des exigences plus complexes tels que le comte et groupby.

Deuxièmement, comment puis-je exécuter la requête lorsque le formulaire est ouvert? Je suppose que j'ai envie de le déclencher pour s'exécuter sur un événement, mais il ne semble pas être un événement approprié à disposition sous les propriétés de la zone de texte.

Je suis un ingénieur réseau, pas un programmeur ou une base de données analyste, mais j'ai barboté dans l'suffisamment de choses que tous ce genre de travail est l'objet de dumping, à mon tour. Si quelqu'un peut aider à sortir des difficultés de l'ingénieur, je serais certainement apprécier.

InformationsquelleAutor user142865 | 2010-12-03
  1. 3

    Dans ce cas, il est probablement préférable d'utiliser DCount:

    =DCount("End Device Type","Switch Port Matrix","[End Device Type] IN ('Seat','6AB') AND [Enabled]=1 AND [Switch Name] = '" & [Switch Name] & "'")

    Vous pouvez régler directement la Source de Contrôle d'une zone de texte de cette déclaration.

    Cependant, pour une référence future:

    Private Sub SeatCount_Click()
Dim db As Database
Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library
Dim sSQL As String

sSQL = "SELECT Count(s.[End Device Type]) AS CountOfEndDeviceType " _
    & "FROM [Switch Port Matrix] s " _
    & "WHERE s.[End Device Type] IN ('Seat,'6AB') AND s.Enabled=1 " _
    & "s.[Switch Name] = '" & Me![Switch Name] & "'"

Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL)

If rs.recordCount>0 Then
   Me.txtTextbox=rs!CountOfEndDeviceType
Else
   Me.txtTextbox="N/A"
End If

Set rs=Nothing
Set db=Nothing    
End Sub
    InformationsquelleAutor Fionnuala
  2. 0

    Faire une nouvelle forme avec la source d'enregistrement que cette requête sans le comte ,permettez-donner tous les résultats , puis dans le pied de formulaire en faire une zone de texte et définissez son texte "= Count([Port de Commutateur Matrice].[Fin Type De Périphérique])"

    mettre cette forme comme un sous-formulaire au formulaire où vous voulez afficher le résultat et vous pouvez référencer à partir du formulaire principal , vous pouvez trouver une idée similaire dans ce lien
    http://office.microsoft.com/en-us/access-help/about-calculating-a-total-in-a-subform-and-displaying-it-on-a-form-HP005187909.aspx?CTT=1

    InformationsquelleAutor Bashawy