AccessVBA入門⑦フォーム間連携

今回は、フォーム間での操作です。

フォームからフォームを開く
フォームを開くときに引数を渡す

フォームからフォームを開く

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