bahsettiğiniz talebinize yönelik olarak;
öncelikle kendi adıma,
üst sürüm olması nedeni ile uygulamanızı inceleme imkanı söz konusu değil fakat yazdığınız tanımlar ve kod ifadelerinden faydalanmak sureti ile,aşağıdaki kodları deneyebilirsiniz.
eğer dt_code denetiminde (alanında) belirttiğiniz bu iki seçimden biri söz konusu ise içeriğinde ("BTK" / "BCK" kast edilmektedir);
Kod:
Private Sub nameid_Click()
On Error GoTo Error_Trap
If Me.dt_code="BTK" then
DoCmd.OpenForm "frmDetay", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog
Exit Sub
Else
DoCmd.OpenForm "frmDetay2", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog
End If
Error_Trap:
MsgBox ("Error Code:" & Err.Number & " Error Description:" & Err.Description)
End SubKod:
If Me.dt_code="BTK" then
DoCmd.OpenForm "frmDetay", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog
Exit Sub
ElseIf Me.dt_code="BCK" then
DoCmd.OpenForm "frmDetay2", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog
End If