formları aktif olarak kullanma

Buda Detay bilgileri için Kod

Private Sub CustomerName_DblClick(Cancel As Integer)

On Error GoTo Err_CustomerName_DblClick



    Dim stDocName As String

    Dim stLinkCriteria As String



    stDocName = "frmCustomerDetail"

    

    stLinkCriteria = "[bitid]=" & Me![CustomerID]

    DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_CustomerName_DblClick:

    Exit Sub



Err_CustomerName_DblClick:

    MsgBox Err.Description

    Resume Exit_CustomerName_DblClick

End Sub

Teşekkürler Puletin