اريد استيراد ومن ثم تصدير

#121 مارس 2011 في 14:16 صاحب الموضوع

بسم الله الرحمن الرحيم

ارجو مساعدتى حيث ان خبرتى ضعيفه فى قواعد البيانات وبالاخص الاستيراد والتصدير

وقد علمت انه لا يمكن استيراد ملف من برنامج وورد ولكن يمكن التصدير اليه

عندى قاعدة بيانات صغيره مكونه من 24 موظف بمركز اسعاف تحتوى هذه القاعده على بياناتهم من حيث الاسم ورقم الحساب وفرع البنك والخ .....

السؤال الان

هو اننى اريد ان اضيف لكل اسم من هؤلاء الموظفين طلب اجازه خاص به

على ان استورده من ملف تكست وعندما احتاج الى عمل طلب اجازه لهذا الموظف اقوم بتصديره الى ملف وورد لاقوم بطباعته

فكيف يمكننى فعل ذلك بالله عليكم

السؤال بشكل اخر

كيف ارفق لكل سجل من سجلات الجدول ملف تكست

وكيف اقوم بتصدير هذا الملف فقط الى وورد دون ان يتم تصدير الجدول باكمله

علما بان برنامج الاكسيس 2007

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

تم تعديل هذه المشاركة بواسطة على الزملكاوى في 21 مارس 2011 في 14:20

#221 مارس 2011 في 18:09

مفيش حد يرد عليا ولا ايه ؟

#321 مارس 2011 في 22:10

يمكن عمل ذلك من خلال التفرير

ضع مثال للتطبيق عليه

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#422 مارس 2011 في 01:33

مثلا

عندى قاعدة بيانات تحتوى على جدولين

جدول الموظفون وجدول بيانات الموظفون

فى جدول الموظفون اريد الحاق طلب اجازه مرضيه لكل سجل من سجلات الجدول

حيث يحتوى كل طلب على بيانات صاحب السجل

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

الاسم م ط ط رقم التليفون الرقم المدنى الجنسيه النوبه

حبيب ياسين دشتى 220 97880464 266072400204 كويتي ر . م

تيسير صبحي بدار 120 66629221 260030800376 اردني أ

محمود عبد العزيز حندوله 509 66570176 264072900074 سوري أ

علي محمد سالم 811 97103974 282062802365 مصري أ

شادي محمد ابراهيم النجار 1227 55514962 281121505682 اردني أ

عبد الله على جعفر 1270 67092580 287123001127 كويتي أ

اندى كوسنادى عبد الحال 1169 66597079 280041207429 اندونيسى أ

جون افرين سويداد 1430 67699514 274060904835 فلبيني أ

انور صاحب الرشيد 149 99504545 273091800225 كويتي ب

إبراهيم فايق حسني 802 97159161 282050503747 مصري ب

محمد عاطف آدم 757 97628785 282021602463 مصري ب

ميثم موسى باقر 666 94999916 281052500393 كويتي ب

سالم ريحان علي 1198 97875444 285010500561 كويتي ب

امجد محمد منصور 1216 55459778 283010405004 اردني ب

بدر جعفر بدر البلام 1454 99620052 288101701127 كويتي ب

رجا محمد الخطيب 263 99478263 262061700123 اردني ج

محمد عبد الله عبد الرسول 1197 66221478 286092600383 كويتي ج

احمد عبد الغنى حلمي 771 97813251 280031402896 مصري ج

محمد احمد عبد القادر 805 97131584 279020108351 مصري ج

مشعل ماجد علي 1135 99572571 286031400468 بدون ج

سلطان عادل سلطان 1229 66356047 286111401209 كويتي ج

ايمن جميل فهيم 1547 97617221 286040701561 مصري ج

محمد حاجي اشكناني 1099 90995446 276052300897 كويتي د

كمال غالب مفلح 492 99908985 262041400377 اردني د

خالد محمد عبد الكريم 387 97369520 277092103745 مصري د

جلال عيد ابو قديرى 1222 65883797 282121704002 اردني د

سلمان كامل خليل الصايغ 1456 99969903 288022000074 كويتي د

بسام عبد الله حمد البسام 1460 99230020 288102600184 كويتي د

كارلو هيدريانا بلانكويت 1237 97412686 274111803752 فلبيني د

------------------------

طلب المرضيه رفعته فى تكست

بس عايز لما احب اصدره عشان اطبعه اصدره لملف وورد

انا عارف انى هتعبك معايا يا ابو يوسف بسبب قلة خبرتى

بس ياريت الله يخليك تعرفنى الطريقه بالتفصيل اللى استورد بيها طلب اجازه مرضيه عن طريق التقارير على حد قولك

ولك منى جزيل الشكر والاحترام والتقدير

مرضيه.txt

#522 مارس 2011 في 01:40

ارسل مثال لقاعدة البيانات اخى

و مثال لملف الورد الذى تريد التصدير اليه

لانى لا افهم ما تريد عمله بالضبط

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#622 مارس 2011 في 01:53

ربنا يكرمك يا ابو يوسف يارب

واشكر لك اهتمامك

------

يعنى مثلا عندى قاعد بيانات تحتوى على جدولين

جدول الموظفون وجدول بيانات الموظفون

اريد ان ارفق بكل سجل من سجلات جدول الموظفون طلب اجازه مرضيه بها بيانات كل سجل

يعنى اذا كان الجدول يحتوى على 29 سجل

اريد ان ارفق 29 طلب اجازه مرضيه كل طلب يرفق بالسجل الخاص به

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

يارب اكون قدرت اشرح اللى انا عايزه

لان انا خبرتى ضعيفه جدا بقواعد البيانات وخاصة الاستيراد والتصدير

رفعت لحضرتك قاعدة البيانات + طلب اجازه مرضيه

معلش يا ابو يوسف انا هتعبك معايا بس ياريت تشرحلى طريقة الاستيراد عن طريق التقارير زى ماحضرتك قلت وايضا كيفية التصدير

ولك منى كل الشكر والاحترام والتقدير

طلب اجازه مرضيه.rar

#722 مارس 2011 في 02:08

Abo_Yossof كتب:
ارسل مثال لقاعدة البيانات اخى
و مثال لملف الورد الذى تريد التصدير اليه
لانى لا افهم ما تريد عمله بالضبط

انا اريد الاستيراد اولا ومن ثم التصدير يا ابو يوسف

#822 مارس 2011 في 14:08

تم اضافة زرين للنموذج

احدهما للاستيراد ( حيث تم اضافة جدول لاضافة البيانات المستوردة اليه )

و الثانى للتصدير ( حيث يتم تصدير البيانات من السجل الحالى الى ملف التكست )

ملاحظة

يفضل استخدام اللغة الانجليزية فى تسمية الحقول و الجداول

طلب اجازه مرضيه.rar

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 22 مارس 2011 في 14:59

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#922 مارس 2011 في 16:43

على فكره يا ابو يوسف الزرين مش شغالين

بضغط على كل واحد منهم مش بيعمل حاجه

غير ان انا عايز لما اصدر , اصدر لملف وورد مش تكست,

ياريت تقولى عن كيفية اضافة الزراير دى وانا اعملها

#1022 مارس 2011 في 17:30

اخى الفاضل

اولا

الزرين يعملان

بالنسبة لزر التصدير

اذهب الى اى سجل بالنموذج و اضغط الزر ثم افتح ملف التكست و لاحظ تغير البيانات لتتوافق مع بيانات النموذج

ثم اضغط زر الاستيراد

ستجد ان تلك البيانات تم نقلها الى الجدول الذى تم اضافته tbl_vac

ثانيا

انت من ارسل ملف التكست و ليس انا

يجب ان تضع مثال لما تريد بشكل واضح حتى تحصل على اجابة دقيقة

اخى الفاضل

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 22 مارس 2011 في 17:36

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#1122 مارس 2011 في 21:25

يا ابو يوسف

بالنسبه للزراير

عملت اللى حضرتك قلت عليه

ضغطت على زر تصدير وروحت لملف التكست وجدت البيانات اللى فيه كما هى ولم تتغير

كما ضغطت ايضا على زر استيراد لبيانات نموذج اخر وذهبت للجدول tbl_vac وايضا لم اجد بيانات النموذج موجوده بالجدول

----------

كما اننى اضفت ملف تكست حيث ان طريقة الاستيراد لا تسمح بالاستيراد من ملف وورد , ولكنها تسمح بالتصدير الى ملف وورد , هذا على حد علمى

اما الطريقه اللى حضرتك تستخدمها فلم اكن اعرفها

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

هذا هو الملف بالظبط على وورد

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

مباشرة بعد مرضية.rar

تم تعديل هذه المشاركة بواسطة على الزملكاوى في 22 مارس 2011 في 21:26

#1222 مارس 2011 في 23:16

تفضل اخى

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 22 مارس 2011 في 23:46

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#1322 مارس 2011 في 23:42

Abo_Yossof كتب:
تفضل اخى

فين يا ابو يوسف

مفيش حاجه :))

#1422 مارس 2011 في 23:50

لدى مشكلة فى التحميل حاليا

سأقوم برفع المرفق عندما استطيع

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#1523 مارس 2011 في 01:03

اوكى يا ابو يوسف

فى انتظارك

معلش مغلبك معايا

#1623 مارس 2011 في 10:19

تفضل أخى ما تريد

يمكنك ان تعدل عليه كما تحب

للاسف اخى هناك مشكلة فى تحميل المرفقات لدى

لذلك سأضع الكود هنا و احاول الشرح

   'ÝÊÍ ÈÑäÇãÌ ÇáææÑÏ
On Error Resume Next
   Set monWd = GetObject(, "Word.Application")
   If Err.Number = 429 Then
      Set monWd = CreateObject("Word.Application")
      Err.Clear
   End If

   '  ÃÓÊÏÚÇÁ ÇáäãæÏÌ ÇáÌÇåÒ Ýí ÇáãÓÇÑ ÇáÍÇáí ááÞÇÚÏå
        monWd.Documents.Open CurrentProject.Path & "\ãÈÇÔÑÉ ÈÚÏ ãÑÖíÉ.doc"

     monWd.ActiveDocument.Bookmarks("b1").Select   'ÊÇÑíÎ ÇáØáÈ
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b2").Select     'ÑÞã ÇáãáÝ
     monWd.Selection.InsertAfter Me.EMP_DATA_Subform.Form.minst_num

     monWd.ActiveDocument.Bookmarks("b3").Select     '
     monWd.Selection.InsertAfter Me.tname

     monWd.ActiveDocument.Bookmarks("b4").Select     '
     monWd.Selection.InsertAfter Me.filenum

     'monWd.ActiveDocument.Bookmarks("b5").Select      '
     'monWd.Selection.InsertAfter ""

     monWd.ActiveDocument.Bookmarks("b6").Select       '
     monWd.Selection.InsertAfter Me.nation

     'monWd.ActiveDocument.Bookmarks("b7").Select       '
     'monWd.Selection.InsertAfter ""

     monWd.ActiveDocument.Bookmarks("b8").Select        '
     monWd.Selection.InsertAfter Format(Me.EMP_DATA_Subform.Form.sdate, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b9").Select        '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b10").Select        '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b11").Select         '
     monWd.Selection.InsertAfter Format(Date, "ddd")

     monWd.ActiveDocument.Bookmarks("b12").Select         '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

           ' monWd.ActiveDocument.Save
        'monWd.ActiveDocument.Close acSaveYes
        monWd.Visible = True
        monWd.Activate

'monwd.Quit
myerr:
'MsgBox Err.Description
    Set monWd = Nothing

ضع هذا الكود مع زر الارسال الى الوورد

و خير اسماء النماذج و الحقول لما لديك

هذا بالنسبة للاكسس

اما بالنسبة للورد فستحتاج الى الاتى :

افتح صفحة الورد ( التى ارسلتها الى ) و امسح البيانات المسجلة كالاسم و الرقم و التاريخ

و بعد ذلك فى كل حقل من هذه الحقول ستقوم بادراج ( bookmark) او علامة جدولة على ما اعتقد بالعربى

و ذلك عن طريق الذهاب الى قائمة ادراج ( insert) و تختار من القائمة علامة جدولة ستظهر لك نافذة تضع منها اسم هذه العلامة فى الكود ان اسميتها b1 , b2, b3, ......

بعد تحديد الاسم اضغط زر اضافة و كرر الخطوات فى كل خلية حتى تنتهى

فى كود الاكسس لاحظ ان البيانات سيتم ادراجها فى المكان المحدد حسب علامة الجدولة الموجودة بالكود

و بالتوفيق

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 23 مارس 2011 في 13:37 — السبب: لا يمكن تحميل المرفق

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#1723 مارس 2011 في 23:04

الاخ المحترم ابو يوسف

مع تقديرى الشديد لتعب حضرتك معايا

لكن للاسف الشديد انا مش فاهم اى حاجه

فأنا معنديش خبره اطلاقا بموضوع الاكواد

بالاضافه الى انى حاولت انفذ خطوات التصدير للوورد بالطريقه اللى حضرتك شرحتها من خلال اضافة book mark للحقول فى الجدوال وذلك من خلال قائمة Insert

لكن للاسف لم اجد هذه القائمه علما بأن الاكسس 2007 وليس 2003

-----------

انا منتظر حضرتك على راحتك خالص عندما تتعدل المشكله الخاصه برفع الملفات عندك + لو تقدر حضرتك تشوفلى مواضيع او محاضرات خاصه بشرح الاكواد من الالف للياء

بداية من تعريفها وفيم تستخدم وكيف تستخدم

اكون شاكر جدا لحضرتك

سؤال من فضلك : هل الاكواد دى هى اللى عن طريقها حضرتك قدرت تضيف زرين للاستيراد والتصدير فى النماذج ؟

----------

ملحوظه مهمه:-

الاستيراد والتصدير اللى انا عايزهم كلاهما من ملف وورد

ملف التكست ده انا فاهمه خطأ ( كنت مفكر مينفعش الاستيراد من وورد ) ولذلك لجأت للتكست

لكن فى الاساس انا هستورد الملف من وورد وهصدر برضه لوورد

----------

اخى العزيز ابو يوسف صدقنى والله لو حضرتك تعبت من اسألتى وضعف خبرتى فلن الومك ابدا فى ان تنسى طلباتى باكملها

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

شاكر افضال حضرتك

تم تعديل هذه المشاركة بواسطة على الزملكاوى في 23 مارس 2011 في 23:07

#1823 مارس 2011 في 23:37

Abo_Yossof كتب:
تفضل أخى ما تريد
يمكنك ان تعدل عليه كما تحب
للاسف اخى هناك مشكلة فى تحميل المرفقات لدى
لذلك سأضع الكود هنا و احاول الشرح
   'ÝÊÍ ÈÑäÇãÌ ÇáææÑÏ
On Error Resume Next
   Set monWd = GetObject(, "Word.Application")
   If Err.Number = 429 Then
      Set monWd = CreateObject("Word.Application")
      Err.Clear
   End If

   '  ÃÓÊÏÚÇÁ ÇáäãæÏÌ ÇáÌÇåÒ Ýí ÇáãÓÇÑ ÇáÍÇáí ááÞÇÚÏå
        monWd.Documents.Open CurrentProject.Path & "\ãÈÇÔÑÉ ÈÚÏ ãÑÖíÉ.doc"

     monWd.ActiveDocument.Bookmarks("b1").Select   'ÊÇÑíÎ ÇáØáÈ
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b2").Select     'ÑÞã ÇáãáÝ
     monWd.Selection.InsertAfter Me.EMP_DATA_Subform.Form.minst_num

     monWd.ActiveDocument.Bookmarks("b3").Select     '
     monWd.Selection.InsertAfter Me.tname

     monWd.ActiveDocument.Bookmarks("b4").Select     '
     monWd.Selection.InsertAfter Me.filenum

     'monWd.ActiveDocument.Bookmarks("b5").Select      '
     'monWd.Selection.InsertAfter ""

     monWd.ActiveDocument.Bookmarks("b6").Select       '
     monWd.Selection.InsertAfter Me.nation

     'monWd.ActiveDocument.Bookmarks("b7").Select       '
     'monWd.Selection.InsertAfter ""

     monWd.ActiveDocument.Bookmarks("b8").Select        '
     monWd.Selection.InsertAfter Format(Me.EMP_DATA_Subform.Form.sdate, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b9").Select        '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b10").Select        '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

     monWd.ActiveDocument.Bookmarks("b11").Select         '
     monWd.Selection.InsertAfter Format(Date, "ddd")

     monWd.ActiveDocument.Bookmarks("b12").Select         '
     monWd.Selection.InsertAfter Format(Date, "d/m/yyyy") & " ã"

           ' monWd.ActiveDocument.Save
        'monWd.ActiveDocument.Close acSaveYes
        monWd.Visible = True
        monWd.Activate

'monwd.Quit
myerr:
'MsgBox Err.Description
    Set monWd = Nothing
ضع هذا الكود مع زر الارسال الى الوورد
و خير اسماء النماذج و الحقول لما لديك
هذا بالنسبة للاكسس
اما بالنسبة للورد فستحتاج الى الاتى :
افتح صفحة الورد ( التى ارسلتها الى ) و امسح البيانات المسجلة كالاسم و الرقم و التاريخ
و بعد ذلك فى كل حقل من هذه الحقول ستقوم بادراج ( bookmark) او علامة جدولة على ما اعتقد بالعربى
و ذلك عن طريق الذهاب الى قائمة ادراج ( insert) و تختار من القائمة علامة جدولة ستظهر لك نافذة تضع منها اسم هذه العلامة فى الكود ان اسميتها b1 , b2, b3, ......
بعد تحديد الاسم اضغط زر اضافة و كرر الخطوات فى كل خلية حتى تنتهى
فى كود الاكسس لاحظ ان البيانات سيتم ادراجها فى المكان المحدد حسب علامة الجدولة الموجودة بالكود
و بالتوفيق

على فكره يا ابو يوسف فيما يخص الوورد قمت بتنفيذ ماقلته تقريبا ففى ملف الوورد الذى ارسلته اليك قمت بعمل الاتى

مقدم الطلب: b1

رقم الملف : b2

م.ط.ط : b3

الجنسيه : b4

تاريخ التعيين : b5

الرقم المدنى : b6

--------

اما فيما يخص الاكسس فلم افهم شئ

فاين انسخ هذا الكود ؟ فلم اجد مكان الارسال الى الوورد لاضع فيه هذا الكود

وهل وهل هذه البيانات الموجوده فى الوورد التى قمت بعمل b1, b2, b3, ...... يجب ان اضعها فى الجدول اللى حضرتك عملته وهو ( tbl_vac ) ام ماذا يجب ؟

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

شاكر افضالك ياسيدى الفاضل

#1925 مارس 2011 في 08:54

عسى المانع عن دخولك المنتدى ان يكون خيرا ان شاء الله يا ابو يوسف

#2026 مارس 2011 في 23:16

اين انت يا ابو يوسف

ان شاء الله ياربى تكون بخير

اريد استيراد ومن ثم تصدير

مواضيع مشابهة