No. | 質問・回答 | おれい |
|
[108847] ACCESSのVBAで、Private Sub 〜endsubの後の区切り線(プロシージャの区分線)が消えてしまいます。 |
|
|
ACCESSのVBAで、記述時にはあったPrivate Sub 〜endsubの後の区切り線(プロシージャの区分線)が実行時に消えてしまい、アクションを起こしてくれなくなります。
以下にコードを載せますので、お手数をお掛けしますがどこが駄目なのか教えて頂けないでしょうか?
Option Compare Database
---------------------------------------------------------------------------
Private Sub CAMSID_Change()
Me!CAMSID.Dropdown
End Sub
---------------------------------------------------------------------------
Private Sub CAMSID_NotInList(NewData As String, Response As Integer)
If MsgBox("未登録会社です。登録して下さい ", vbYesNo + vbExclamation, " 注意") = vbYes Then
Forms![Fメイン金額入力].Visible = False
Me!CAMSID.Undo
'データが追加中であることを示すため、引数 Response を設定する。
Response = acDataErrAdded
DoCmd.SetWarnings False
DoCmd.OpenForm "F取引先登録", , , , acFormAdd, acDialog, newdate
DoCmd.SetWarnings True
Else
' エラー メッセージを表示せず、変更を元に戻す。
Response = acDataErrContinue
Me!CAMSID.Undo
End If
Exit_会社名_NotInList:
Exit Sub
End Sub
---------------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acFirst
End Sub
---------------------------------------------------------------------------
Private Sub コマンド20_Click()
On Error GoTo Err_コマンド20_Click
DoCmd.Close acForm, "F支払日"
DoCmd.Close acForm, "Fメイン金額入力"
Forms![タイトルラベル].Visible = True
Exit_コマンド20_Click:
Exit Sub
Err_コマンド20_Click:
MsgBox Err.Description
Resume Exit_コマンド20_Click
End Sub
---------------------------------------------------------------------------
Private Sub 支払額仕訳_Enter()
Me.支払額仕訳.Dropdown
If (IsNull([支払額仕訳])) Then
Me.支払額仕訳 = 1
Else
End If
End Sub
---------------------------------------------------------------------------
Private Sub 支払額仕訳_LostFocus()
If Me.支払額仕訳 = 3 Or Me.支払額仕訳 = 4 Then
DoCmd.GoToControl "支払日"
Else
End If
End Sub
--------------------------------------------------------------------------
(続きます)
ななみ (未登録) 2008年9月10日17:02
|
|
|
|
[108848] |
(続き)
Private Sub 支払日_Enter()
Me!支払日.SelStart = Len(Me![支払日])
End Sub
--------------------------------◆この線が消えます◆-----------------------
Private Sub 請求額(当月分)_BeforeUpdate(Cancel As Integer)
Me![請求額(消費税)] = Int(Me![請求額(当月分)] * 0.05 + 0.5)
End Sub
--------------------------------◆この線が消えます◆-----------------------
Private Sub 請求額(当月分)_Click()
Me![請求額(当月分)] = Null
Me![請求額(消費税)] = Null
End Sub
--------------------------------◆この線が消えます◆-----------------------
Private Sub 請求額(当月分)_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err
Select Case KeyCode '押されたキーのキーコードをひらいます
Case vbKeyUp '「↑」の場合
DoCmd.GoToRecord , , acPrevious '前のレコードに移動する
Case vbKeyDown '「↓」の場合
DoCmd.GoToRecord , , acNext '次のレコードに移動する
Case vbKeyMultiply '「*」の場合
Me.Parent![追加・修正].SetFocus 'シートの切替
Case Else '上記以外の場合はアクションを起こさない
End Select
Exit Sub
Err:
Resume Next
End Sub
ななみ (未登録) 2008年9月10日17:03
|
|
|
|
( 参照数:3562 日平均:0.6 ) |
|
〜 回答の受付を終了しました 〜 |