jjafferr

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

السلام عليكم 🙂 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 جعفر

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

يا خرابي ، علاقتنا وصلت لهذه الدرجة 😱🥵😭 العفو ، انا امزح معاك ، واعرف انها خطأ مطبعي 🙂 السبب انك تستخدم ملف MDW هو للتحكم بالمستخدمين ، وابعاد المتطفلين (الغير محترفين 🙂 ). اعمل التالي لوسمحت ، على زر ، في اي برنامج عندك ، اكتب : msgbox currentuser والنتيجة ستكون Admin . هذا معناه ، ان اذا البرنامج غير محمي بملفه الخاص MDW ، فالاكسس سيقرأ اسم المستخدم من الملف الاصل System.MDW . لهذا السبب ، اذا المتطفل اخذ البرنامج ، وحاول يفتحه في على كمبيوتره (بدون وجود ملف MDW ولا المختصر الذي يقرا من MDW ، واستطاع ان يفك ارتباطه من الـ MDW) ، فتلقائيا يجب ان لا يشتغل البرنامج ، وذلك بإتباع : . لهذا السبب ، ولأنه ببساطه للذي يفهم شوي في الاكسس ، يقدر يتخطى هذا الملف ، وللعلم فالحماية هذه عن طريق MDW يعتبرها المحترفين "مجرد قفل صغير" وليس قفلا حقيقيا يحمي البرنامج ، ولهذا السبب ازالته المايكروسوفت من اصدارات 2007 فما فوق (على حد تعبيرهم) 🙂 جعفر

اخوي ابا جودي 🙂 ملاحظتك غير دقيقة !! لأنه اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل على هذه الرسالة ، لأن الكود عندك به كلمات عربية : والطريقة اللي ممكن تجعل برامجك تشتغل بكل اللغات بدون الخطأ اعلاه : ولكن ، صحيح انك ما راح تحصل على خطأ ، وصحيح انك استخرجت الارقام العربية من unicode الخط ، ولكن كلماتك العربية (اسماء الايام والاشهر) تحتاج ان يكون في الوندوز خطوط عربية 😞 جعفر

السلام عليكم 🙂 مشاركتي هنا مو معناها اني أؤيد هذا الطريق ، وانما لأنه تم فتح هذا الباب ، فاريد ان اضع بعض نقاط تجربتي فيه 🙂 1. لا تستخدم ملف System.MDW ، وانما اعمل منه نسخة واستعمل النسخة ، 2. احتفظ بنسخة من ملفاتك الـ MDW معك في مكان امين ، لأنك ستحتاج لها اذا فقدت النسخة الاصل ، 3. بما انك تقدر ان يكون عندك اكثر من مجموعة (مجموعة لبرنامج المحاسبة ، ومجموعة لبرنامج الصادر والوارد ، وووو) ، يفضل ان يكون اسم ملف الـ MDW هو نفس اسم برنامجك ، 4. خلي ملف MDW نفس مجلد الجداول BE ، وعليه ، يجب ان تكون كل الاختصارات تشير اليه ، 5. في البرنامج ، علشان تعرف اسم المستخدم ، الامر هو CurrentUser ، 6. يجب ان تفتح البرنامج من المختصر Shortcut من على سطح المكتب (رجاء متابعة النقطة تحت) ، وتعمل مختصر لكل مستخدم ، 7. اذا تم فتح البرنامج بدون المختصر (او اذا لم يوجد ملف MDW) ، فإسم المستخدم سيكون Admin ، وهذه كارثة ، لذلك يجب ان تحذف اسم Admin من قائمة المستخدمين في ملف MDW ، 8. في اول سطر ، عند فتح قاعدة البيانات ، يجب ان تغلق البرنامج اذا كان المستخدم هو Admin : if currentuser= "Admin" then docmd.quit end if 9. المختصر على سطح المكتب هو كما اشار اليه اخي ابا جودي ، 10. يمكن إضافة اسم المستخدم في المختصر (بدل ان يختار اسمه عند فتح البرنامج) : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName 11. يمكن إضافة اسم المستخدم وكلمة السر في المختصر (بدل ان يختار اسمه عند فتح البرنامج ، وادخال كلمة السر) ، ولكن حذاري ، فقد يعرفها المخربون : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName /pwd Password جعفر

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

راجع هذا الرابط ، والذي فيه رابطين وهذا جعفر

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

اخي الفاضل 🙂 هذا المنتدى لنشر وتبادل المعلومات بين الاعضاء ، فرجاء وضح سؤالك ، حتى تحصل على مساعدة من الاعضاء ، ويستفيد الجميع من الاجابة. اما اذا اردت ان يتم التخاطب معك مباشرة عن طريق عنواينك الخاصة بالتواصل الاجتماعي وغيرها ، فالرجاء وضع سؤالك هنا: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/ جعفر

السلام عليكم 🙂 للأسف الشديد ، مو كل شيء ممكن يتحقق بإستعلام واحد !! نعمل استعلام لعملية البيع ، واستعلام لعملية الشراء ، ثم نربط هذين الاستعلامين في استعلام ثالث واللي نحصل فيه النتيجة . والنتيجة . جعفر 1078.Database2.accdb.zip