Private Okręt podwodny Form_Open (Odwoływać Jako Integer)
Ćmić sSQL Sznurek
sSQL = "WYBRANY tblMenuDayClean.MenuDayCleanID OD tblMenuDayClean DOKĄD (((tblMenuDayClean.MenuDayNo_Clean) = [Forma]! [frmMenu_MAIN]! [txtDaySelect]) I ((tblMenuDayClean.MenuCycleNo_Clean) = [Forma]! [frmMAIN_STARTUP]! [cboCycleNo]) I ((tblMenuDayClean.MenuSeasonNo_Clean) = [Forma]! [frmMAIN_STARTUP]! [cboSeason]) I ((tblMenuDayClean.MenuOrganizationNo_Clean) = [Forma]! [frmMAIN_STARTUP]! [cboOrganization])); "
Jeżeli IsNull ([MenuDayCleanID]) = Prawdziwy Wtedy
Me.frmMenu_DayClean_Sub.Form.DataEntry = Prawdziwy
MsgBox "żadny dane"
Inny
Me.frmMenu_DayClean_Sub.Form.DataEntry = Fałszywy
MsgBox "dane"
Kończyć Jeżeli
Kończyć Okręt podwodny
|