插入与更新提示覆盖的

hrq145

插入更新单号.rar (480.9 KB, 下载次数: 12)

2013-5-15 16:39 上传

点击文件名下载附件
请教：如何　建立以单号   印制单位作为一个录入条件呢？比如某个单号   印制单位为必须录入条件，否则出现提示重新验；（２）以单号为仅有唯一性，不能重复录入，如果重复录入就提示是否覆盖，不覆盖就放弃这个如
我都不知道怎么用你的改成我要用的，麻烦你帮帮忙啦   

hwc2ycy

上次不是写过一个类似的嘛

hwc2ycy

单元格引用错误的你对照标题自己改下

1. Sub ADO录入方法2()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim sq1 As String
   
5.     If Len([n2]) = 0 Or Len([c3]) = 0 Then
   
6.         MsgBox "单号和印制单位为必填项"
   
7.         Exit Sub
   
8.     End If
   
9. 
   
10.     On Error GoTo ErrorHandler
    
11. 
    
12.     With cnn
    
13.         .CommandTimeout = 5
    
14.         .ConnectionTimeout = 5
    
15.         .CursorLocation = adUseClient
    
16.         .Mode = adModeReadWrite    'adModeShareDenyWrite
    
17.         .ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\\华裔彩印有限公司.mdb"
    
18.         .Open
    
19.     End With
    
20. 
    
21.     sq1 = "Select * from 生产总汇 where 单号='" & [n2] & "'"
    
22. 
    
23.     rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    
24.     If rst.RecordCount > 0 Then
    
25.         If MsgBox("单号已存在，是否覆盖？" & vbCrLf & _
    
26.                     "确认请点击OK", vbOKCancel) = vbCancel Then
    
27.                     Exit Sub
    
28.         End If
    
29.     Else
    
30.         rst.AddNew
    
31.     End If
    
32.    
    
33.     rst.Fields("开单日期") = [D2]
    
34.     rst.Fields("单号") = [n2]
    
35.     rst.Fields("印制单位") = [c3]
    
36.     rst.Fields("印制名称") = [f3]
    
37.     rst.Fields("印制数量") = [n3]
    
38.     rst.Fields("色数前") = [c4]
    
39.     rst.Fields("色数后") = [C5]
    
40.     rst.Fields("自反") = [D4]
    
41.     rst.Fields("开数") = [E4]
    
42.     rst.Fields("拼数") = [G4]
    
43.     rst.Fields("纸张名称") = [K4]
    
44.     rst.Fields("裁切开数") = [K8]
    
45.     rst.Fields("裁切公分") = [K11]
    
46.     rst.Fields("纸张质量") = [K14]
    
47.     rst.Fields("旧版") = [B7]
    
48.     rst.Fields("新版") = [C7]
    
49.     rst.Fields("烫印版") = [D7]
    
50.     rst.Fields("烫印") = [E7]
    
51.     rst.Fields("凹凸版") = [F7]
    
52.     rst.Fields("凹凸") = [G7]
    
53.     rst.Fields("压版") = [B9]
    
54.     rst.Fields("压") = [C9]
    
55.     rst.Fields("立体版") = [D9]
    
56.     rst.Fields("立体凹凸") = [E9]
    
57.     rst.Fields("模切版") = [F9]
    
58.     rst.Fields("模切") = [G9]
    
59.     rst.Fields("覆膜") = [B11]
    
60.     rst.Fields("磨光") = [C11]
    
61.     rst.Fields("过油") = [D11]
    
62.     rst.Fields("过uv") = [E11]
    
63.     rst.Fields("过厚uv") = [F11]
    
64.     rst.Fields("冰花") = [G11]
    
65.     rst.Fields("冰点") = [B13]
    
66.     rst.Fields("磨砂") = [C13]
    
67.     rst.Fields("过折光") = [D13]
    
68.     rst.Fields("过珠光") = [E13]
    
69.     rst.Fields("凸浆") = [F13]
    
70.     rst.Fields("压花") = [G13]
    
71.     rst.Fields("加层") = [B15]
    
72.     rst.Fields("裁切") = [C15]
    
73.     rst.Fields("打角") = [D15]
    
74.     rst.Fields("打孔") = [E15]
    
75.     rst.Fields("糊工") = [F15]
    
76.     rst.Fields("打鸡眼") = [G15]
    
77.     rst.Fields("装订") = [B17]
    
78.     rst.Fields("1") = [C17]
    
79.     rst.Fields("2") = [D17]
    
80.     rst.Fields("3") = [E17]
    
81.     rst.Fields("4") = [F17]
    
82.     rst.Fields("5") = [G17]
    
83.     rst.Fields("补充") = [C18]
    
84.     rst.Fields("印制色样") = [B22]
    
85.     rst.Fields("备注") = [B24]
    
86.     rst.Fields("名称") = [C25]
    
87.     rst.Fields("规格") = [F25]
    
88.     rst.Fields("单位") = [K25]
    
89.     rst.Fields("单价") = [M25]
    
90.     rst.Fields("成品数量") = [C27]
    
91.     rst.Fields("出货时间") = [H27]
    
92.     rst.Update
    
93.     cnn.Close
    
94.     Set cnn = Nothing
    
95.     Application.ScreenUpdating = False
    
96.    
    
97.     [c3] = ""
    
98.     [f3] = ""
    
99.     [n3] = ""
    
100.     [c4] = ""
     
101.     [C5] = ""
     
102.     [D4] = ""
     
103.     [E4] = ""
     
104.     [G4] = ""
     
105.     [K4] = ""
     
106.     [K8] = ""
     
107.     [K11] = ""
     
108.     [K14] = ""
     
109.     [B7] = ""
     
110.     [C7] = ""
     
111.     [D7] = ""
     
112.     [E7] = ""
     
113.     [F7] = ""
     
114.     [G7] = ""
     
115.     [B9] = ""
     
116.     [C9] = ""
     
117.     [D9] = ""
     
118.     [E9] = ""
     
119.     [F9] = ""
     
120.     [G9] = ""
     
121.     [B11] = ""
     
122.     [C11] = ""
     
123.     [D11] = ""
     
124.     [E11] = ""
     
125.     [F11] = ""
     
126.     [G11] = ""
     
127.     [B13] = ""
     
128.     [C13] = ""
     
129.     [D13] = ""
     
130.     [E13] = ""
     
131.     [F13] = ""
     
132.     [G13] = ""
     
133.     [B15] = ""
     
134.     [C15] = ""
     
135.     [D15] = ""
     
136.     [E15] = ""
     
137.     [F15] = ""
     
138.     [G15] = ""
     
139.     [B17] = ""
     
140.     [C17] = ""
     
141.     [D17] = ""
     
142.     [E17] = ""
     
143.     [F17] = ""
     
144.     [G17] = ""
     
145.     [C18] = ""
     
146.     [B22] = ""
     
147.     [B24] = ""
     
148.     [C25] = ""
     
149.     [F25] = ""
     
150.     [K25] = ""
     
151.     [M25] = ""
     
152.     [C27] = ""
     
153.     [H27] = ""
     
154.     Application.ScreenUpdating = False
     
155.     MsgBox "添加成功"
     
156.     Exit Sub
     
157. ErrorHandler:
     
158.     MsgBox Err.Number & vbCrLf & _
     
159.            Err.Description
     
160. End Sub

复制代码

hrq145

hwc2ycy 发表于 2013-5-15 18:09
单元格引用错误的你对照标题自己改下

我试过了，代码不行，相同单号没法提示是否覆盖，按了就直接保存了
前天那个可以，但是我不会改成现在表格需要的代码，所以只能在发了，麻烦你了

hwc2ycy

你试下成不成。

hrq145

hwc2ycy 发表于 2013-5-16 06:54
你试下成不成。

不可以    我用2003版本，重复单号的，还是直接保存了

hwc2ycy

03212---.rar (430.17 KB, 下载次数: 15)

2013-5-29 06:42 上传

点击文件名下载附件

你插入的是ACTIVEX控件，然后就得修改控件的代码调用新的宏。

建议你最好是不要用ACTIVEX的按钮，这个很难驾驭的。

你看看我跟你改的控件的代码，这里也实现了单号自动增加。