Opstellen controlelijsten.

[sarges]

Beste kenners,

Ik ben niet bekend met VBA, maar wil er erg graag gebruik van maken.
Omdat het mijn werk zo veel makkelijker zal maken. Daar ik veel lijsten moet invullen m.b.t. controles.
Daarom wil ik jullie hulp vragen. Ik heb zelf al geprobeerd om iets op te zetten.
Maar kom geen steek verder.


Serge

Private Sub UserForm_Initialize()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\keuzelijst.xls;"
rs.Open "SELECT * FROM [Sheet1$]", conn

Do While Not rs.EOF
    ComboBox1.AddItem rs("Nummer")
    ComboBox2.AddItem rs("Toestel")
    ComboBox3.AddItem rs("Vereiste")
    ComboBox4.AddItem rs("Aanwezige")
    ComboBox5.AddItem rs("Controle")
    ComboBox6.AddItem rs("Koud")
    ComboBox7.AddItem rs("Warm")
    ComboBox8.AddItem rs("Meng")
    ComboBox9.AddItem rs("Gebruik")
    ComboBox10.AddItem rs("Vernevel")
    ComboBox11.AddItem rs("Aandachts")
    rs.MoveNext
Loop

rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub

Private Sub Invoegen_Click()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\keuzelijst.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & ComboBox2 & ComboBox3 & ComboBox4 & ComboBox5 & ComboBox6 & ComboBox7 & ComboBox8 & ComboBox9 & ComboBox10 & ComboBox11 & "'", conn

Selection.GoTo wdGoToBookmark, , , "Nummer"
Selection.TypeText rs("Nummer")
Selection.GoTo wdGoToBookmark, , , "Toestel"
Selection.TypeText rs("Toestel")
Selection.GoTo wdGoToBookmark, , , "Vereiste"
Selection.TypeText rs("Vereiste")
Selection.GoTo wdGoToBookmark, , , "Aanwezige"
Selection.TypeText rs("Aanwezige")
Selection.GoTo wdGoToBookmark, , , "Controle"
Selection.TypeText rs("Controle")
Selection.GoTo wdGoToBookmark, , , "Koud"
Selection.TypeText rs("Koud")
Selection.GoTo wdGoToBookmark, , , "Warm"
Selection.TypeText rs("Warm")
Selection.GoTo wdGoToBookmark, , , "Meng"
Selection.TypeText rs("Meng")
Selection.GoTo wdGoToBookmark, , , "Gebruik"
Selection.TypeText rs("Gebruik")
Selection.GoTo wdGoToBookmark, , , "Vernevel"
Selection.TypeText rs("Vernevel")
Selection.GoTo wdGoToBookmark, , , "Aandachts"
Selection.TypeText rs("Aandachts")
End Sub

 

[snb]

Begin bij het begin.
Schaf een boek aan over VBA en lees dat systematisch door.
Kijk ook eens hier

 

[sarges]

Ik begrijp wat je bedoeld. Ik wil er zeker meer over weten hoe het allemaal in elkaar zit.
Boeken heb ik besteld/binnen.
Maar ik wil dit snel gebruiken omdat het mijn werk zoveel makkelijker maakt.
En voordat je zover bent om dit goed op te stellen ben ik wel even bezig.
Maar begrijp goed wat je bedoeld.

Groeten Serge