Private Sub Command17_Click()
'å
³éæ¥è¡¨
DoCmd.Close acReport, "æå¦å·æ¥è¯¢å¦çä¿¡æ¯ æ¥è¡¨"
'æå¼æ¥è¡¨
DoCmd.OpenReport "æå¦å·æ¥è¯¢å¦çä¿¡æ¯ æ¥è¡¨", acViewPreview, " ", "[å¦å·]='" & å¦å·.Value & "'", acNormal
End Sub
Private Sub Command25_Click()
DoCmd.SearchForRecord acDataForm, Me.Name, acFirst, "å¦å·='" & å¦å·.Value & "'"
End Sub