Datenbanken

Wert an Kontrollkästchens übertragen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hi! Ich hab eine Tabelle mit einem "ja/nein" Feld. Und ich möchte einfach nur, dass der Wert an ein Kontrollkästchen im Formular übergeben wird. Mit ... kontrollkästchen = recordset.fields("kontrollkästchen") funzt es nicht... wie funktioniert das? Bin für jeden Tip dankbar? LG Patrick

Antwort 1 von mapet

Hallo

Warum das Kontrollfeld nicht direkt an das Tabellenfeld binden (Steuerelemntinhalt)

mapet

Antwort 2 von Patrick1

weil ich das gern ausprogrammieren möchte. Ich hab das Formular oder andere Felder auch nicht an die Tabelle gebunden. Ich lese alles mit

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select * from tbl_stamm")

rst.MoveFirst
txt_name = rst.Fields("name")

usw. aus

aber wenn ich

chk_verborgt = rst.Fields("verborgt")

eingebe, dann geht das nicht.

Muss ich da eine bestimmte Eigenschaft wählen (z.B.: .value ? , hab ich ausprobiert. das funzt nicht)

Danke im Voraus

LG
Patrick

Antwort 3 von mapet

Hallo

folgender Code funktioniert bei mir

Dim aktuelledb As Database
Dim r As Recordset
Dim Wert As Variant

Set aktuelledb = CurrentDb
Set r = aktuelledb.OpenRecordset("select*from t_Test", dbOpenDynaset)
r.MoveFirst
Me!Kontrollkästchen1 = r.Fields("auswahl")

Auswahl ist das Feld in der Tabelle

mapet

Antwort 4 von Patrick1

Danke für deine Hilfe! Ich hab meinen Fehler gefunden.

LG
Patrick