今回は、フォーム間での操作です。
フォームからフォームを開く
Private Sub btn1_Click()
If Not IsNull(Me.社員番号.Value) Then
DoCmd.OpenForm "Fフォームを開く2", , , "社員番号 = " & Me.社員番号.Value, , acDialog
End If
End Sub
Private Sub btn1_Click()
DoCmd.Close acForm, Screen.ActiveForm.Name
End Sub
フォームを開くときに引数を渡す
Private Sub btn1_Click()
DoCmd.OpenForm "Fフォームを開く4", , , , , acDialog, Screen.ActiveControl.Name
End Sub
Private Sub btn2_Click()
DoCmd.OpenForm "Fフォームを開く4", , , , , acDialog, Screen.ActiveControl.Name
End Sub
Private Sub btn3_Click()
DoCmd.OpenForm "Fフォームを開く4", , , , , acDialog, Screen.ActiveControl.Name
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.txt1.Value = "[" & Me.OpenArgs & "]ボタンより開かれました"
End Sub
Private Sub btn1_Click()
DoCmd.Close acForm, Me.Name
End Sub
コメント