Supportnet / Forum / Datenbanken

Hi alle zusammen! Ich möchte gerne in Access eine Suchanfrage definieren und habe dazu ein SQL-Statement definiert. Private Sub ausfuehren_Click() On Error GoTo Err_ausfuehren_Click Me!Eingabe.SetFocus Dim NewRecord As String NewRecord = " SELECT...." Me.RecordSource = NewRecord End Sub Das funktioniert auch recht gut, allerdings nur solange mein SQL-Statement ein Ergebniss liefert. Sobald kein Ergebniss mehr kommt, wird das Formular leer und alles verschwindet. Auch die Buttons und somit muss ich das Formular schließen und neu öffnen. Weiß jemand wie ich überprüfen kann ob meine SQL-Anweisung ein Ergebniss liefert bzw. mein RecordSource leer ist? Oder eine andere Möglichkeit das zu umgehen? Kenne mich leider nur sehr wenig mit Access und VBA aus...

Moin eigentlich ist es ganz einfach ..
du könntest z.B.: Einen zweite recordset öffnen
Code:
´Deklarieren
Dim db as Dao.Database
Dim rs as Dao.Recordset

´Initialisieren
set db = dbengine.Workspaces(0).Databases(0)
set rs = db.OpenRecordset("SELECT...",dbopendynaset)

´Abfragen ob Record EndOfFile , Wenn ja ist er leer
If rs.EOF then Exit Sub

Wenn du das in deinen Code mit einbaust sllte es eigentlich keine Probleme mehr geben..
Wenn er sich wegen Dao stört muss du DAO version 3.6 noch unter den Verweisen aktivieren..
Gruß 9247

• verknüpfung von formular
• Access-Formular kopieren?
• access formular exportieren
• MS access bilder
• Access Datensatz Abhängigkeit