Microsoft Access

VBA ADODB Frequent Error with adDate or adDBdate parameter

2008-11-14T17:56:00Z

using

[code language=’vb’]

cmd.Parameters.Append cmd.CreateParameter("@dtDate", adDate, adParamInput, 0, "11/13/2008")

[/code]

it would return this error:

"Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."

Fix by using adDBTimeStamp

Stock report opening code for Access

2008-07-29T18:40:00Z

I put the following code in all my Access reports

 Option Explicit
Dim strCompanyID As String
Dim strFormName As String
Dim mlngBgColor As Long
Dim mintCount As Integer


Private Sub Report_Close()
    If isOpen(strFormName) Then
        DoCmd.Close acForm, strFormName
        DoCmd.Restore
    End If
End Sub


Private Sub Report_Open(Cancel As Integer)
    
    Dim strDatabase As String
    Dim strStartProject As String
    Dim strEndProject As String
    Dim strStartDate As String
    Dim strEndDate As String
    
    strFormName = "frmCostCatSummary"
    
    DoCmd.OpenForm strFormName, acNormal, , , , acDialog
    
    If isOpen(strFormName) Then
        DoCmd.Maximize
        
        strStartProject = Trim(Forms!frmCostCatSummary!cboStartProject)
        strEndProject = Trim(Nz(Forms!frmCostCatSummary!cboEndProject))
        strStartDate = Trim(Nz(Forms!frmCostCatSummary!txtDate1))
        strEndDate = Trim(Nz(Forms!frmCostCatSummary!txtDate2))
        
        strCompanyID = setDatabase("qryCostCatSummary", "sp_EP_CostCatSummary '" & strStartProject & "','" & strEndProject & "','" & strStartDate & "','" & strEndDate & "'")
        lblCompanyID.Caption = strCompanyID
    Else
        Cancel = True
    End If
End Sub

IsOpen function for Access

2008-07-29T18:39:00Z

Public Function isOpen(strName As String, Optional intObjectType As Integer = acForm) As Boolean
On Error GoTo err_isOpen
        'Returns True if strName is open, False otherwise.
        'Assume the caller wants to kmow about a form.
        isOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
exit_isOpen:
    Exit Function
err_isOpen:
    MsgBox Err.Description
    Resume exit_isOpen
End Function