Messages

jd gmn gan??

dh ane letakkin di bawah  SaveAddBuss = ObjDBUMFBANK.Add(txt_lease.Text, txt_lesse.Text, cbopay.BoundText, cbotype.Text, DTPicker3.Value, DTPicker1.Value, DTPicker2.Value, txt_tenor.Text, txt_pay.Text, txt_rental.Text, True, Database_Nm, ServerName)

tp msh error " object required"

gmn?

jadi diletakkan pas dmn??

gan ane ada masalah untuk insert combobox ke vb,ini scrip yg dah ane buat :

Private Function SaveAddBuss() As Boolean
    On Error GoTo SaveAddBuss_Error
    Dim ctl As Control
       
        SaveAddBuss = False
        For Each ctl In Me.Controls
             If TypeOf ctl Is TDBCombo Then
                If ctl.Text = "" Then ctl.BoundText = ""
             End If
        Next
       
        SaveAddBuss = ObjDBUMFBANK.Add(txt_leaseText, txt_lesse.Text, cbopay.BoundText, cbotype.ItemData, DTPicker3.Value, DTPicker1.Value, DTPicker2.Value, txt_tenor.Text, txt_pay.Text, txt_rental.Text, True, Database_Nm, ServerName)

        If Not SaveAddBuss Then
            MsgBox "Warning. The record was not Saved to the database.", vbCritical, MSGBOX_HDR & " - VALIDATION"
        End If

SaveAddBuss_Done:
  Screen.MousePointer = vbNormal
  Exit Function

SaveAddBuss_Error:
  Select Case Err.Number
    Case 13
      MsgBox "Invalid data. The data you are trying to save is invalid. Please make sure that all the data that you are entering is valid.", vbInformation, MSGBOX_HDR
      Resume SaveAddBuss_Done
  End Select
  Call Process_Error(MODULE_NAME, "SaveAddBuss")
  Resume SaveAddBuss_Done

End Function

pas ane run  gs bisa knp ya,trims..