| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1159 人关注过本帖
标题:编译错误:方法和数据成员未找到.啥意思啊
只看楼主 加入收藏
cbb0118
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-3-8
收藏
 问题点数:0 回复次数:0 
编译错误:方法和数据成员未找到.啥意思啊

Private Sub 添加记录_Click()
On Error GoTo Err_添加记录_Click

Me!报检号.BackColor = 16777215 '设置窗体中顾客姓名栏颜色为明,表明可修改
Me!报检日期.BackColor = 16777215
Me!企业名称.BackColor = 16777215
Me!货物名称.BackColor = 16777215
Me!货值.BackColor = 16777215
Me!备注.BackColor = 16777215
Me!新旧状态.Value = True
Me!手工派单.Value = True
Me.保存记录.Enabled = True
Me.删除记录.Enabled = True
Me.报检号.SetFocus

Me.添加记录.Enabled = False
DoCmd.GoToRecord , , acLast '指向最后一条记录
ID = Me.编号.Value
Me.ID.Value = ID
DoCmd.GoToRecord , , acNewRec
Me.编号.Value = Trim(Str(Val(Me.ID.Value) + 1))
If Not IsNull(Me.报检号.Value) Then
Me.ID.Value = Str(Val(Me.ID.Value) + 1)
End If
Exit_添加记录_Click:
Exit Sub

Err_添加记录_Click:
If Me!报检号.Value = Null Then
MsgBox "暂时无记录", vbExclamation, "提示信息"
End If

Resume Exit_添加记录_Click

End Sub


编译错误,请高手指点.

搜索更多相关主题的帖子: 编译 数据 成员 
2006-04-29 00:04
快速回复:编译错误:方法和数据成员未找到.啥意思啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015988 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved