datepicker problem

[eppitis1]

hello,i have this code

Option Explicit

Private Sub Form_Load()

    Me.pump.AddItem "P1--01"
    Me.pump.AddItem "P3--03"
    Me.pump.AddItem "P4--04"
    Me.pump.AddItem "P5--05"
    
    Me.DataGrid.Visible = True
     
End Sub

Private Sub pump_Click()
dim dbfilename as stirng

Dim oRs As New ADODB.Recordset
Dim adoConn As ADODB.Connection
Set adoConn = New ADODB.Connection

 Do
    
        createDummyBase Me.DTP1_date.value, Me.DTP1_hour.value, Me.DTP2_date.value, Me.DTP2_hour.value, 20, pump.Text
        dbFilename = "Report_" & Format(Now, "MM_YY") & ".mdb"
        adoConn.ConnectionString = BuildConnectionString(dbFilename)
        adoConn.Open
        oRs.Open "select * from Report", adoConn, adUseClient, adLockOptimistic
        Set DataGrid.DataSource = oRs
        DataGrid.AllowAddNew = True
        DataGrid.Visible = True
        DataGrid.Refresh
        Debug.Print oRs.RecordCount

End Sub

in the form load i have one combobox called pump which have four values(P1,P3,P4,P5) and four datepickers , two for selecting the date and two for selecting the hour , called: DTP1_date,DTP1_hour,DTP2_date,DTP2_hour .
i want when i choose the DTP1_date,DTP1_hour,DTP2_date,DTP2_hour in the form load to pass their values in the createDummyBase sub(not manully with code).
the .value property of dtpicker doesnot exist.any ideas ?please help.thx

[Siddharth Rout]

Initialize then in the form load...

Private Sub Form_Load()
    With Me.pump
        .AddItem "P1--01"
        .AddItem "P3--03"
        .AddItem "P4--04"
        .AddItem "P5--05"
    End With
    
    DTP1_date.Value = ??? '<~~ Set Default Values Here
    DTP1_hour.Value = ??? '<~~ Set Default Values Here
    DTP2_date.Value = ??? '<~~ Set Default Values Here
    DTP2_hour.Value = ??? '<~~ Set Default Values Here
    
    Me.DataGrid.Visible = True
End Sub

Also what is createDummyBase sub() ?

[eppitis1]

Initialize then in the form load...

Private Sub Form_Load()
    With Me.pump
        .AddItem "P1--01"
        .AddItem "P3--03"
        .AddItem "P4--04"
        .AddItem "P5--05"
    End With
    
    DTP1_date.Value = ??? '<~~ Set Default Values Here
    DTP1_hour.Value = ??? '<~~ Set Default Values Here
    DTP2_date.Value = ??? '<~~ Set Default Values Here
    DTP2_hour.Value = ??? '<~~ Set Default Values Here
    
    Me.DataGrid.Visible = True
End Sub

Also what is createDummyBase sub() ?

as i said the .value property of dtpicker doesnot exist.
i do not want to pass the value of the datepicker with code but when i chose the date and time from the datepickers in the form load.
the createdummybase is a sub which creates a .mdb database.
the createdummybase i want to take the arguments of the selected date and time of the datepickers and from the combobox called pump.how can i do that ?thx

[Siddharth Rout]

when i chose the date and time from the datepickers in the form load.

You mean after form load?

Before you click the combo do you select the vaues of DTP manually? If not then the value of the DTP will not be passed to createdummybase() correctly...

You can set the value of the DTP either in the form load or you will have to set the value of DTP manually before clicking the Combo....

Hope I have understood your query correctly?

[akhileshbc]

as i said the .value property of dtpicker doesnot exist.

That is odd...!

[eppitis1]

That is odd...!

i havent used the correct control names ..you were right.