Office中国论坛/Access中国论坛

标题: 如何实现根据条件录入数据 [打印本页]

作者: loginwjd303 时间: 2009-7-28 00:45
标题: 如何实现根据条件录入数据
如何实现根据条件录入数据
各位老师，附件中要求如何做到。谢谢！

作者: Henry D. Sy 时间: 2009-7-28 01:41
追加就行

作者: loginwjd303 时间: 2009-7-28 09:19
Henry D. Sy 能否说得具体点,我是新手.

作者: Henry D. Sy 时间: 2009-7-28 10:38
太多错误了，帮你修正了下。

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

作者: loginwjd303 时间: 2009-8-1 00:47
谢谢Henry D. Sy

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)