Office中国论坛/Access中国论坛

标题: Hi-wzj及各位高手请指教!!! [打印本页]

作者: truckee 时间: 2005-4-7 23:31
标题: Hi-wzj及各位高手请指教!!!
有两个窗体,设备管理台帐和设备维修保养,我想在设备管理台帐中选中复选框"是否PMP"时,先判定value值,如为1,则打开设备维修保养窗体,同时保证设备维修保养窗体窗体的记录和设备管理台帐的记录指向同一个记录.设备管理台帐的数据源是"设备清单",设备维修保养的数据源是根据"设备清单"得到的查询.

Private Sub PMP_Click()
If Me.PMP.Value = 1 Then
If MsgBox("提问:是否要进入设备维修保养?", vbYesNo, "提示") <> vbYes Then
Exit Sub
Else
DoCmd.OpenForm "设备维修保养"

me.识别号.recordset="设备维修保养".txtid.recordset '这句我是乱写的.
Else: Exit Sub
End If
End Sub[attach]9806[/attach]

[此贴子已经被作者于2005-4-11 14:02:59编辑过]

作者: truckee 时间: 2005-4-8 17:40
各位大侠,该出手时就出手,给点意见也行啊!

作者: hi-wzj 时间: 2005-4-10 08:48
Private Sub PMP_Click()
If Me.PMP.Value = 1 And MsgBox("提问:是否要进入设备维修保养?", vbYesNo, "提示") = vbOK Then DoCmd.OpenForm "设备维修保养", , , "[固定资产编号]='" & Me.固定资产编号 & "'"
End Sub

不知您辨别同一记录的字段是“固定资产编号”还是“识别号”若是识别号，将上面的“固定资产编号”替换为“识别号”就是了。

作者: truckee 时间: 2005-4-11 21:54
谢谢hi-wzj的指教!做了一些小修改以后,大功告成!

Private Sub PMP_Click()
If Me.PMP = True Then
If MsgBox("提问:是否要进入设备维修保养?", vbYesNo, "提示") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "设备维修保养", , , "[识别号]='" & Me.识别号 & "'"
End If
End If
End Sub

另谢谢wan_shan的指教!又一种好方法!!

Private Sub PMP_Click()

dim strwhere as string
If Me.PMP = True Then
If MsgBox("提问:是否要进入设备维修保养?", vbYesNo, "提示") = vbYes Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
strWhere = "[识别号] IN ('" & Me.txtid & "')" '有人能给我解释这条语句吗?
DoCmd.OpenForm "设备维修保养"
Forms!设备维修保养.Filter = strWhere
Forms!设备维修保养.FilterOn = True
End If
End If
End Sub

但是现在又有新问题,因为DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70这条语句,我在保存窗体前要做是否保存的判断,当否定时,会出现下图,能解决这个吗?先谢谢了![attach]9892[/attach]

[此贴子已经被作者于2005-4-11 14:42:05编辑过]

作者: truckee 时间: 2005-4-11 22:01
标题: Hi-wzj及各位高手请指教!!!
Hi-wzj及各位高手,

我把我学access半个月作的主要部分upload了,把一些次要的如登陆,界面去除掉了,大多数是在根据论坛上的资料改编而成,但还是存在一些bug,请各位方家不吝指教,当然包括前文中的问题.

[此贴子已经被作者于2005-4-13 17:13:00编辑过]

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