Option Compare Database
Option Explicit

Private Sub 添加入库记录_Click()
    Dim sql As String
    Dim rst As ADODB.Recordset
    Dim number As Integer
  
    If IsNull(Me![入库日期]) Then
        MsgBox "请输入入库日期"
        DoCmd.GoToControl "入库日期"
    ElseIf IsNull(Me![入库ID]) Then
        MsgBox "请输入入库ID"
        DoCmd.GoToControl "入库ID"
    ElseIf IsNull(Me![仓库名称]) Then
        MsgBox "请输入样品ID"
        DoCmd.GoToControl "仓库名称"
    ElseIf IsNull(Me![样品ID]) Then
        MsgBox "请输入样品ID"
        DoCmd.GoToControl "样品ID"
    ElseIf IsNull(Me![样品名称]) Then
        MsgBox "请选择样品名称"
        DoCmd.GoToControl "样品名称"
    ElseIf IsNull(Me![数量]) Then
        MsgBox "请输入入库数量"
        DoCmd.GoToControl "数量"
    ElseIf IsNull(Me![单位]) Then
        MsgBox "单位"
        DoCmd.GoToControl "单位"
    ElseIf IsNull(Me![供应商ID]) Then
        MsgBox "供应商ID"
        DoCmd.GoToControl "供应商ID"
    ElseIf IsNull(Me![供应商名称]) Then
        MsgBox "供应商名称"
        DoCmd.GoToControl "供应商名称"
     ElseIf IsNull(Me![员工]) Then
        MsgBox "员工"
        DoCmd.GoToControl "员工"
    
        
    Else
        sql = "select * from 样品信息 where"
        sql = sql & "[样品ID]=" & Me![样品ID]
        Set rst = New ADODB.Recordset
        rst.ActiveConnection = CurrentProject.Connection
        rst.CursorType = adOpenDynamic
        rst.LockType = adLockOptimistic
        rst.Open sql
        If Not (rst.EOF) Then
        
           
           sql = "select * from 入库记录表"
           
            Set rst = New ADODB.Recordset
            rst.ActiveConnection = CurrentProject.Connection
            rst.CursorType = adOpenDynamic
            rst.LockType = adLockOptimistic
            rst.Open sql
                With rst
                    .AddNew
                    !入库ID = Me![入库ID]
                    !仓库ID = Me![仓库ID]
                    !仓库名称 = Me![仓库名称]
                    !样品ID = Me![样品ID]
                    !样品名称 = Me![样品名称]
                    !数量 = Me![数量]
                    !单位 = Me![单位]
                    !供应商ID = Me![供应商ID]
                    !供应商名称 = Me![供应商名称]
                    !员工 = Me![员工]
                    !工号 = Me![工号]
                    !入库日期 = Me![入库日期]
                    !备注 = Me![备注]
                    
                End With
            rst.Update
            rst.Close
            Set rst = Nothing
                   
                
        
            sql = "select * from 库存信息表 where[仓库ID]=" & Me![仓库ID]
            sql = sql & "and[样品ID]=" & Me![样品ID]
            Set rst = New ADODB.Recordset
            rst.ActiveConnection = CurrentProject.Connection
            rst.CursorType = adOpenDynamic
            rst.LockType = adLockOptimistic
            rst.Open sql
            If Not (rst.EOF) Then
           
                 sql = "select * from 库存信息表 "
                 Set rst = New ADODB.Recordset
                 rst.ActiveConnection = CurrentProject.Connection
                 rst.CursorType = adOpenDynamic
                 rst.LockType = adLockOptimistic
                 rst.Open sql
            
                 number = rst!数量
                 number = number + Me![数量]
                 rst!数量 = number
                 rst.Update
                 rst.Close
                 Set rst = Nothing
                 
             Else
                 sql = "select * from 库存信息表 "
                 Set rst = New ADODB.Recordset
                 rst.ActiveConnection = CurrentProject.Connection
                 rst.CursorType = adOpenDynamic
                 rst.LockType = adLockOptimistic
                 rst.Open sql
                 With rst
                    .AddNew
                    !仓库ID = Me![仓库ID]
                    !仓库名称 = Me![仓库名称]
                    !入库日期 = Me![入库日期]
                    !样品ID = Me![样品ID]
                    !样品名称 = Me![样品名称]
                    !数量 = Me![数量]
                    !单位 = Me![单位]
                    !库存备注 = Me![备注]
                    
                 End With
                 rst.Update
                 MsgBox "入库成功!库存增加、在途减少,请查看详细信息"
                 Exit Sub
                 Me.Visible = False
            End If
                
            
        Else
            rst.Close
            Set rst = Nothing
            MsgBox "系统中没有该样品的信息,请先添加样品详细信息"
            Exit Sub
            Me.Visible = False
        End If
    End If
End Sub



Private Sub 样品ID_AfterUpdate()
    Me.样品名称 = Me.样品ID.Column(1)
End Sub
Private Sub 供应商ID_AfterUpdate()
    Me.供应商名称 = Me.供应商ID.Column(1)
End Sub
Private Sub 仓库ID_AfterUpdate()
    Me.仓库名称 = Me.仓库ID.Column(1)
End Sub
Private Sub 工号_AfterUpdate()
    Me.员工 = Me.工号.Column(1)
End Sub