Dtpicker hoe te programmeren dat de datum in een excel-cell komt

[SandorCRX]

Hallo,

Ik wil op een userform een date picker neerzetten. De datum moet in een cell worden opgeslagen in excel

Hoe programmeer ik deze code?
Ik ben een beginner en ik kan werkelijk niks vinden

Hoop dat jullie kunnen helpen

Vriendelijke groet,
Sandor

 

[Wigi]

Hang eens een bestandje hier bij met daarin de userform en de date picker.

 

[SandorCRX]

waarde1 = Sheet2.Cells(2, 11)
waarde2 = Sheet2.Cells(2, 12)
waarde3 = Sheet2.Cells(2, 13)
waarde4 = Sheet2.Cells(2, 14)

'Data wegschrijven
With ActiveCell.CurrentRegion
For viRcount = 1 To viRows
vtSql = ""
vtSql = vtSql & " INSERT INTO " & Tabelnaam
vtSql = vtSql & " VALUES ("
vtSql = vtSql & "'" & waarde1 & "'" & ","
vtSql = vtSql & "'" & waarde2 & "'" & ","
vtSql = vtSql & waarde3 & ","
vtSql = vtSql & waarde4 & ")"


Next
cmd.CommandText = vtSql
cmd.ActiveConnection = cnn
cmd.Execute (vtSql)


Het werkt als volgt: Waarde 1,2,3,4 zijn waarden die als eerste op Sheet2 worden opgeslagen in aparte cellen. Vervolgens worden deze waarden uit de cellen gehaald en in een tabel worden opgeslagen in de sql database.
Waarde2 dat is de datum.

Als je een gewone textbox gebruikt, kun je daaraan een controlsource hangen. Daar kun je dus die cellen aan hangen.

Maar met een Dtpicker niet. Hoe moet ik nou die code schrijven als ik de waarde van die ticker op wil slaan in waarde2....

Bedankt alvast!

 

[Wigi]

Hang eens een bestandje hier bij met daarin de userform en de date picker.

 

[SandorCRX]

alstu
Hij staat in UserForm 2, de date ticker

Select_CRX = ophalen gegevens database
INSERT_CRX= wegschrijven gegevens

 

[Wigi]

Ik kan jou niet verder helpen, want als ik het bestandje open krijg ik dit:

"Could not load an object because it is not available on this machine"