經(jīng)過幾天努力的成果，跟大家分享一下

zhidao

經(jīng)過幾天的努力，總算像個(gè)樣子了，唯一的遺憾就是在添加空值時(shí)不知如何處理，我知道的知識(shí)都用上了，還是未能解決。不足地方希望各位多多批評(píng){:soso_e100:}{:soso_e100:}

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

首先感謝 各位對(duì)我的支持現(xiàn)在我把解決方案分享一下：
Private Sub Command5_Click()
If IsNull(Me.管線號(hào)) = False Then
Dim guanxianbiao As New ADODB.Recordset
With guanxianbiao
    .Open "管線表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me.管線號(hào) = Null Then
     Exit Sub
     Else
    Do While Not .EOF
       If !管線號(hào) = Me.管線號(hào) Then
          MsgBox ("管線重復(fù)")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管線號(hào) = Me.管線號(hào)
    !頁(yè)碼 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
   
  End If
End With
End If
Me.管線號(hào) = Null
Me.yema = Null
Me.Refresh
End Sub

pazee

導(dǎo)航欄用什么做的

＼～暀倳洳煙

學(xué)習(xí)一下

zhidao

pazee 發(fā)表于 2015-1-21 19:46
導(dǎo)航欄用什么做的

沒有導(dǎo)航啊，都是ACCESS自帶的，我沒單獨(dú)設(shè)計(jì)

roych

應(yīng)該加上錯(cuò)誤處理……例如，沒有數(shù)據(jù)錄入時(shí)，點(diǎn)擊“錄入”按鈕應(yīng)該exit sub或者彈出錯(cuò)誤提示等等。

zaohua

必須學(xué)習(xí)必須頂啊

fl8081

學(xué)習(xí)一下

zhidao

roych 發(fā)表于 2015-1-22 12:53
應(yīng)該加上錯(cuò)誤處理……例如，沒有數(shù)據(jù)錄入時(shí)，點(diǎn)擊“錄入”按鈕應(yīng)該exit sub或者彈出錯(cuò)誤提示等等。

Private Sub Command5_Click()
If Me.管線號(hào) = Null Then Exit Sub （我在代碼里加了這句，還是不行）
Dim guanxianbiao As New ADODB.Recordset
With guanxianbiao
    .Open "管線表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Do While Not .EOF
       If !管線號(hào) = Me.管線號(hào) Then
          MsgBox ("管線重復(fù)")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管線號(hào) = Me.管線號(hào)
    !頁(yè)碼 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
End With
Me.管線號(hào) = Null
Me.yema = Null
Me.Refresh
End Sub

roych

zhidao 發(fā)表于 2015-1-22 14:40
Private Sub Command5_Click()
If Me.管線號(hào) = Null Then Exit Sub （我在代碼里加了這句，還是不行）
...

這樣寫：
if
'空值退出
else
'ADO語(yǔ)句操作
end if

zhidao

roych 發(fā)表于 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.管線號(hào) = Null Then
     Exit Sub
     Else
    Do While Not .EOF
       If !管線號(hào) = Me.管線號(hào) Then
          MsgBox ("管線重復(fù)")
            Exit Sub
              Else
        .MoveNext
       End If
      Loop
    .AddNew
    !管線號(hào) = Me.管線號(hào)
    !頁(yè)碼 = Me.yema
    .Update
    .Close
    Set guanxianbiao = Nothing
   
End If
End With
Me.管線號(hào) = Null
Me.yema = Null
Me.Refresh
End Sub
不知道加的位置對(duì)不對(duì)，還是不行