Access: Ergebnis aus Abfrage in VBA-Code nutzen

Hallo zusammen,

folgender Sachverhalt:

Nehmen wir an, ich habe in einer Tabelle Daten hinterlegt, Schlüssel ist eine ID (AutoWert), weitere Spalten sind "Frage" & "Antwort" (beispielhaft)

In einem Formular ist nun ein Textfeld, in dem die ID eingegeben werden soll, bei Klick auf einen Button soll in der DB nach dem Eintrag mit der eingegebenen ID gesucht werden.
Wird diese gefunden, so soll sich ein weiteres Fenster öffnen, in dem die Infos aus den anderen Spalten in weitere Textfelder eingetragen werden.
Ist kein Eintrag mit eingegebener ID vorhanden, so soll sich kein neues Fenster öffnen, lediglich eine MsgBox soll aufpoppen ("Fehler" o.ä.).

Nun meine Frage:
Wie kann ich das Ergebnis der Abfrage in meinen VBA-Code implementieren (z.B. für eine If-Schleife) und wie gestallte ich die Abfrage hierfür am besten?

Vielen Dank bereits im Voraus für (hilfreiche) Antworten!

 

Code:

Dim MyDaten As DAO.Recordset ' repräsentiert deine Tabelle
Dim MeineFrage As String        ' zum zwischen speichern
Dim MeineAntwort As String      ' ebenfalls
    
Set MyDaten = CurrentDb.OpenRecordset("Dein_TabellenName") ' öffnet eine X-beliebige Tabelle
MyDaten.FindFirst "[Dein_ID_Feld] = " & ID_nach_der_gesucht_werden_soll ' sucht nach dem eintrag, mit angegebenem Suchbegriff (strings in anführungszeichen)
    
If Not MyDaten.EOF Then ' prüft, ob ein Eintrag gefunden wurde
    MeineFrage = MyDaten![Dein_Frage_Feld]    ' Daten auslesen (vom gefundenen DS)
    MeineAntwort = MyDaten![Dein_Antwort_Feld] ' ebenfalls
Else
    MsgBox ("ID nicht gefunden")  ' wenn nix gefunden wird -> Fehlermeldung
End If
MyDaten.close: Set MyDaten = nothing ' Tabelle schließen und Objekt wieder freigeben

 

ja stimmt, aber es war mir zu kompliziert zu beschreiben und ich hätte erstmal wieder gucken müssen, wie es funktioniert...

 

Okay, danke für die schnelle Antwort...Jetzt sagt er mir aber einen "Laufzeitfehler '3251': Operation wird für diesen Objekttyp nicht unterstützt' bei Zeile

Code:

MyDaten.FindFirst "[Dein_ID_Feld] = " & ID_nach_der_gesucht_werden_soll

Als [Dein_ID_Feld] habe ich natürlich das Feld aus der Tabelle genommen (FrageID)
und als [ID_nach_der_gesucht_werden_soll] habe ich das Textfeld "txt_suchen" genommen...

 

Zeig ma her die Methode

 

Code:

Option Compare Database


Private Sub but_suchen_Click()
Dim MyDaten As DAO.Recordset            ' repräsentiert deine Tabelle
Dim MeineFrage As String                ' zum zwischen speichern
Dim MeineAntwort As String              ' ebenfalls
Dim MeineVortext As String              ' ebenfalls
Dim MeineAusgangssituation As String    ' ebenfalls

    
Set MyDaten = CurrentDb.OpenRecordset("tbl_Fragen") ' öffnet eine X-beliebige Tabelle
MyDaten.FindLast "FrageID = " & txt_suchen ' sucht nach dem eintrag, mit angegebenem Suchbegriff (strings in anführungszeichen)
    
If Not MyDaten.EOF Then ' prüft, ob ein Eintrag gefunden wurde
    MeineAusgangssituation = MyDaten!Ausgangssituation
    MeineVortext = MyDaten!Vortext
    MeineFrage = MyDaten!Frage    ' Daten auslesen (vom gefundenen DS)
    MeineAntwort = MyDaten!Antwort ' ebenfalls
Else
    MsgBox ("ID nicht gefunden")  ' wenn nix gefunden wird -> Fehlermeldung
End If
MyDaten.Close: Set MyDaten = Nothing ' Tabelle schließen und Objekt wieder freigeben

End Sub

So sieht die Methode aus.... das mit dem Kombinationsfeld ist natürlich ne Alternative Hascheff, allerdings soll das ganz eauch noch ein wenig erweiterbar sein. Z.B. soll jede Frage mit einem (oder mehreren) "Tag(s)" versehen werden, dass man nach bestimmten Themen suchen kann etc...also irgendwann muss ich ja so ein Suchfenster basteln...

 

Code:

MyDaten.FindLast "FrageID = " & CLng(txt_suchen) 

änder mal die Zeile so ab! "txt_suchen" gibt dir nen string zurück, allerdings ist das Feld vom Typ Long. Wenn es allerdings nen StringFeld is, musste die ganze sache noch in Anführungszeichen setzen.

 

FrageID ist ein AutoWert, also kein String.
Habs jetzt mal so geändert, allerdings ist der Fehler immer noch der selbe...

 

Machs ma via SQL, also so:

Code:

Set MyDaten = CurrentDb.OpenRecordset("Select * from Deine_Tabelle where Dein_Feld =  " & Dein_Suchwert)

 

Schon viel besser, jetzt klappts auch....wie bekomme ich jetzt die ID, welche ich in dem Textfeld eingegeben habe, in das neue Formular rein?

 

Deklarier die Variablen unter "Option Compare Database" als privat

Code:

Option Compare Database

private MeineVariable as Long

und dann machste dir dafür ne Gettermethode

Code:

function GetMeineVariable() as Long
GetMeineVariable = MeineVariable
end function

und dann rufst du die Methode einfach aus dem gewünschten Formular auf...

 

Hmmmm, okay....jetzt bleibt für mich nur die Frage, wie ich das dann da reinschreibe...möchte ja, dass, sobald sich das andere Fenster öffnet, diese ID + anderen Infos zu dieser ID in ihren Feldern steht und ich in dem neuen Formular erst noch irgendwo klicken muss, um das ganze "anzufahren"...weiss aber leider nicht, wie ich das hinbekommen kann....bin leider nicht so der Super-Progger, aber ich gebe mir größte Mühe

 

Na dann "füllst" du das Formular einfach beim OnShow-Ereignis des Formulars!