Office中国论坛/Access中国论坛

标题: 经过几天努力的成果，跟大家分享一下 [打印本页]

作者: zhidao 时间: 2015-1-21 19:11
标题: 经过几天努力的成果，跟大家分享一下
本帖最后由 zhidao 于 2015-1-22 20:15 编辑

经过几天的努力，总算像个样子了，唯一的遗憾就是在添加空值时不知如何处理，我知道的知识都用上了，还是未能解决。不足地方希望各位多多批评{: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 时间: 2015-1-21 19:46
导航栏用什么做的

作者: ＼～暀倳洳煙 时间: 2015-1-22 01:46
学习一下

作者: zhidao 时间: 2015-1-22 12:32

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

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

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

作者: zaohua 时间: 2015-1-22 13:56
必须学习必须顶啊

作者: fl8081 时间: 2015-1-22 13:59
学习一下

作者: zhidao 时间: 2015-1-22 14:40

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 时间: 2015-1-22 14:43

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

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

作者: zhidao 时间: 2015-1-22 15:01

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
不知道加的位置对不对，还是不行

作者: roych 时间: 2015-1-22 15:23
或者可以根据q和k的值来判断。
If q > 0 And k > 0 Then
'执行ADO语句
end if
当然，也可以设置控件有效性（属性\数据\有效性规则）。一开始没法要求那么完美，很多东西都是慢慢地调试出来的。

作者: zhidao 时间: 2015-1-22 15:45

roych 发表于 2015-1-22 15:23
或者可以根据q和k的值来判断。
If q > 0 And k > 0 Then
'执行ADO语句

辛苦版主了，谢谢你对我的支持。

作者: xiaowuo2 时间: 2015-1-22 17:18
If Me.管线号 = Null Then

改为If Me.管线号 = Null or me.管线号=""then试试

作者: zhidao 时间: 2015-1-22 17:32

xiaowuo2 发表于 2015-1-22 17:18
If Me.管线号 = Null Then

改为If Me.管线号 = Null or me.管线号=""then试试

不行

作者: todaynew 时间: 2015-1-22 18:54
If isnull(Me.管线号.value) =false Then
'需要执行的语句
end if

作者: zhidao 时间: 2015-1-22 20:17

todaynew 发表于 2015-1-22 18:54
If isnull(Me.管线号.value) =false Then
'需要执行的语句
end if

谢谢版主，按照你的方法问题解决了

作者: aini421 时间: 2015-1-23 00:48
不干别的就学学

作者: ben_bu 时间: 2015-1-23 14:28
looooooooook

作者: kykevin 时间: 2015-1-24 13:59
纳尼？貌似很给力的样子！！...

作者: 鄱湖人2012 时间: 2015-1-24 19:39
LLLL

作者: lmze2000 时间: 2015-1-25 14:07
努力学习，，，

作者: songjiecf 时间: 2015-1-25 15:31
学习一下。看看

作者: songjiecf 时间: 2015-1-25 15:33
高楼大厦都是一点点盖的。楼主加油

作者: joshey 时间: 2015-1-25 22:10
是什么成果,迫不及待看一下.

作者: 十三 时间: 2015-1-26 21:32
看看先

作者: friendship 时间: 2015-1-27 05:12

作者: 若若 时间: 2015-1-27 10:15
看看

作者: sh279911281 时间: 2015-1-30 21:31
新手学习下

作者: 心情如故 时间: 2015-3-15 12:24
看看

作者: 34acc 时间: 2015-8-25 16:18

学习一下

作者: kimiko 时间: 2015-10-29 18:53
hello

作者: xzj5324269 时间: 2015-11-1 14:08
RE: 经过几天努力的成果，跟大家分享一下 [修改]

作者: yanwei82123300 时间: 2022-1-29 13:07

学习一下

作者: 感冒药 时间: 2022-5-12 14:52
学习

作者: 灰太郎 时间: 2023-1-13 08:19
123456

作者: zhao123 时间: 2024-3-22 22:25
下载

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)