jjafferr

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

السلام عليكم 🙂 بسبب انه مافي بيانات في المرفق ، فما قدرت اجرب ، وما قدرت اني اواصل !! على العموم ، اليك طرف الخيط 🙂 علشان تنادي حدث في نموذج آخر: 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 ، فإحذفه. جعفر

شكرا بشمهندس 🙂 جعفر

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String On Error GoTo ErrorHandler 'to call the Function 'Hijri to Milady 'txt Milady date = ToWhat(txt Hijri date, "H") ' 'Milady to Hijri 'txt Hijri date = ToWhat(txt Milady date, "M") Dim CorctAdjustDay As Integer CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate") If To_Hijri_Milady = "M" Then myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 1 d = CDate(myData) VBA.Calendar = 0 Else myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 0 d = CDate(myData) VBA.Calendar = 1 End If s = CStr(d) ToWhat = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal ErrorHandlerExit: Exit Function ErrorHandler: If Err = 13 Then MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Function 'Resume Next Else Resume ErrorHandlerExit End If End Function جعفر

اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ??? 🙂 جعفر