كيفية تعديل جدول بالوورد من خلال الاكسيس؟

[شامل2]

السلام عليكم

يوجد عندي قوائم ( جداول) مصصمة ببرنامج الورد تحزي على اسم الشخص ورقم بطاقته

كيف يمكن استدعاء هذه الجداول الى برنامج الاكسس بحيث يمكن اجراء التديث والتغير عليها واضافة حقول جديدة في برنامج الاكسس

بحيث يمكن حذف او مسح قوائم الورد نهائيا لانها تصبح بدون جدوى

هل يمكن عمل ذلك

وشكرا للجميع

[محب العلم]

السلام عليكم

نعم أخي يوجد طريقة برمجية لإستيراد البيانات المخزنة في نموذج بيانات في ورد إلى جدول أكسيس .

والطريقة هي ببناء جدول في أكسيس فيه نفس الحقول التي في نموذج الورد وثم تطويع الكود الآتي للعمل المطلوب

Sub GetWordData()
Dim appWord As Word.Application
Dim doc As Word.Document
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strDocName As String
Dim blnQuitWord As Boolean

On Error GoTo ErrorHandling

strDocName = "C:\Contracts\" & _
InputBox("Enter the name of the Word contract " & _
"you want to import:", "Import Contract")

Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(strDocName)

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\My Documents\" & _
"Healthcare Contracts.mdb;"
rst.Open "tblContracts", cnn, _
adOpenKeyset, adLockOptimistic

With rst
.AddNew
!FirstName = doc.FormFields("fldFirstName").Result
!LastName = doc.FormFields("fldLastName").Result
!Company = doc.FormFields("fldCompany").Result
!Address = doc.FormFields("fldAddress").Result
!City = doc.FormFields("fldCity").Result
!State = doc.FormFields("fldState").Result
!ZIP = doc.FormFields("fldZIP1").Result & _
"-" & doc.FormFields("fldZIP2").Result
!Phone = doc.FormFields("fldPhone").Result
!SocialSecurity = doc.FormFields("fldSocialSecurity").Result
!Gender = doc.FormFields("fldGender").Result
!BirthDate = doc.FormFields("fldBirthDate").Result
!AdditionalCoverage = _
doc.FormFields("fldAdditional").Result
.Update
.Close
End With
doc.Close
If blnQuitWord Then appWord.Quit
cnn.Close
MsgBox "Contract Imported!"

Cleanup:
Set rst = Nothing
Set cnn = Nothing
Set doc = Nothing
Set appWord = Nothing
Exit Sub
ErrorHandling:
Select Case Err
Case -2147022986, 429
Set appWord = CreateObject("Word.Application")
blnQuitWord = True
Resume Next
Case 5121, 5174
MsgBox "You must select a valid Word document. " _
& "No data imported.", vbOKOnly, _
"Document Not Found"
Case 5941
MsgBox "The document you selected does not " _
& "contain the required form fields. " _
& "No data imported.", vbOKOnly, _
"Fields Not Found"
Case Else
MsgBox Err & ": " & Err.Description
End Select
GoTo Cleanup
End Sub

الكود أعلاه يسأل عن أسم المستند في ورد الذي به نموذج البيانات وثم يفتح اتصال بين وورد وأكسيس ويعبىء الجدول الموجود في أكسيس بالبيانات التي في نموذج ورد ، مما لا شك فيه أن هناك تغييرات يجب أن تعمل على هذا الكود من حيث موقع واسم المستند الذي نريد استيراد البيانات منه وكذلك أسماء الحقول في نموذج البيانات في ورد واسماء الحقول التي في أكسيس .

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

مع وافر الاحترام

[أبو فراس]

الاخ محمد العلم

كرماً التوضيح بمثال ليتسنى لنا الاستفادة من الموضع

وجزاكم الله خيراً

[صباح حسين]

السلام عليكم .الاخ محب العلم منذ فترة وانا افتش على هذه الطريقة حيث انني احتاجها لغرض نقل الجداول من ملف وورد الى جدول في اكسس برمجياً لتلافي

الاخطاء. لذلك ارفق لكم ملف وورد يحتوي على اوامر ادارية للمكافأت وتحتوي على جدول باسماء المكرمين ولدي برنامج اكسس يحتوي بيانات الموظفين

لذلك اقوم بنقل البيانات من جدول وورد الى اكسس يدو.ياً لذلك ارجو تعديل الكود ليلائم الغرض المطلوب منه ولك جزيل الشكر. علماً انا اخوكم في المنتدى

__.rar

[محب العلم]

أخواي أبا فراس و صباح حسين ،

سأحاول بمشيئة الله اليوم تلبية مطلباكما ...

مع فائق احترامي وتقديري

تم تعديل يناير 25, 2008 بواسطه محب العلم

[محب العلم]

السلام عليكم

تم بحمد الله عمل المطلوب ، إضغط هنا لزيارة الموضوع

ويمكن تجربة الملفات لأنها عملت على تنسيق 2003 حتي يستفيد الجميع وبالطبع يمكن تشغيلها من أكسيس وورد 2007 أيضا بدون أي تغيير

مع فائق الاحترام والتقدير

[شامل2]

اشكرك استاذي العزيز ولكن هل توجد طريقة اخرى اسرع واقصر

[محب العلم]

حياك الله أخي الشامل وأشكرك على تفاعلك وملاحظاتك القيمة والبناءة

الطريقة على فكرة سريعة جدا وبسيطة ولكنني قمت بالشرح من نقطة الصفر فظهر الموضوع انه طويل وسبب شرحي للموضوع بشمولية واسهاب لأنه يوجد بعض الاعضاء لا يعرفون كيف يعملون نموذج بيانات في الورد وهذا الأمر لوحده كلفني ثلثي الدرس.

على كل الأحول لا اعتقد وجود طريقة أقصر لنقل البيانات من نموذج بيانات في ورد إلى جدول في أكسيس فكل الذي فعناها بما يتعلق بهذا الموضوع كما تلاحظ من الدرس هو فتح اتصال بين الورد وقاعدة البيانات وثم استعلام الحاق برمجي وهذا الشيء أساسي لنقل البيانات ولا يمكن اختصاره.

مع وافر الاحترام والتقدير