如何实现根据条件录入数据

loginwjd303

如何实现根据条件录入数据
各位老师，附件中要求如何做到。谢谢！

Henry D. Sy

追加就行

loginwjd303

Henry D. Sy 能否说得具体点,我是新手.

Henry D. Sy

太多错误了，帮你修正了下。

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

谢谢Henry D. Sy