في هذا الجزء من الدورة سوف أبين لكم القدره الهائلة لبرنامج Microsoft Office Access 2003 وسيكون هذا الجزء مقسم الى قسمين
القسم الأول:
https://www.youtube.com/watch?v=clp8MZfnF6Q
القسم الثاني
:Jordan::Jordan::Jordan:
https://www.youtube.com/watch?v=-YXId1E-n8A
المثال موجود بالرابط أدناه وكلمة فك الضغط هي قيس البحر
http://www.mediafire.com/file/q8hgzpu7nxqbqtv/Access_2010.rar
ملاحظة هنا الكود الخاص بالدورة
Dim x As Object
On Error Resume Next
Set x = CreateObject("Word.Application"
x.Documents.Open CurrentProject.Path & "studant.doc"
x.Visible = True
x.activedocument.bookmarks("fname".select
x.selection.insertafter fname
x.activedocument.bookmarks("uninumber".select
x.selection.insertafter uninumber
x.activedocument.bookmarks("tybe".select
x.selection.insertafter tybe
x.activedocument.bookmarks("tkass".select
x.selection.insertafter tkass
x.activedocument.bookmarks("yar".select
x.selection.insertafter yar
x.activedocument.bookmarks("rng".select
x.selection.insertafter rng
[SIZE=3][/SIZE]
On Error Resume Next
Set x = CreateObject("Word.Application"
x.Documents.Open CurrentProject.Path & "studant.doc"
x.Visible = True
x.activedocument.bookmarks("fname".select
x.selection.insertafter fname
x.activedocument.bookmarks("uninumber".select
x.selection.insertafter uninumber
x.activedocument.bookmarks("tybe".select
x.selection.insertafter tybe
x.activedocument.bookmarks("tkass".select
x.selection.insertafter tkass
x.activedocument.bookmarks("yar".select
x.selection.insertafter yar
x.activedocument.bookmarks("rng".select
x.selection.insertafter rng
[SIZE=3][/SIZE]