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

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

zhao123

下载

灰太郎

123456

感冒药

学习

yanwei82123300

学习一下

xzj5324269

RE: 经过几天努力的成果，跟大家分享一下 [修改]

kimiko

hello

34acc

学习一下

心情如故

看看

sh279911281

新手学习下