请教各位大神一个问题 - access吧

level 4

上大三的楼主

我是access的新手
碰到一个问题
窗口界面如下

2015年12月10日 09点12分 1

level 4

上大三的楼主

保存按钮的代码如下
Private Sub Command4_Click()
Dim gongshi, xingming, bianhao
If IsNull(Me.gongshi) Then
MsgBox "请输入工时", vbCritical, "提示"
Else
DoCmd.RunSQL ("insert into 工时 (职工编号,职工姓名,获得工时,录入时间) values ([forms]![添加工时]![Combo0],[forms]![添加工时]![Text12],[forms]![添加工时]![gongshi],time())")
End If
End Sub

2015年12月10日 09点12分 2

level 4

上大三的楼主

我发现每个员工只能保存一次
按照我的理解这个代码每次点保存都会直接在工时表中写入新的记录
但是实际一旦有重复的都会出现错误提示

请高手给我看一下是哪里出现了问题

2015年12月10日 09点12分 3

level 4

上大三的楼主

按照我的理解
这个代码连续点击2次保存
应该会在工时表中添加2条内容一致记录的
但不知为何第二次一定会出错

2015年12月10日 09点12分 4

level 4

上大三的楼主

找到原因了
原来工时表的索引弄了个无重复的

2015年12月10日 09点12分 5

吧务

level 13

你牛😄算了

重复记录问题

2015年12月11日 06点12分 6

level 4

上大三的楼主

@Access中国
大神麻烦给看一下
为什么运行这段代码会提示我给这三个变量赋值
Private Sub Command4_Click()
Dim gongshi, xingming, bianhao
If IsNull(Me.gongshi) Then
MsgBox "请输入工时", vbCritical, "提示"
Else
bianhao = [Forms]![添加工时]![Combo0]
xingming = [Forms]![添加工时]![Combo0]
gongshi = [Forms]![添加工时]![Combo0]
DoCmd.RunSQL ("insert into 工时 (职工编号,职工姓名,获得工时,录入时间) values (bianhao,xingming,gongshi,NOW())")
End If
End Sub

2015年12月11日 07点12分 7

上大三的

我在调试界面中发现这三个变量已经有赋值了

2015年12月11日 07点12分

你牛😄算了

@上大三的 bianhao,xingming,gongshi 这几个都是变量 ‘“& xx &”’ 格式一般是这样

2015年12月11日 08点12分

level 4

上大三的楼主

还有这种向表中添加记录的方式是不是很初级
我看见有种定义adodb的
比如这段代码
Dim sql As String
Dim rst As ADODB.Recordset
sql = "select * from 商品 where"
sql = sql & "[商品编号]=" & Me![商品编号]
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
这才是表操作的正确方式么？
我感觉这段非常难理解
大神可以讲解一下这段具体是什么意思
和上面那种相比有什么好处么

2015年12月11日 07点12分 8

你牛😄算了

上面是通过sql语句写入表，这个是用ADO，set那些是连接方式。你f1就知道代码什么了。后面open 就是获取sql语句的值了。

2015年12月11日 08点12分

上大三的

@你牛😄算了非常感谢

2015年12月12日 01点12分

上大三的

rst.Open sql 这句话就是说把sql语句取出来的所有记录连接到rst这个变量里面现在rst就变成了一个表对rst的操作就相当于对表的操作了对么

2015年12月12日 01点12分

上大三的

@371486748 对rst的赋值操作不会影响到原始表么？