jjafferr

السلام عليكم 🙂 المنتدى لفائدة الجميع ، فرجاء ارفاق النسخة هنا حتى يستفيد منها الجميع 🙂 جعفر

وعليكم السلام 🙂 كل جدول يجب ان يحتوي على رقم تلقائي (وتاريخ تلقائي ، حيث نضع القيمة الافتراضية = ()Now ) ، مفهرس ، ومفتاح اساس ، الرقم التلقائي لإستعمال البرنامج ، وليس لإستعمال المبرمج ، نعم يستطيع المبرمج الاستفادة منه ، ولكن لا يجب الاعتماد عليه لتسلسل الاعداد ، الاكسس يعتمد على هذا الحقل لسرعة جلب بيانات الجدول 🙂 وهناك حالات خاصة تحدث ، حيث يقفز الاكسس ويبدأ بإعطاء ارقام تسلسل كبيرة ، وحالات يفقد خاصية التسلسل ويعطي ارقام عشوائيه ، ولكنها لا تزال ارقام فريدة. الخطأ الشائع بين المبرمجين ، انهم يستعملون ويعتمدون على حقل الرقم التلقائي في برنامجهم لتسلسل الارقام ، وهذا غير صحيح ، اذا اردت ان تعمل حقل تسلسل/ترقيم ، فهذا يعتمد على نوع البيانات في الحقل وطولها ، فإذا كانت ارقام فقط ، فتستطيع استعمال حقل رقم (نوعه طويل) ، واذا كان طولها يصل الى 13 خانه او اكثر ، فتستطيع استعمال حقل رقم (نوعه Decimal) ، كما بإمكانك استعمال حقل نص ، والذي ستحتاج ان تتعامل معه بطريقة برمجية لزيادة وتنقيص التسلسل. اما اذا كان رقم التسلسل يحتوي على حروف مع ارقام ، فيجب استعمال حقل نص (يمكن استعمال حقل الرقم ، اذا اردنا التنسيق يكون فيه حروف ثابته قبل الرقم او بعده ، ولكنه مجرد تنسيق والحقل سيحتوي الارقام فقط). جعفر

العفو ، ما كان قصدي الومك 🙂 حاول انت من هنا ، والصباح رباح ان شاء الله 🙂 واذا توقفت في مكان ، فاشرح كيف اصل لهذا المكان ، ببيانات من برنامجك 🙂 جعفر

همم ، الآن تخبرني هذا الشيء !! بينما من البداية طلبت منك . يالله ، المرة الجاية ان شاء الله التوضيح بيكون افضل 🙂 جعفر

السلام عليكم 🙂 بسبب انه مافي بيانات في المرفق ، فما قدرت اجرب ، وما قدرت اني اواصل !! على العموم ، اليك طرف الخيط 🙂 علشان تنادي حدث في نموذج آخر: 1. في النموذج الآخر ، يجب تغيير Private الى Public (لاحظ الدائرة الحمراء) ، 2. علشان ننادي الحدث ، نكتب كما في النقطتين 5 و 6 . الامر docmd.close سيغلق النموذج/التقرير الذي عليه التركيز والذي في الواجهة ، لهذا السبب ، واذا اردنا ان نغلق النموذج الذي نقرنا زر الاغلاق منه (سند القبض) ، وجب ان نكتب الامر كما في الرقم 3 في الاسفل ، ولاحظ اننا نغلق نموذج (سند القبض) بعد ان نعطي/نرسل الاوامر للنموذج الآخر 🙂 . وعلى هذا المنوال تستطيع مواصلة المشوار 🙂 جعفر 1086.‏‏BuySal19_v04.mdb.zip

حياك الله 🙂 في الواقع ، لن يكون هناك معنى لإختيار جميع السجلات ، واعطاء الوان لكل سجل (طبعا اعطاء الوان مختلفة لحقل او حقلين واكثر) ، ولكن ممكن يكون هناك حاجة لعمل مثلا 5 الوان ، فيجب عمل تنسيق شرطي لها ، ثم : فمبدأيا ، وبتفكير سريع (لازم عمل التالي لكل حقل نريد ان يكون له لون خاص) ، اعمل 5 حقول غير مضمنه ، واسمائها يكون متسلسل ، ونعمل كود يتعامل مع هذه الحقول بالتسلسل (مثل الطريقة اعلاه، ولكن مع رقم متسلسل)) ، فكلما انتهى من احدهم ، بنتقل للتالي ، ويبدأ من البداية لاحقا 🙂 جعفر

الموضوع مو طباعة صفحة واحدة للوورد ، وانما طباعة كل صفحة اثناء الدوران 🙂 فالحل هو ان ترسل الملف للطباعة ، ثم تجعل الكود ينتظر لمدة 3 او 5 ثوان ، ثم ينتقل للملف التالي 🙂 جعفر

تفضل 🙂 عملنا حقل جديد لتحديد سجل المنصرف ، واخر لسجل الوارد ، حقول غير مضمنه ، ويمكنك ان تجعلهم مخفيين . اضفنا في زر منصرف وكذلك في زر وارد ، جعلنا الحقل اعلاه = قيمة التاريخ ، وذلك لأني رايت ان حقل التاريخ هو ما يجعل كل سجل فريد . وعملنا تنسيق شرطي ، اذا كان قيمة الحقل الغير مضمن = التاريخ ، اذن اجعل خلفيته خضراء . وهذه النتيجة . جعفر 1085.zip

وعليكم السلام 🙂 خلي لنا شوية بيانات ، ثم امشي معانا بالخطوات المطلوبة 🙂 جعفر

هذا السؤال خارج عن اصل الموضوع ، فرجاء فرد موضوع خاص به. جعفر

وعليكم السلام 🙂 هل سيكون هناك اكثر من حقل مظلل ، او هو دائما حقل واحد؟ جعفر

السلام عليكم 🙂 0- يجب ارفاق برنامج الاكسس وملف الوورد ، بكل بياناتهم ، حتى نقوم بهذه العملة ومعرفة اين الخطأ ، 1- هذه الطريقة في نقل البيانات الى الوورد عن طريق الاشارة المرجعية Bookmark ، والذي ابدع اخوي @kanory في شرحها ، تعتمد في وجود "الاشارة المرجعية Bookmark" في الوورد ، في المكان المحدد الذي تريد ان تضع به المعلومة (اما اذا لم يكن هناك اشارة الى المكان ، فكيف يعرف الاكسس ، اين يضع المعلومة !!) ، 2- لكل "اشارة مرجعية Bookmark" في الوورد ، يجب ان ترسل لها معلومة من الاكسس ، فإذا عندك في الوورد مكان لـ الاسم_1 و الاسم_2 و الاسم_3 ، وهم جميعا يحتاجون الى نفس المعلومة/الحقل من الاكسس "S2"، فيجب عليك ارسال المعلومة لكل واحد منهم على حدة ، هكذا (ولا يهم ادخال اي معلومة قبل الاخرى ، ولا اي حقل قبل الآخر) : X.ActiveDocument.Bookmarks("الاسم_1").Select X.Selection.InsertAfter Me.s2.Value X.ActiveDocument.Bookmarks("الاسم_2").Select X.Selection.InsertAfter Me.s2.Value X.ActiveDocument.Bookmarks("الاسم_3").Select X.Selection.InsertAfter Me.s2.Value . وكذلك استكمالا للموضوع ، فبعد ان تُدخل المعلومة في الوورد (وسواء قمت بحفظها او لا) ، واردت طباعة ملف الوورد ، فيمكنك مراجعة هذا الرابط ، والذي يحتوي على طريقة تختلف قليلا عن الطريقة اعلاه : http://arabteam2000-forum.com/index.php?/topic/280527-تنسيق-تقرير-أكسيس-مثل-تنسيق-ملف-وورد/#comment-1351657 جعفر

السلام عليكم 🙂 اهلا وسهلا بك في منتدى الاكسس 🙂 في الواقع سؤالك يجتاج الى مرفق به بيانات ، ويحتاج الى اعطائنا مثال عن النتيجة (على ملف اكسل او وورد او صورة) ، وكلما زاد الايضاح ، كلما سهلت الموضوع على الاعضاء بإيجاد اجابه لسؤالك 🙂 وإلا سيطول انتظارك 😞 جعفر

تفضل يا سيدي 🙂 Private Sub BtnAllRcrd_Click() 'On Error GoTo ErrHandler On Error Resume Next Dim rs As DAO.Recordset Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") Set rs = CurrentDb.OpenRecordset("Table1") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF LWordDocOriginal = CurrentProject.Path & "\WordDoc.Doc" ' LWordDocSaveAs = CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" ' FileCopy LWordDocOriginal, LWordDocSaveAs ' LWordDoc.Documents.Open CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" LWordDoc.Documents.Open LWordDocOriginal LWordDoc.Visible = False LWordDoc.ActiveDocument.Bookmarks("fname").Select LWordDoc.Selection.InsertAfter Nz(rs!Fullname.Value, "") LWordDoc.ActiveDocument.Bookmarks("Civ").Select LWordDoc.Selection.InsertAfter Nz(rs!CivilNo.Value, "") LWordDoc.ActiveDocument.Bookmarks("Nat").Select LWordDoc.Selection.InsertAfter Nz(rs!Nationality.Value, "") LWordDoc.ActiveDocument.Bookmarks("Rate").Select LWordDoc.Selection.InsertAfter Nz(rs!Rate.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chin").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckIn.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chout").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckOut.Value, "") LWordDoc.ActiveDocument.Bookmarks("Pr").Select LWordDoc.Selection.InsertAfter Nz(rs!Price.Value, "") LWordDoc.ActiveDocument.SaveAs (CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc") rs.MoveNext Loop 'LWordDoc.Application.Documents(rs!Fullname & "_Doc.Doc").Save 'LWordDoc.Quit 'LWordDoc.ActiveDocument.SaveAs (rs!Fullname & "_Doc.Doc") LWordDoc.Quit Set LWordDoc = Nothing 'ErrHandler: ' If Err.Number = 3021 Then Resume Next End Sub جعفر

السلام عليكم 🙂 جعفر

هذا رابط لموضوع قمت بالرد عليه http://arabteam2000-forum.com/index.php?/topic/280527-تنسيق-تقرير-أكسيس-مثل-تنسيق-ملف-وورد/#comment-1351657 وطريقة الحفظ كانت: 'save document the New Merged Document objWord.ActiveDocument.SaveAs ("C:\MyNewDocument.doc") . السؤال هو: لماذا تجعل ملف الوورد ظاهرا وقت نقل الببانات؟ اذا اخفيته objWord.Visible = False 'True is visible . وتعامل مع الموضوع كأنه اكسس 100% ، فبعد ان تحفظ ملف الوورد ، تقدر تعمل رسالة من الاكسس انه "تم حفظ البيانات في ملف الوورد" 🙂 واما غلق الوورد ، فكما قال اخوي ابو ابراهيم: objWord.Quit جعفر

وعليكم السلام 🙂 اذا نظرت الى امر اغلاق النموذج/تقرير الاكسس ، فترى ان الاختيارات اللي عندك هي نفسها اعلاه: DoCmd.Close , Me.Name, acSaveNo DoCmd.Close , Me.Name, acSavePrompt DoCmd.Close , Me.Name, acSaveYes . ولكن قيمها تختلف ، وهذه القيم الخاصة بإغلاق نموذج/تقرير الاكسس: جعفر

ما ادري شو معني كلامك ؟ نحن نشجع البحث في المواضيع القديمة ، والبحث عن اجابات حديثة تحتاج الى من يرد عليها ، من الاعضاء المتواجدين في المنتدى الآن 🙂 ولكن لا ضمان من وجود الاعضاء القدامى اصحاب المواضيع القدامى ، للرد على سؤالك. جعفر

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

السلام عليكم 🙂 شوف هذا الرابط جعفر

السلام عليكم اخوي ابا جودي 🙂 انا اعرف انه ليس من السهولة عمل تغييرات جذرية في طريقة العمل ، ولكن لكل مجتهد نصيب 🙂 عملت بعض التعديلات على البرنامج ، بحيث جعلته سهل ان يأخذه المستخدم الى كمبيوتر آخر: دمجت الجدولين في جدول واحد ، ودمجت جميع الوحدات النمطية في وحدة نمطية واحدة ، وعملت تغيير بسيط على الدالة Msg 🙂 في شيء آخر صار لي اكثر من اسبوع احاول ان افتح فيه موضوع ، ولكن التهي بشيء او آخر ، وان شاء الله لما اعمله ، اخبرك عنه 🙂 جعفر 1080.dbskn.zip

اذا فهمتك صح ، فهذه ما يحتاج لها نموذج خاص 🙂 هناك مثال في الاكسس عن Msgbox Function: Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Do you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "MsgBox Demonstration" ' Define title. Help = "DEMO.HLP" ' Define Help file. Ctxt = 1000 ' Define topic ' context. ' Display message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes. MyString = "Yes" ' Perform some action. Else ' User chose No. MyString = "No" ' Perform some action. End If . فتعمل الاختبار قبل ما تعرض الرسالة ، وعلى اساس النعم او لا تقوم بالخطوة التالية 🙂 وسواء استعملت الرسالة بالانجليزي او العربي ، فالطريقة سيان 🙂 جعفر

وعليكم السلام 🙂 مو جميع اكواد VB6 تعمل في بيئة VBA ، والمشكلة هنا في تعاملك مع ملف user32.dll ، وليس في اعدادات الاكسس. انا احب البساطة في العمل ، ولذلك ، وبدل ان ادخل في اكواد لا افهمها ، ممكن ان اعمل نموذج ليقوم بهذا العمل ، بالاكسس 100% 🙂 جعفر

وعليكم السلام 🙂 الطريقة الافضل لعمل فرز في النموذج ، هو عن طريق الاستعلام (مصدر بيانات النموذج) ، مثل ما تفضلت وقلت ، ولكن ، قد تكون عملت فرز آخر في النموذج وحفظته !! ادخل النموذج في وضع التصميم : 1. ومن اعدادات النموذج ، لاحظ اذا كان هناك فرز في حقل "Order By" ، فإحذفه ، 2. انظر في حدث النموذج: عند الفتح ، عند التحميل ، اذا في اي امر فيه OrderBy ، فإحذفه. جعفر