Wie speichert das Ergebnis einer SQL-Abfrage in eine variable in VBA?

Ich möchte eine select-Anweisung ausführen und das Ergebnis davon (das ist nur 1 Datensatz mit 1 Wert) in einer variable.

Dies ist im VBA-code in access.

Private Sub Child_Click()
   Dim Childnummer As Integer
   Dim childnaam As String
   Childnummer = Me.Keuzelijst21.Value
   DoCmd.Close
   DoCmd.OpenForm "submenurubrieken", acNormal, , " rubrieknummer = " & Childnummer & ""
   childnaam = rubrieknaamSQL(Childnummer)
   Forms!submenurubrieken.Tv_rubrieknaam.Value = childnaam
End Sub

Public Function rubrieknaamSQL(Child As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   strSQL = "SELECT rubrieknaam FROM dbo_tbl_rubriek where rubrieknummer = " & Child & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)
End Function
  • Warum kann man nicht einfach nur speichern, der Wert des Datensatzes mit myVar = rst!nameOfValueField ?
InformationsquelleAutor k0enf0rNL | 2014-06-02
  1. 18

    Haben einfach Ihre Funktion wieder den Wert aus dem Recordset:

    Public Function rubrieknaamSQL(Child As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   strSQL = "SELECT rubrieknaam FROM dbo_tbl_rubriek where rubrieknummer = " & Child & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)
   ' new code:
   rubrieknaamSQL = rst!rubrieknaam
   rst.Close
   Set rst = Nothing
End Function
    • war meine erste Zeit machen, eine solche Abfrage in vba. trotzdem danke!
    • was bedeutet der ! in ersten!rubrieknaam tun?
    • Siehe auch die Verwandte Frage hier.
    InformationsquelleAutor Gord Thompson
Schreibe einen Kommentar