Kod:
Private Sub Form_Current()
Select Case KeyCode
Case vbKeyF3: DoCmd.OpenForm "Form2", acNormal
End Select
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF3: DoCmd.OpenForm "Form2", acNormal
End Select
End Sub
Private Sub ARA_Click()
DoCmd.OpenForm "Form2", acNormal, "", "", , acNormal
End Sub
Peki böyle yapmanızdaki maksat nedir acaba ?
Form2 formunada aşağıdaki kodu yazmışsnız.Bunlar üsteki formların kodlarıyla ilişkisi nedir?
Kod:
Private Function isFormLoaded(strFormName As String)
isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End Function