الي فاهم ربط الوورد بالاكسس عن طريق هالكود لا يبخل بالاجابة

[أبو نادر]

 

 

السلام عليكم

اخواني هذا يوتيوب اجنبي لربط الوورد بالاكسس وعجبني وطبقته

في الوورد كل شي تمام

 

ولكن بدأ الخبيص في كتابة الكود 

بعد  Private Sub  كتب   call...   وش اكتب بعدها ؟

وبعد function   هل اكتب اسم النموذج؟

ابغى اضغط على الامر ويطبع على طول .... وش اضيف على هالكود ؟

 

 

ودمتم يا عباقره سالمين

 

 

Private Sub ØÈÇÚÉ_ÇÌÇÒÉ_Click()
Call äãæÐÌ_ÇáÊãÇã_ÇáÑÆíÓí
End Sub
Function äãæÐÌ_ÇáÊãÇã_ÇáÑÆíÓí()
Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String

On Error Resume Next
Error.Clear
path = "E:\ØáÈ ãäÍ ÇÌÇÒÉ.docx"
Set appword = GetObject(, "word application")
If Err.number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Set doc = appword.Documents.Open(path, , True)
With doc
     .FormFields("ÇáæÍÏÉ").Result = [ÇáÓÈÈ_2]
     
appword.Visible = True
appword.Activate
End With
Set doc = Nothing
Set appword = Nothing

End Function

[أبو عبدالله الحلوانى]

25 دقائق مضت, أبو نادر said:

بعد  Private Sub

اسم زر الأمر الذى ستضغط عليه لتنفيذ الأمر واجعل التسمية انجليزية لعد حدوث مشاكل 

وعموما عند وضع حدث عند النقر للزر سيتم كتابة اسمه تلقائيا 

29 دقائق مضت, أبو نادر said:

وبعد function   هل اكتب اسم النموذج؟

طبعا ستكتب اسم الاجراء أى اسم تحبه بشرط لا يكون نفس اسم الموديل الذى يحتويه

جرب ووافنا بالنتائج

[أبو نادر]

ابو عبدالله اقصد السطر الي تحت private sup

اش بعد  call

وما فهمت اسم الموديل الذي يحتويه ؟

 

[أبو عبدالله الحلوانى]

13 ساعات مضت, أبو نادر said:

وما فهمت اسم الموديل الذي يحتويه ؟

لنفرض أن لدينا مودييل اسمه Module1 فلا يصلح أن تكون ال Function  اسمها أيضا Module1  

هل هذا واضح؟ 

وعلى كل أرفق مثالا للتعديل عليه اذا أحببت

 

[أبو نادر]

الله يعطيك العافيه

 

انا اصمم حركات ثانية في نفس النموذج .... وطباعة ملف الوورد في النهاية

 

وان جا وقتها وتورطت اكيد ما بستغني عن خبرتك 

[أبو عبدالله الحلوانى]

17 دقائق مضت, أبو نادر said:

الله يعطيك العافيه