Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

窗体中记录的问题!

zhou  发表于:2011-06-11 19:29:57  
复制

点击下载此附件

 

登陆名:admin

密码:admin

 

输入窗体中:"提示不能转到指定的记录!"

 

进去后,选"数据输入"--> "研究生信息输入"  -->    窗体中的 记录导航按扭 "下一项记录","上一项记录"都提示出错误!

 

其他几个 "数据输入"-->" 路径下的窗体中的记录导航按扭 "下一项记录","上一项记录" 也一样提示 都提示出错误

主要的根源问题是,窗体控件 好象和 数据表没有连接起来!!!

 

比如窗体 "研究生信息"中的文本控件不能显示数据表 "研究生信息"中的数据!!!!

 

 

Top
Lee 发表于:2011-06-11 20:05:44
请问是哪个输入窗体有问题啊?

zhou 发表于:2011-06-11 20:38:42

谢谢!

 

进去后,选"数据输入"--> "研究生信息输入"  -->    窗体中的 记录导航按扭 "下一项记录","上一项记录"都提示出错误!

 

其他几个 "数据输入"-->" 路径下的窗体中的记录导航按扭 "下一项记录","上一项记录" 也一样提示 都提示出错误



丘山 发表于:2011-06-11 20:40:02
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

DoCmd.GoToRecord , , acNext

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
DoCmd.GoToRecord , , acNewRec
'MsgBox Err.Description
Resume Exit_Command6_Click

End Sub
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
DoCmd.GoToRecord , , acFirst
'MsgBox Err.Description
Resume Exit_Command7_Click

End Sub



zhou 发表于:2011-06-11 20:49:59

谢谢楼上!

 

但是上面这段代码里面已经具备,无效!

主要的根源问题是,窗体控件 好象和 数据表没有连接起来!!!

 

比如窗体 "研究生信息"中的文本控件不能显示数据表 "研究生信息"中的数据!!!!

 



zhou 发表于:2011-06-11 21:11:01

急!,求大师指点!



Lee 发表于:2011-06-12 21:49:32

我试过重建按钮,能指向下一记录,你何不也试试。

另外,我不知你是自动生成按钮还是建好按钮再写代码,我发现你"下一记录"按钮代码(Command26)与我新建的按钮(Command27)有所不同:

你原来“下一记录”代码如下:

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click


    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

Exit_Command26_Click:
    Exit Sub

Err_Command26_Click:
    MsgBox Err.Description
    Resume Exit_Command26_Click
   
End Sub

 

 

我新建的按钮如下:
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click


    DoCmd.GoToRecord , , acNext

Exit_Command27_Click:
    Exit Sub

Err_Command27_Click:
    MsgBox Err.Description
    Resume Exit_Command27_Click
   
End Sub



总记录:6篇  页次:1/1 9 1 :