北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
Private Sub Command48_Click()
If Not IsNull(Me.刀具品番.Value) Then
stemp = "insert into 刀选表担当输入中转表(登录区分,表NO,NO,设备编号,工程名,记号,刀具品番,安装数," _
& "设定刀寿,实际刀寿,设定刀具费,实际刀具费,使用限界,类别ABC,刀柄," _
& "夹套,拉钉,伸出长,月使用数,作成,作成日期) " _
& "values('" & Me.登录区分.Value & "','" & Me.表NO.Value & "'," & Me.NO.Value & "," _
& Me.设备编号.Value & "," & Me.工程名.Value & "," & Me.记号.Value & ",'" _
& Me.刀具品番.Value & "'," & Me.安装数.Value & "," & Me.设定刀寿.Value & "," _
& Me.实际刀寿.Value & "," & Me.设定刀具费.Value & "," & Me.实际刀具费.Value & ",'" _
& Me.使用限界.Value & "','" & Me.类别ABC.Value & "','" & Me.刀柄.Value & "','" _
& Me.夹套.Value & "','" & Me.拉钉.Value & "'," & Me.伸出长.Value & "," & Me.月使用数.Value & ",'" _
& Me.作成.Value & "',#" & Me.作成日期.Value & "#)"
DoCmd.RunSQL stemp
Me.Requery
Me.登录区分.Value = ""
Me.表NO.Value = ""
Me.NO.Value = 0
Me.设备编号.Value = 0
Me.工程名.Value = 0
Me.记号.Value = 0
Me.刀具品番.Value = ""
Me.安装数.Value = 0
Me.设定刀寿.Value = 0
Me.实际刀寿.Value = 0
Me.设定刀具费.Value = 0
Me.实际刀具费.Value = 0
Me.使用限界.Value = ""
Me.类别ABC.Value = ""
Me.刀柄.Value = ""
Me.夹套.Value = ""
Me.拉钉.Value = ""
Me.伸出长.Value = 0
Me.月使用数.Value = 0
Me.作成.Value = ""
Me.刀具品番.SetFocus
End If
End Sub
