你得按教程学着做,不能照抄!
Private Sub cmd删除_Click()
Dim strSQL As String
Dim currentID As String
'If Me.零件号 = "新增记录" Then
'MsgBox "您想干嘛!", vbInformation, "消息"
'Me.保存1.SetFocus
'Exit Sub
'End If
'
'If Me.零件号 = "1" Then
'MsgBox "您不能删除所有记录!", vbInformation, "消息"
'Exit Sub
'End If
'If IsNull(Me.零件号) Then
'MsgBox "请选择您要删除记录!", vbInformation, "消息"
'Me.入库子窗体.SetFocus
'Exit Sub
'End If
currentID = Me.入库子窗体.Form.零件号
strSQL = "DELETE 入库.* FROM 入库 WHERE 零件号= " & currentID
If MsgBox("您确认要删除当前已选择的记录么?", vbOKCancel, "提示") = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoEvents
'Me.frmChild.Requery
' RequeryDataObject Me.frmChild
MsgBox "您所选择的记录已被删除!", vbInformation, "消息"
End If
'rst.Close
Set rst = Nothing
Me.入库子窗体.Requery
'Me.零件号 = Null
'Me.数量 = Null
'Me.日期 = Null
End Sub
Private Sub cmd修改_Click()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
Dim strFrm As String
If Me.零件号 = "新增记录" Then
MsgBox "您想干嘛!", vbInformation, "消息"
Me.保存1.SetFocus
Else
'If IsNull(Me.零件号) Then
'MsgBox "编号不能为空!", vbInformation, "提示"
'Me.零件号.SetFocus
'Exit Sub
'End If
Me.零件号 = Me.入库子窗体.Form.零件号
If IsNull(Me.数量) Then
MsgBox "类别名称不能为空!", vbInformation, "提示"
Me.数量.SetFocus
Exit Sub
End If
currentID = Me.入库子窗体.Form.零件号
strSQL = "SELECT 入库.零件号, 入库.数量, 入库.日期, * FROM 入库 where 零件号 = " & currentID
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
rst.Edit
rst!零件号 = Me.零件号
rst!数量 = Me.数量
rst!日期 = Me.日期
rst.Update
rst.Close
Set rst = Nothing
DoEvents
'RequeryDataObject Me.frmChild '刷新窗体最快的!
MsgBox "您修改的数据保存已成功!", vbInformation, "消息"
End If
'rst.Close
Set rst = Nothing
Me.入库子窗体.Requery
Me.零件号 = Null
Me.数量 = Null
Me.日期 = Null
End Sub