|
太多错误了,帮你修正了下。
Private Sub Command14_Click()
Dim ctl As Control
Dim strSQL As String
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
If IsNull(ctl) Then
ctl.SetFocus
MsgBox "Input the data on " & ctl.Name & " , first!!"
Exit Sub
End If
End If
Next
strSQL = "insert into " & Me.类别 & "( 出库单号,出库数量,出库原因 )values('" & _
Me.单号 & "'," & Me.数量 & ",'" & Me.原因 & "')"
CurrentDb.Execute strSQL
Me.Controls(Me.类别).Requery
End Sub |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|