jjafferr

شكرا لك على المعلومة 🙂 جعفر

السلام عليكم 🙂 اعمل التالي لوسمحت: اعمل 3 سجلات في الجدول ، فتحصل على 3 ارقام مسلسلة ، احذف السجل رقم 2 ، فيبقى عندك السجلين اصحاب الرقم التلقائية 1 و 3 . الآن قم بعمل اي من الطرق اللي تحب ، فإنك لن تحصل على الرقم 2 . لمزيد من المعلومات عن الرقم التلقائي ، انظر هنا والزبدة: الرقم التلقائي لإستعمال البرنامج ، وليس لإستعمال المبرمج ، نعم يستطيع المبرمج الاستفادة منه ، ولكن لا يجب الاعتماد عليه لتسلسل الاعداد جعفر

السلام عليكم 🙂 اعتقد بأن احد المكتبات غير موجود في هذا الجهاز ، انظر الى كلمة Missing في المربعات التي عليها علامة صح . او اعمل Compile ، وسوف يقف البرنامج على العلة جعفر

انا لم اقل هذا ، وانما قلت: سؤال 1: لماذا لا تستعمل الحقل من "نوع مرفق" للترقيم التلقائي ؟ ج1: لأن هذا الحقل له عمل ، وذلك الحقل له عمل آخر. سؤال 2: لماذا نحن بحاجة الى كل هذه الانواع من الحقول: نص ، رقم ، تاريخ ، مذكرة ... ، ألا يكفي ان يكون عندنا حقل من نوع نص فقط ، لأننا يمكن استعماله لجميع انواع البيانات ؟ ج2: لأننا نستخدم شيء اسمه قاعدة بيانات ، وقاعدة البيانات معمولة على اساس هذه الحقول. خلاصة القول: اذا اردت ان لا تواجه مشكلة في حقل التسلسل ، فلا تستعمل حقل "الترقيم التلقائي". لا ضرر ، فانت الآن تتعامل مع حقل من نوع رقم 🙂 حقل "الترقيم التلقائي" ، والعلاقة بين هذا الحقل وحقل رقم من جدول آخر ، كأي علاقة بين جدولين. جعفر

تفضل . . . . وهذا كود اضافة التسلسل DoCmd.GoToRecord , , acNewRec Me.ID = Nz(DMax("[ID]", "tbl_1"), 0) + 1 . لأنه لايعمل الذي تريده بالتسلسل ، فما معناه انه لا يمكن الاعتماد عليه !! بالعكس ، فهو يمكن الاعتماد عليه 1000% ، وهو ركيزة جلب البيانات وبسرعة 🙂 اذا اردنا قيمة الحقل DOB ، فعندنا طريقتين لجلب هذه المعلومة : Me.DOB = DLookup("[DOB]", "tbl_1", "[Auto_ID]=" & Me.Auto_ID) Me.DOB = DLookup("[DOB]", "tbl_1", "[Full_Name]='" & Me.Full_Name & "'") هنا يأتي قوة وسرعة حقل الترقيم التلقائي (المفهرس والمفتاح الاساس) ، فأي الطريقتين تعتقد تكون اسرع ؟ جعفر 1088.zip

1. ابداً ، هذا غير صحيح !! في الجدول (واحد مثلا) اعمل حقل ترقيم/تسلسل من نوع رقم/نص ، ثم برمجيا قم بالتحكم بإضافة/خصم رقم ، للحصول على الرقم المطلوب ، وفي الجدول (اثنين مثلا) اعمل حقل من نوع رقم/نص (نفس نوع الحقل في الجدول "واحد") ، ثم اربط الجدولين بعلاقة (واذا عملت علاقة بين حقلين ، فيجب ان يكون الحقل مفهرس ، لسرعة جلب بيانات الجدولين) ، 2. جعفر

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

وعليكم السلام 🙂 كل جدول يجب ان يحتوي على رقم تلقائي (وتاريخ تلقائي ، حيث نضع القيمة الافتراضية = ()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 . ولكن قيمها تختلف ، وهذه القيم الخاصة بإغلاق نموذج/تقرير الاكسس: جعفر

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