ACC: CreateControl ?????? ????? ????? ?????? ??? ????? ???? OLE

?????? ????????? ?????? ?????????
???? ???????: 147134 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

?? ??? ??????

???????

??????: ????? ????? ?????? ??????? ??????? ???????? ? ?????? ?????? ??????????.

??? ??????? ???? CreateControl() ??? ????? ???? ???? OLE ???? ????? ??? ????? ????? ????? ???.

?????

?? ???? ?????? CreateControl() ?????? OLE ???????? ???? ???? ?????? ????????. ???? ??? ??? ??? ??????? ?????? ????? ??? ?? OLEClass ???? ??????.

????

?????? ???? ???? OLE ?? ??? ??????? ??? ????? ????? ????? "????" ???? ????? ??? ???? ????? ?????? OLE ???? ????? ????? ??????? ????? ?? ?????? ?? ??? ???????. ??? ???? ??? ?? ??????? ?????? ????? OLEData ???? ?????? ?????? ?????? ??? ??????? OLEData ???? ???? OLE ?? ????? "????".

????? ????? ???????? ???? ????? ???? OLE ???? ???? ?????? ?????? ?? ??? ???????. ??? ?? ??????? ????? ??????? OLEData ???? ???? OLE ????? ??? ??????? OLEData ???? ?????? ??????? ?? ???? ???????. ???? ??????? ??????? ????? ?????? ???? ?? ???? ???? ??????? ??????? ?? Microsoft Access.

????? ??? ??????? ???? ?????? ?? Visual Basic for Applications ?????? ????? ??????? Microsoft Access ??????? ????? ??????? ???????? ?? Microsoft Access. ????? ?? ????????? ??? Visual Basic for Applications ?????? ?????? ??? ??????? ????? ?? ?? ???? "????? ??????? ?? Microsoft Access".

  1. ???? ????? ????? ???????? Northwind.mdb.
  2. ????? ????? ???? ???? ???? ????.
  3. ????? ???? ???? ????? ?? ??? ???????.
  4. ????? ???? ????? ?? ???? ????? ?????? ?? ???? Declarations ??? ?? ??? ????:
    ?????? Explicit
  5. ???? ??????? ??????:
          Sub CreateCalendar()
             Dim frm As Form
             Dim ctl As Control
             DoCmd.OpenForm "Template", acDesign , , , , acHidden
             Set frm = CreateForm()
             Set ctl = CreateControl(frm.Name, acCustomControl, acDetail)
             ctl.OLEData = Forms!Template!Calendar.OLEData
             DoCmd.Restore
             DoCmd.Close acForm, "Template"
          End Sub
    						
  6. ??????? ??? ?????? ???? ????? ?????? ?? ???? ??????? ?? ???? ????? ??????? ENTER:
    CreateCalendar
    ???? ????? ????? ???? ?? ???? ???? ?????.

??????? ????

????? ????? ????? ??????

  1. ???? ????? ????? ???????? Northwind.mdb.
  2. ????? ???? ????? ?? ???? ????? ?????? ?? ???? Declarations ??? ?? ??? ????:
    ?????? Explicit
  3. ???? ??????? ??????:
          Sub CreateCalendar()
             Dim frm As Form
             Dim ctl As Control
             Set frm = CreateForm()
             Set ctl = CreateControl(frm.Name, acCustomControl, acDetail)
             ctl.Class = "MSACAL.MSACALCtrl.7"
             ctl.OLEClass = "Calendar Control"
          End Sub
    						
  4. ??????? ??? ?????? ???? ????? ?????? ?? ???? ??????? ?? ???? ????? ??????? ENTER:
    CreateCalendar
    ???? ????? ????? ???? ?? ????? ???? ???? OLE ????? ??? ????? ?? ?? ??????? ????? ????? ????? ? OLEClass.

?????

?????? ??? ???? ?? ????????? ??? ???? CreateControl() ????? "???? ?????????" ?? ???? CreateControl ?? ???? ????? Office ????? ?? Microsoft Access 97.

???????

???? ???????: 147134 - ????? ??? ??????: 04/???? ??????/1435 - ??????: 3.3
????? ???
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbprb kbprogramming KB147134 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????147134

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com