Microsoft Access 掲示板

マイクロソフト　アクセス365でメインフォームに都道府県をチェックぼっくで並べ、サブフォームにも都道府県チェックボックスを４７都道府県ごとに一覧表を並べ、メインフォームから入力できるフォームを作りたいと思っています。未熟者で思うようにいかず苦しんでおります。ステップ実行で流れを確認しているのですが、MyVariable1に進めないです。変数に値が入らないです。新規登録に進めません。ご指導いただければ幸いです。

モジュール

Option Compare Database
Option Explicit

'共通変数	標準モジュール	
Public MyVariable1 As Variant	
Public MyVariable2 As Variant
Public MyVariable3 As Variant
Public MyVariable4 As Variant
Public MyForms As Variant
Public MyFlag As Variant

Pulic Sub MyFunction()
'MyVariable=0		初期化
'MyVariable=1		新規登録の時の識別番号
'MyVariable=2		修正するときの識別番号
'MyVariable=3		削除するときの識別番号
'MyVariable=4		復元するときの識別番号


Dim a(3) As Variant
Select Case MyVariable1
	Case1
		a(1)="新規登録しますか？"
	Case2
		a(1)="修正しますか？"
	Case3
		a(1)="削除しますか？"
	Case4
		a(1)="復元しますか？"
End Select

'オペレータに処理内容をするかを問いかける
	a(2)=Msgbox("" & a(1) & "", vbYesNo)

'”いいえ”を押したら処理を抜ける
	if a(2)=vbNo Then

'パブリック半数に１を代入する
'Callプロシージャを抜けて元のプロシージャでキャンセルさせるため
	MyVariable2 = 0
	MyFlag = 0
	MsgBox ("処理を中断しました。")
	Exit Sub
	End If

'インプット
	a(2) = InputBox("パスワードを入力してください。パスワードは1234です。")

'キャンセルを押したら処理を抜ける
	if a(2) ="" Then
		MyVariable2 = 0
		MyFlag = 1
		Exit Sub
	Else
		MyVariable2 = "YES"
	End If
	End Sub



'メインフォーム
Option Compare Database
Option Base 1


'共通変数
	Dim MyVriable1 As Variant
	Dim MyVriable2 As Variant
	Dim MyVriable3 As Variant

Private Sub ComboBoxInIT()
On Error Resume Next
	Dim Ctlas As Control
	Dim strSQL As Control

	For Each strSQL In Me.Controls
	With strSQL
		If (.ControlType = acComboBox Or .ContorolType = acTextBox) And _
			.Name <> Me.ActiveControl.Name Then
			.Value = Null
		End If
	End With
	Next strSQL
End  Sub

Private Sub Call2()
	Select Case MyVariable1
	case1
'新規登録
	MsgBox("新規入力を許可します。")
	Me.Chk許可flg.Enabled = True
	Me.Cmb担当者.Enabled = True
	Me.Chk北海道.Enabled = True
	Me.Chk秋田.Enabled = True
'		↓
	Me.Chk鹿児島.Enabled = True
	Me.Chk沖縄.Enabled = True
	Me.Txt曜日.SetFocus
	Exit Sub
	
'編集
	Case2
	End Select
End Select
End Sub


Private Sub Cmd新規登録_Click()
On Error GoTo Skip新規登録
	MyForms = Forms!メインフォーム!サブフォーム!Chk許可flg

If Me.Chk許可flg = True Then
GoTo LstLine
End If

MyVariable1 = 1
Call MyFunction

If MyVariable2 = "YES" Then
Call Call2
Exit Sub
Else
Exit Sub
End If

'___________________________________________________________________

LastLine:
	Dim aa As Variant
	If Me.Cmb担当者.Value ="" Or IsNull(Me.Cmb担当者)
Then
	MsgBox("担当者名が空白です。")
	Me.Cmb担当者.SetFocus
	Exit Sub
	End If

'ADO接続開始
	Dim Cn As ADODB.Connection
	Dim Rs As ADODB.Recordset
	Dim strSQL As String
	Dim a As Variant

	Set Cn = CurrentProject.Connection
	Set Rs = New ADODB.Recordset
	Rs.Open "MST都道府県",Cn, adOpenKeyset, adLockOptimistic
	
	Dim b,c,d As Variant
	if me.txt曜日.value = "" Or IsNull(Me.Cmb担当者)
	Then
	a = MsgBox("曜日か担当者の項目が未入力です。", vbYesNo)
	If a = vbNo Then
	Me.Txt曜日.SetFocus
	Exit Sub
	End If
	End If

'登録
	Rs.AddNew
	Rs.Update
'ADO接続を切断
	Cn.Close
	Set Cn = Nothing

	Rs.Open strSQL,Cn, adOpenKeyset,　adLockOptimistic
	FormsS("メインフォーム").Form("Subフォーム").Form.Requery

	Me.サブフォーム.Form.Filter = strSQL
	ME.サブフォーム.Form.fIlterOn = True
SKIP新規登録:
End Sub

職場で作っているソースコードを問題ない範囲でプリントアウトし、手作業で移しました。若干の不備等あるかもしれません。ご了承ください。
私がわからないことは　なぜステップ実行で”新規実行”（変数に値 1 がはいらないのか？）ご指導ください。