ACCESS 「台帳」等でコンボで「年」「月」「会社」選択時にレコード追加
「台帳」で「年」「月」「会社」の3つをキーとする場合、「年」「月」があらかじめ入っていて、「会社」を選択したときに、「台帳」の新規レコードが追加されるようにするモジュール「Add_Nengetu_Com」を自作
すでに同じキーのレコードが存在している場合は、エラー制御でレコードは追加されず、当該レコードが表示される。
Function Add_Nengetu_Com()
On Error GoTo err
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset(“TB_支払合計書”)
Dim Y As Integer
Dim M As Integer
Dim C As Long
Y = Me.cboNEN
M = Me.cboMONTH
C = Me.cboCOM
rs.AddNew
rs!年 = Y
rs!月 = M
rs!会社C = C
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
Exit Function
err:
Set rs = Nothing
Set db = Nothing
Exit Function
End Function
■ コンボ選択時のイベント
Private Sub cboCOM_AfterUpdate()
If IsNull(Me.cboNEN) = False And IsNull(Me.cboMONTH) = False And IsNull(Me.cboCOM) = False Then
Add_Nengetu_Com
End If
Me.Requery
Me.F_支払明細_サブ.Requery
‘Me.Recalc
Me.cmdRef.SetFocus
End Sub