Zufälligen Datensatz in Messagebox ausgeben

antifa2004 · 23. April 2009

Hallo ihr,

folgendes Problem habe ich:

Ich möchte aus einer Access-Tabelle einen zufälligen Datensatz auswählen und diesen in einer Messagebox ausgeben.

Mein Skript funktioniert leider nicht:

Private Sub Befehl187_Click()
Dim strSQL As String
strSQL = "SELECT * FROM tabelle ORDER BY rnd(id);"
Set Rst = Dbs.OpenRecordset(strSQL)
MsgBox (Rst & "<< hier davor steht mein Datensatz")
End Sub

Was mache ich falsch? Hat jemand eine Idee? Wäre wirklich schön

Danke!

Hackl-Schorsch · 23. April 2009

Hi Antifa,

leider schreibst Du nicht, was nicht funktiert (Fehlermeldung ?)

However, nachfolgend etwas angepasst, dann sollte es klappen (Es gibt ein Feld mit dem Namen 'Feld2' in meiner Tabelle.

Code:

Private Sub Befehl0_Click()
    Dim dbs As Database
    Dim rst As Recordset
    Set dbs = CurrentDb
    
    Dim strSQL As String
    strSQL = "SELECT * FROM tabelle1 ORDER BY rnd(id);"
    Set rst = dbs.OpenRecordset(strSQL)
    MsgBox rst!Feld2

End Sub

Gruß GEorg

antifa2004 · 24. April 2009

Hej Hackl-Schorsch,

danke! Funzt jetzt prima!
Fehlermeldung hatte ich vergessen zu schreiben: Es erschien: "Objekt fehlt"

Vielen Dank!

Suche

Zufälligen Datensatz in Messagebox ausgeben

antifa2004

Ensign

Hackl-Schorsch

Cadet 3rd Year

antifa2004

Ensign

Ähnliche Themen