Merhabalar
 Aşağıdaki 2 kodu nameid_Click() olay yordamında birleştirebilirmiyiz? Fakat 1. koddaki gibi formu açmayacak 2. koddaki gibi gizli olan forma bilgileri getirecek ve gizli form görünür olacak.

1.kod

Private Sub nameid_Click()
On Error GoTo Error_Trap

Select Case Me.dt_code
Case "BCG", "BCK", "MKR", "MTG"
DoCmd.OpenForm "frmDetay", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog

Case "BTG", "BTK"
DoCmd.OpenForm "frmDetay2", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog
End Select

Error_Trap:
MsgBox ("Error Code:" & Err.Number & " Error Description:" & Err.Description)

End Sub


2.kod

Private Sub Komut25_Click()
Me.DETAY.SourceObject = "frmDetay"
End Sub