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
Buda Detay bilgileri için Kod
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...