作者: 孟子后代 时间: 2019-11-8 16:02
默认方法已经找到了。默认值:=[Forms]![票信息维护]![装卸简址]作者: herry2003aa 时间: 2019-11-8 17:09
Private Sub Command93_Click()
DoCmd.SetWarnings False
Dim i, T
T = Me.箱量
For i = 0 To T
i = i + 1
DoCmd.RunSQL "INSERT INTO 箱号总表 (装卸简址,联系人 ) VALUES( [forms]![票信息维护]![装卸简址],[forms]![票信息维护]![联系人])"
If i = T + 1 Then
MsgBox "数据已添加"
Exit For
End If
Next
Forms!票信息维护.箱号总表_子窗体.Requery
DoCmd.SetWarnings True
End Sub作者: herry2003aa 时间: 2019-11-8 17:16