使用如下方式添加,要求各个字段都不能为空;如果不是必填项,可以在保存时设置特殊值,代表“空值”。部分代码如下
Dim strID As String
Dim strSQL As String
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
cnn.BeginTrans
strID = "CG" & Format(Int(Mid(DMax("采购订单号", "采购订单表"), 3)) + 1, "00000")
If strID = "CG" Then
strID = "CG00001"
End If
strSQL = "insert into 采购订单表(采购订单号,采购日期,供应商ID,经办人,交货开始日期,交货截止日期,制单人,制单时间,备注) values ('" & strID & "','" & Me.采购日期 & "'," & Me.供应商 & ",'" & Me.经办人 & "','" & Me.交货开始日期 & "','" & Me.交货截止日期 & "','" & Me.制单人 & "','" & Me.制单时间 & "','" & Me.备注 & "')"
Debug.Print strSQL
cnn.Execute strSQL
cnn.CommitTrans