Firestorm696
Mitglied
hoi leute!
also mein problem lautet wie folgt:
ich hab ne datenbank mit zwei miteinander verknüpften tabellen.
dann hab ich ein formular mit einigen leeren ole-objekten, die ich füllen möchte.
die tabellen lad ich erstmal per recordset in eine variable.
als nächstes wollte ich ne 1-7 schleife machen, ging auch, in der variable die für den wert vorgesehen war stand also nun ein wert. nun will ich aus dem datensatz dieses wertes ein ole-objekt in das formular laden, und hier liegt mein problem...
das fett gedruckte mag er nicht =(
könnt ihr mir helfen?
also mein problem lautet wie folgt:
ich hab ne datenbank mit zwei miteinander verknüpften tabellen.
dann hab ich ein formular mit einigen leeren ole-objekten, die ich füllen möchte.
die tabellen lad ich erstmal per recordset in eine variable.
als nächstes wollte ich ne 1-7 schleife machen, ging auch, in der variable die für den wert vorgesehen war stand also nun ein wert. nun will ich aus dem datensatz dieses wertes ein ole-objekt in das formular laden, und hier liegt mein problem...
Code:
For Aktuellekarte = 1 To 7
Zufallskarte = Int(Rnd * Anzahlinsgesamt + 1)
Deck1tab.MoveFirst
Deck1tab.Move Zufallskarte
Kartennummer = Deck1tab.Fields("Wert").Value
Allekartentab.Move Kartennummer
Set Forms("Spieler 1 Hand").Object("rot1") = Allekartentab!Kartenbild
Deck1tab.Move (Zufallskarte)
Next Aktuellekartekönnt ihr mir helfen?
