UC知道VB 单击更新 数据写不到ACCESS中
来源：百度知道 编辑：UC知道 时间：2024/06/12 22:48:07
Private Sub gx_Click()
If Text1.Text = "" Then
MsgBox "请填写托运编号！", vbOKOnly + vbInformation, "注意"
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "请填写托运人！", vbOKOnly + vbInformation, "注意"
Text2.SetFocus
Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "请填写托运电话！", vbOKOnly + vbInformation, "注意"
Text3.SetFocus
Exit Sub
ElseIf Text4.Text = "" Then
MsgBox "请填写托运邮编！", vbOKOnly + vbInformation, "注意"
Text4.SetFocus
Exit Sub
ElseIf Text5.Text = "" Then
MsgBox "请填写托运人地址！", vbOKOnly + vbInformation, "注意"
Text5.SetFocus
Exit Sub
ElseIf Text6.Text = "" Then
MsgBox "请填写收货人！", vbOKOnly +
If Text1.Text = "" Then
MsgBox "请填写托运编号！", vbOKOnly + vbInformation, "注意"
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "请填写托运人！", vbOKOnly + vbInformation, "注意"
Text2.SetFocus
Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "请填写托运电话！", vbOKOnly + vbInformation, "注意"
Text3.SetFocus
Exit Sub
ElseIf Text4.Text = "" Then
MsgBox "请填写托运邮编！", vbOKOnly + vbInformation, "注意"
Text4.SetFocus
Exit Sub
ElseIf Text5.Text = "" Then
MsgBox "请填写托运人地址！", vbOKOnly + vbInformation, "注意"
Text5.SetFocus
Exit Sub
ElseIf Text6.Text = "" Then
MsgBox "请填写收货人！", vbOKOnly +
按下面修改的重新输入即可：
str_t = "select * from 托运信息表 where 托运编号='" & Text1.Text & "'"
rs_t.Open str_t, cnn, adOpenKeyset, adLockOptimistic
If rs_t.EOF Then
rs_t.AddNew
rs_t.Fields("托运编号") = Text1.Text
rs_t.Fields("托运人") = Text2.Text
rs_t.Fields("托运电话") = Text3.Text
rs_t.Fields("托运邮编") = Text4.Text
rs_t.Fields("托运人地址") = Text5.Text
rs_t.Fields("托运日期") = dt.Value
rs_t.Fields("收货人") = Text6.Text
rs_t.Fields("收货电话") = Text6.Text
rs_t.Fields("收货邮编") = Text8.Text
rs_t.Fields("收货人地址") = Text9.Text
rs_t.Update
MsgBox "商品入库成功", vbOKOnly + vbExclamation, ""
Else
MsgBox "此托运编号已存在，请重添！", vbOKOnly + vbInformation, "注意"
Text1.Text = ""
Text1.SetFocus
End If
rs_t.Close
原程序错误：
1、str_t = "s