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