Hi-wzj及各位高手请指教!!!

truckee

有两个窗体,设备管理台帐和设备维修保养,我想在设备管理台帐中选中复选框"是否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

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

truckee

各位大侠,该出手时就出手,给点意见也行啊!

hi-wzj

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

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

truckee

谢谢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这条语句,我在保存窗体前要做是否保存的判断,当否定时,会出现下图,能解决这个吗?先谢谢了!

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

truckee

Hi-wzj及各位高手,

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

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