经过几天努力的成果，跟大家分享一下

zhidao

经过几天的努力，总算像个样子了，唯一的遗憾就是在添加空值时不知如何处理，我知道的知识都用上了，还是未能解决。不足地方希望各位多多批评{:soso_e100:}{:soso_e100:}

游客，如果您要查看本帖隐藏内容请回复

首先感谢 各位对我的支持现在我把解决方案分享一下：
Private Sub Command5_Click()
If IsNull(Me.管线号) = False Then
Dim guanxianbiao As New ADODB.Recordset
With guanxianbiao
    .Open "管线表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me.管线号 = Null Then
     Exit Sub
     Else
    Do While Not .EOF
       If !管线号 = Me.管线号 Then
          MsgBox ("管线重复")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管线号 = Me.管线号
    !页码 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
   
  End If
End With
End If
Me.管线号 = Null
Me.yema = Null
Me.Refresh
End Sub

pazee

导航栏用什么做的

＼～暀倳洳煙

学习一下

zhidao

pazee 发表于 2015-1-21 19:46
导航栏用什么做的

没有导航啊，都是ACCESS自带的，我没单独设计

roych

应该加上错误处理……例如，没有数据录入时，点击“录入”按钮应该exit sub或者弹出错误提示等等。

zaohua

必须学习必须顶啊

fl8081

学习一下

zhidao

roych 发表于 2015-1-22 12:53
应该加上错误处理……例如，没有数据录入时，点击“录入”按钮应该exit sub或者弹出错误提示等等。

Private Sub Command5_Click()
If Me.管线号 = Null Then Exit Sub （我在代码里加了这句，还是不行）
Dim guanxianbiao As New ADODB.Recordset
With guanxianbiao
    .Open "管线表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Do While Not .EOF
       If !管线号 = Me.管线号 Then
          MsgBox ("管线重复")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管线号 = Me.管线号
    !页码 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
End With
Me.管线号 = Null
Me.yema = Null
Me.Refresh
End Sub

roych

zhidao 发表于 2015-1-22 14:40
Private Sub Command5_Click()
If Me.管线号 = Null Then Exit Sub （我在代码里加了这句，还是不行）
...

这样写：
if
'空值退出
else
'ADO语句操作
end if

zhidao

roych 发表于 2015-1-22 14:43
这样写：
if
'空值退出

Private Sub Command5_Click()
Dim guanxianbiao As New ADODB.Recordset
With guanxianbiao
    .Open "管线表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me.管线号 = Null Then
     Exit Sub
     Else
    Do While Not .EOF
       If !管线号 = Me.管线号 Then
          MsgBox ("管线重复")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管线号 = Me.管线号
    !页码 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
   
End If
End With
Me.管线号 = Null
Me.yema = Null
Me.Refresh
End Sub
不知道加的位置对不对，还是不行