Hejsan, jag har ett problem jag listar mina poster så här Blir väldigt mycket kod att skriva på det sättet. Det bästa är om du har en control collection av textboxarna. En collection till varje typ av fält i ditt recordset. Ta fram poster från en databas till olika textboxar
Set rst = CreateRecordset("select Material, vikt, pris from Material where ProjektId=" & Id & "", dbOpenAsQuery)
Text9.Text = rst("Material")
Text10.Text = rst("Vikt")
Text11.Text = rst("Pris")
nu vill jag att nästa material som finns ska komma i text12.text och tillhörande vikt och pris också i egna textboxar, sen vill jag att detta ska fortsätta. Hur gör jag detta.Sv: Ta fram poster från en databas till olika textboxar
Fast är det många poster som ska ut bör du i stället lägga dem i en listbox eller listview. Sedan klicka på den du vill se vikt och pris för, i bara tre textboxar. Många textboxar blir det annars.
<code>
Dim i as integer
Do Until rst.EOF
Text(i).text = rst("material")
Text1(i).text = "rst("vikt")
Text2(i).text = rst("pris")
i = i + 1
rst.movenext
Loop
</code>