北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
我在学习变速箱时没有按照范例去做,我而是按照报销管理系统思路去做,屡屡出现问题,有时修改没有数据,有时点击修改没有反应,不知道这是怎么回事.范例中在新增窗体中首先判断有无别人输了同样的编号,而报销管理系统没有该项判断,是因为在报销管理系统中新增窗体中没有自动生成编号:AutoSetupID.所以在做变速箱时我是按照报销管理系统做的,但在供应商代码中修改按钮怎么不起作用.其代码如下:
Private Sub 供应商代码_GotFocus() '这段代码是在frmCode_gys_child窗体中
On Error GoTo Err_供应商代码_GotFocus
selectstr = Me.供应商代码
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_供应商代码_GotFocus:
Exit Sub
Err_供应商代码_GotFocus:
Resume Exit_供应商代码_GotFocus
End Sub
下面代码是在frm_gys_child_Edit中:
Private Sub Form_Load()
Me.RecordSource = "select * from tblCode_gys where tblCode_gys.gysid = '" & selectstr & "'"
g_CurrentSelectStrID = selectstr
End Sub
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
On Error Resume Next
If IsNull(Me.gysmc) Then
MsgBox "请输入供应商名称!", vbCritical, "提示"
Me.gysmc.SetFocus
Exit Sub
End If
If IsNull(Me.Lxr1) Then
MsgBox "请输入联系人1!", vbCritical, "提示"
Me.Lxr1.SetFocus
Exit Sub
End If
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmCode_gys_child"
DoCmd.Echo True
DoCmd.Close acForm, "frmCode_gys_child_Edit"
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
问题是:点击修改要么没有反应,要么弹出修改窗体其中窗体中的文本框没有相应数据,敬请各位老师给予解决,谢谢了.
点击下载此附件