ACC2000: ????? ????? ? ????? ?????? ?? ?????

???? ???????: 210321 - ??? ???????? ???? ????? ????? ??? ???????.
????? ??? ?????? ??? ????? ?????? Microsoft Access (.mdb) ????? Microsoft Access (.adp).

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

????? ???? | ?? ????

??????

?? ?????? ???? ????? ???? ?? ??????? ??? ??? ?????? ????_????? ?????? ????_?????? ????? ?? ??? ???. ???????? ????? ??? ????? ?? ???? ?? ???? ??? ??????? ??? ?? ???? ?????. ?????? ?????? ??? ???? ???? ???? ???? ????? ?? ????? ??????? ????? ?? ???? ????????.

??????? ????

???? ?????? ?????? ????? ??????? ??????? ?? ???? ?????? ??? ??? ????? ?? ??? ?????:
  1. ???? ????? ????? ???????? Northwind.mdb.
  2. ????? ????? ???? ???? ????? ??? ???? Employees.
  3. ?? ?????? ????? ??? ??????? ??? 5 ????.
  4. ??? ?? ??? ??? ????? ??????? ???? ??? ????? ?????? ?? ??????? ??? ?????.
  5. ???? ??? "?????????" ?? ????? ?????? ??? ???? ????????.
  6. ??? ????? ???? ?? ????????? ?? ???? ????? ??????? ?? ????? ??? ??????? DELETE.
  7. ????? ??????? ??????? ?? ???? ?? ?????????:
        Name: Notes
        ControlSource: Notes
        CanGrow: Yes
        CanShrink: Yes
        Left: 0.2 in
        Top: 0.166
        Width: 4.6042 in
        Height: 0.166 in
    					
  8. ???? ??? ???? ???????? ?? ???????.
  9. ????? ??????? ?????? ???? ???????? ??? 0.5 ??.
  10. ????? ??????? OnPrint ???? ???????? ??? ????? ????? ??????:
    Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
        Dim X1 As Single, Y1 As Single
        Dim X2 As Single, Y2 As Single
        Dim Offset As Single
        Dim Color As Long
    
        'Specify unit of measurement for coordinates on a page.
        Me.ScaleMode = 1        'Twips (1440 twips = 1 inch).
    
        'Define an offset of 1/8 inch from the text box to the rectangle.
        Offset = 1440 / 8
    
        'X and Y coordinates for the top left corner of the box.
        X1 = Me![Notes].Left - Offset
        Y1 = Me![Notes].Top - Offset
    
        'X and Y coordinates for the bottom right corner of the box.
        X2 = Me![Notes].Left + Me![Notes].Width + Offset
        Y2 = Me![Notes].Top + Me![Notes].Height + Offset
    
        Me.DrawWidth = 3        'Width of the line (in pixels).
        
        Color = RGB(0, 0, 0)    'Use black line color.
    
        'Draw the rectangle with the Line method.
        Me.Line (X1, Y1)-(X2, Y2), Color, B
    End Sub
    					
  11. ?? ??????? "?????" ? ???? ??? ????? Northwind ????? ????????? ????????.
  12. ???? ?????? ??????? ?? ?? ?????? ???????. ???? ?? ??? "?????????" ??????? ???? ???? ?? ????? ????? ????.

?????

?????? ??? ???? ?? ????????? ??? "????? ???" ?? ???? Visual Basic? ???? ??? "??????? Microsoft Visual Basic" ?? ??????? ??????? ? ???? ????? ??? ?? ????? Office "??" ????? ??????? ?? ???? ??? ??? ???? ???????.

???????

???? ???????: 210321 - ????? ??? ??????: 18/?????/1427 - ??????: 1.2
????? ???
  • Microsoft Access 2000 Standard Edition
????? ??????: 
kbmt kbdta kbhowto kbofficeprog kbprogramming kbusage KB210321 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????210321

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