SQL als Datenquelle-Steuerelement für Access Formular Feld

Gibt es eine Möglichkeit, füllen Sie ein Access-Formular-text-Feld den Wert mit SQL?

Habe ich gelesen, dass es nicht möglich ist, geben Sie einfach SQL als Datenquelle-Steuerelement. Ist das wahr?

vielen Dank für jede halp 🙂

--edit--

Brauche ich zum ausführen dieser Abfrage;

SELECT tblCaseIssues.IssueDesc FROM tblCaseIssues INNER JOIN tblCaseNewHS_Issues ON tblCaseIssues.ID = tblCaseNewHS_Issues.IssueID WHERE(tblCaseNewHS_Issues.HS_ID = 81))

Gibt es irgendein Grund die Daten sollten nicht aufgenommen werden in die dem Formular zugrundeliegende Datenherkunft?

InformationsquelleAutor Jambobond | 2009-08-21

9

Ziemlich sicher, das ist wahr, SQL, aber man könnte die Funktion:

=DLookUp("field_name","table_name","any_fieldname = 'value'")
- Ist es möglich, etwas so Komplexes wie WÄHLEN Sie tblCaseIssues.IssueDesc VON tblCaseIssues INNER JOIN tblCaseNewHS_Issues AUF tblCaseIssues.ID = tblCaseNewHS_Issues.IssueID WO (tblCaseNewHS_Issues.HS_ID = 81) mit einer solchen Funktion?
- Erstellen Sie eine Abfrage in Access, wo alle Tabellen verknüpft sind. Dann in Ihre DBLookup, können Sie Ersatz table_name mit dem Namen der Abfrage (Sorry, das angibt, dass eine Tabelle und unter der Annahme einer Abfrage würde so gut funktionieren). Hinweis: es gibt bessere Möglichkeiten in VBA.
InformationsquelleAutor JeffO

Können Sie die Steuerelementinhalt das Feld, um eine Funktion Namen. Diese Funktion kann leicht führen Sie Ihre SQL-und/oder pass in eine variable. Hier ist meine einfache Kessel-Platte für die eine Funktion zum ausführen einer SQL-Anweisung in eine recordset und geben den ersten Wert. In meiner Welt ich bin in der Regel auch eine sehr spezielle where-Klausel, aber das könnte man sicherlich machen diese Funktion robuster für Ihre Bedürfnisse.

=fnName(sVariable, iVariable)

Public Function fnName( _
    sVariable as String, _
    iVariable as Integer _
    ) As String

On Error GoTo Err_fnName

    Dim con As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sSQL As String

    sSQL = ""

    Set con = Access.CurrentProject.Connection
    Set rst = New ADODB.Recordset

    rst.Open sSQL, con, adOpenDynamic, adLockOptimistic

        If rst.BOF And rst.EOF Then

            'No records found
            'Do something!

        Else

            'Found a value, return it!
            fnName = rst(0)

        End If

    rst.Close
    Set rst = Nothing

    con.Close
    Set con = Nothing

Exit_fnName:

    Exit Function

Err_fnName:

    Select Case Err.Number
    Case Else
        Call ErrorLog(Err.Number, Err.Description, "fnName", "", Erl)
        GoTo Exit_fnName
    End Select

End Function

InformationsquelleAutor David Walker

Könnte es am einfachsten sein, verwenden Sie ein combobox-Steuerelement und legen Sie die Datensatzherkunft auf Ihre Anfrage, alternativ, DAO ist der native Zugriff.

Private Sub Form_Current()
''Needs reference to Microsoft DAO 3.x Object Library
Dim db As Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strResult  As String


strSQL = "SELECT ci.IssueDesc FROM tblCaseIssues ci " _
       & "INNER JOIN tblCaseNewHS_Issues cni ON ci.ID = cni.IssueID " _
       & "WHERE cni.HS_ID = 81"

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

If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        strResult = strResult & ", " & rs!IssueDesc
        rs.MoveNext
    Loop

    strResult = Mid(strResult, 3)
Else
    strResult = "Not found"
End If

Me.TextBoxName = strResult

End Sub

InformationsquelleAutor Fionnuala

2

Nur nehmen Sie Ihre sql-Abfrage, und speichern Sie es als eine Abfrage.

Dann in das Textfeld, platzieren Sie einfach:

=(dlookup("IssuesDesc","name der Abfrage"))

Ich auf ein ziemlich großer Verlust für alle die diese Poster darauf hindeutet, erschlägt der code, wo da keiner ist erforderlich . So speichern Sie Ihre sql als Abfrage, und verwenden Sie dann die Funktion dlookup () - Funktion, wie Sie das Textfeld Datenquelle, und Sie sind fertig.
- Da die erste Antwort schon sagt, Ihre Lösung, aber die OP war immer noch bemüht, eine Methode, die er konnte, verwenden Sie eine SQL-Anweisung als Quelle seiner Anfrage.
InformationsquelleAutor Albert D. Kallal
0
```
Private Sub Form_Load()
    Me.Text0 = CurrentDb.OpenRecordset("SELECT COUNT(name) AS count_distinct_clients FROM (SELECT DISTINCT name FROM Table1 WHERE subject='Soc')  AS tmp;").Fields(0)
End Sub
```
- Es ist besser, eine Erklärung/Kontext eher als nur mit einem code-einzige Antwort.
- Herzlich willkommen auf Stack Overflow! Während dieser code kann die Frage beantworten, die zusätzliche Bereitstellung von Kontext in Bezug auf, warum und/oder wie dieser code beantwortet die Frage, verbessert seine langfristige Wert. Code-nur die Antworten sind entmutigt.
InformationsquelleAutor user7331043

Ich habe die folgende Funktion, um zu lösen dieses problem.
Ich mag diese Lösung, weil Sie nicht haben, um mit gespeicherten Abfragen zu verstopfen Ihrem Navigationsbereich oder lange workarounds.

    Public Function DAOLookup(SQLstatement As String)
    'once you are finished with your SQL statement, it needs to be 
    'formatted for VBA and it also needs to be on one line.
    'example, you would set the control source of a text box to the following
    '=DAOLookup("Select ls_number FROM FROM ls INNER JOIN ls_sort ON ls.ls_id = ls_sort.ls_id WHERE ls_sort.number =" & forms!frmMenu!combo_sort &  ";")
    'Please note, this function only work for single column single row sql statements
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset(SQLstatement)
    If Not rs.BOF Then rs.MoveFirst
    If rs.BOF And rs.EOF Then Exit Function
    DAOLookup = rs(0)
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    End Function

Wurde auf diese Weise erklärte ich es meinem Chef. "Sie können die Funktion DLookUp () - Funktion als Steuerelementinhalt eines Textfeldes. Warum nicht einfach eine Funktion schreiben, die eine Abfrage, und verwenden Sie die Funktion als Steuerelementinhalt?"
Probieren Sie es aus, es fixiert meine situation.

InformationsquelleAutor Daniel L. VanDenBosch

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.