اذهب الي المحتوي
أوفيسنا

jjafferr

أوفيسنا
  • Posts

    10020
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    408

كل منشورات العضو jjafferr

  1. الله يخليك ، لا تخلي زوجتي تشوف هالاسم ، وإلا بتعتقد ان موسى من زوجه أخرى جعفر لا ، وانما الطريقتين ستظهران الحرف والرقم عند استعمال الحقل في اي مكان جعفر
  2. حياك الله 1. الحقل رقمي ، والتعامل مع الحقل دائما كأنه رقم ، اما إضافة الحرف M فهو للتنسيق فقط ، ولكن الرقم مع الحرف يظهرون عند استعمال الحقل ، 2. الحقل نص (انا لم اغيّر في الجدول ، وانما غيّرت المعادلة فقط) ، والحرف M هو جزء من الحقل ، وعند استعمال الحقل ، فان الرقم والحرف سيظهرون مع بعض ، ولا علاقة للتنسيق في هذا الحقل جعفر
  3. السلام عليكم ومشاركة مع اخواني ، اعرض عليك هذا الكود ، وتستغني به عن الوحدة النمطية ، ولكن الشرط ان لا تكون هناك سجلات في الجدول ، وتبدأ معه سجل بسجل: Me.حاسب = "M" & DCount("*", "Test") + 1 جعفر
  4. عفوا أختي ، لا يمكن عمل أي نموذج/برنامج بهذه الطريقة ، لذا ، فرجاء إرفاق برنامجك ، وتوضيح ما تريدين الوصول إليه بمثال من برنامجك جعفر
  5. السلام عليكم اخي بحار الاكسس اشكرك على روح التعاون ، ولكن ، الهدف من المنتدى هو تثقيف وتعليم اعضاء المنتدى بخبرات الخبراء أمثالك فياريت تفيدنا بأفكارك في كيفية عمل مثل هذا البرنامج ، والقيام به من خلال مشاركاتك هنا مع صاحب الموضوع ، حتى يستفيد الجميع من هذه الأفكار ويتسع ادراكهم بالخطوات والتحليل جعفر
  6. السلام عليكم أختي مايا ليس هناك داعي لفتح سؤال جديد لموضوع تتم فيه المناقشة ، وكما لاحظت من المشاركات ، فالاخوة شفان ورمهان قد قاموا بطلب الاستفسار منك في نفس اليوم الذي وضعتي فيه السؤال ، اي قبل 8 ايام . جعفر
  7. وعليكم السلام أختي ، واهلا وسهلا بك في المنتدى نعم يمكنك عمل ما تفضلتي به في الاكسس ، وكما يمكنك جلب بيانات سابقة اذا كانت على الاكسل مثلا ، ولكن وكما تفضل أخي شفان ، يجب ان يكون عندك تصور واضح لطريقة عمل البرنامج ، وتوجد لدينا برامج اكسس بها مئات الآلاف من السجلات ، وهو في الخدمة لسنين عديدة جعفر
  8. السلام عليكم يمكنكم الاستفادة من البرنامج في هذا الرابط: . من هذا النموذج: . والذي استخدمت فيه نوعين من الكائنات لعرض الصور/ملفات pdf ، وبرمجيا ، وحسب نوع الملف ، كنت اخفي الكائن الاخر ، واعرض الصورة على كائن الصور ، بينما اعرض ملفات pdf على كائن متصفح الانترنت IE (والذي تستطيع ان تعرض عليه معظم الملفات الاخرى ، غير الصور) جعفر
  9. وعليكم السلام Shared ، هذه خاصية تم ادخالها في الاكسس 2010 ، والتي يعمل الاكسس جدول خاص للصور ، ثم يحفظ الصورة/الصور في الجدول ، فهذا معناه ان هذه الطريقة في واقع الامر مدمجة Embedded ، ولكن ، الميزة انك تستطيع استعمال نفس الصورة مرارا في النماذج والتقارير بينما اذا رجعنا الى طريقة ربط الصور Linked ، فبعدما تربط الصورة ، كالتالي ، مثلا: اسم الحقل: img اسم النموذج: frm_Main ربط الصورة يكون هكذا ، مثلا: Me.img.Picture = application.currentproject.path & "\Images\myPic.jpg" . واذا اردت استعمال نفس الصورة في نموذج/تقرير ثاني/ثالث ، فيمكنك استعمال الكود التالي: Me.img2.Picture = Forms!frm_Main.img.picturedata والذي لن يأخذ الصورة من القرص الصلب ، وانما سيأخذ نسخة من الصورة التي في الحقل img في النموذج frm_Main ، وسيكون اسرع من استدعاء الصورة من القرص الصلب ، ويمكنك استعمال هذا الكود في جميع اصدارات اكسس جعفر
  10. السلام عليكم السؤال تكرر عن جمع بيانات كل صفحة على حدة ، ثم الصفحة الاخيرة ، كما في التفصيل التالي: . واليك الطريقة: . . . جعفر 505.مثال.accdb.zip
  11. 1. رحم الله والديك 2 و 3 هاي ما فهمتهم جعفر
  12. وعليكم السلام أخي صالح اعتذر منك على التأخر في الرد ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية: 1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ، 2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ، 3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس جعفر
  13. كل اللي احتاجه منك هو: 1. ادخل في الصفحة التي تريد ادخال البيانات فيها ، وإحفظ لي الصفحة بصيغة HTML (يكون عندك مجموعة خيارات ، واذا احترت بين خيارات الحفظ ، فاحفظ الصفحة بكل اختيار على حده) ، 2. اعمل نفس الشئ لكل صفحة تريد ارسال/استرجاع المعلومات منها ، 3. برنامجك الاكسس ، وياريت يكون عندك نموذج جاهز فيه جميع الحقول اللي تريد ارسال بياناتها ، وبرنامجك يكون فيه بيانات للتجربة ، 4. واعمل لي بالوورد/الاكسل/الاكسس جدول ، فيه اسم الحقل من برنامجك ، يقابله اسم الحقل الذي تريد ادخال البيانات فيه في الموقع ، 5. انسخ url (عنوان كل صفحة) ، واعمل لي بالوورد/الاكسل/الاكسس جدول بهذه العناوين. انا ما بيكون لي علاقة في دخول الموقع وكلمة السر ووووو ، وانما سأتعامل مع الصفحات فقط ، والله يسهل ان شاء الله جعفر
  14. نعم لاحظت هذا البارحة ، والحل ان تعمل قاعدة بيانات فاضية ، ثم تستورد كائنات قاعدة بياناتك الحالية ، إليها. جعفر
  15. وعليكم السلام هو في حد جاب اسمي تفضل ، هذا كود زر فتح التقرير من النموذج Private Sub Command13_Click() 'On Error Resume Next DoCmd.OpenReport "salry3", acViewPreview Dim Filt As Variant If Me.Fr = 1 Then Filt = "[nam] ASC" ElseIf Me.Fr = 2 Then Filt = "[twqe] ASC" ElseIf Me.Fr = 3 Then Filt = "[draga] ASC" End If Reports!salry3.OrderBy = Filt Reports!salry3.OrderByOn = True End Sub في الواقع احنا ما محتاجين وضع امر ASC اي ترتيب تصاعدي ، لأنه الامر الافتراضي ، اذا لم نضع الامر Desc اي ترتيب تنازلي الكود اعلاه ما راح يشتغل في تقريرك ، لأنه عندك فرز في تقريرك (Sorting and Grouping) ، لذا يجب ازالت هذا الفرز اولا. واما اذا اردت الفرز ان يكون بحقلين ، بحيث الفرز الاول يكون للحقل الاول ، والفرز الثاني للحقل الثاني ، مثلا: Names Years 2001 jj 2000 ab 2001 zx 2000 aa فنريد الفرز بالسنة ثم الاسم ، وتكون النتيجة هكذا: 2000 aa 2000 ab 2001 jj 2001 zx فهنا يجب ان يكون الفرز بالحقلين ، ونبدا بحقل السنة ثم الاسم ، فيصبح الكود Filt = "[Years], [names]" ولاحظ اننا لم نستعمل الامر ASC لاننا لسنا بحاجة اليه جعفر
  16. وعليكم السلام أخي سلمان ، مجتاج معلومات اكثر منك والاهم شوية امثلة من برنامجك ، وخصوصا طريقة الدخول ، وما المعلومات التي تريد ادخالها ، والمعلومات التي تريد استردادها ، ولكن ، هناك امكانية لعمل هذا بوجه عام في معظم المواقع ، ويجب ان نجرب على هذا الموقع بالذات جعفر
  17. وعليكم السلام تفضل هذا الكود للنموذج: Private Sub COM1_Click() Call Form_Current End Sub Private Sub Form_Current() Dim rst As DAO.Recordset Dim i, Nums, RC As Integer Set rst = CurrentDb.OpenRecordset("Select * From QR_MO_SMS") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Nums = "" For i = 1 To RC Nums = Nums & rst!No_Mobile & "," rst.MoveNext Next i Me.txtNumbers = Mid(Nums, 1, Len(Nums) - 1) 'Or 'Me.txtNumbers = Left(Nums, Len(Nums) - 1) rst.Close: Set rst = Nothing End Sub جعفر
  18. هذا الرابط فيه الكود للعمل الذي تريده http://stackoverflow.com/a/3133849 ولكن ما رايك في برنامج جاهز ، تقوم بادخال قواعد البيانات ، وهو يقوم بالعمل http://www.peterssoftware.com/cal.htm جعفر
  19. وعليكم السلام تفضل . والنتيجة . اهم شئ في مثل حالاتك ، انك ما تضيف حقل "الترقيم التلقائي" AutoNumber ، وإلا فالاستعلام سيعطيك رسائل خطأ ولن يعمل جعفر 490.الحاق.accdb.zip
  20. عفوا اخوي بدر ، انا ما كنت اريد اجابة ، وانما هذه الفكرة جعفر
  21. السلام عليكم أخوي بدر الموضوع ببساطة يحتاج الى جدول خاص بالادوية التي يجب ان تصرف لاحقا ، ولكني لم اكن مقتنعا من الحل ورجعت اقرأ الموضوع مرة اخرى ، وقرأت الفقرة التالية واعطتني فكرة (اعرف انها صعبة للتنفيذ نوعا ما ، وفي الواقع كنت اريد تنفيذها لأحد برامجي للقيام بالعمل بشكل شبه تلقائي) ، ولكن اليك الفكرة: نعمل جدول خاص بالتذكير Reminders ، الجدول عام لكل شئ تريد ان يذكرك به ، سواء وصفات دواء ، او تنبيه لتجديد رخصة ، او حتى عشاء مع جعفر ، بالنسبة الى صرف الادوية لمدة 3 اشهر مثلا ، فسيقوم نموذج صرف المواد بعمل 3 سجلات في جدول التذكير ، بعض حقول الجدول (الفكرة لم تتخمر بعد ، فهذا جزء منها) ، التذكير بماذا ، متى تاريخ/موعد التذكير ، كم يوم تريد البرنامج ان يذكرك قبل الموعد ، هل تم الازم ، ام تريد التذكير في الاستمرار ، نوع العمل التلقائي المطلوب عمله لهذا التذكير ، وهذا الحقل هو اساس الفكرة ، حيث سيكون رقمي ، وستكون عندنا وحدة نمطية لعمل المطلوب على حسب هذا الرقم (سأكمل لاحقا) ، كل يوم اول ما تفتح الكمبيوتر تطلع لك شاشة المواد/الاعمال التي يجب ان تذكرك لعمله لذلك اليوم ، نموذج التذكير يكون فيه زر للقيام بعمل المطلوب تلقائيا ، وهذا يعتمد على نوع العمل (انظر رقم 5 اعلاه) ، واذا كان نوع العمل صرف دواء مثلا ، فتستطيع ان تعمل مجموعة اشياء تلقائيا (هذا اللي قصدته بوجود وحدة نمطية لكل نوع) ، فقد تريد ان ترسل رسالة sms الى هاتف المريض ، او ترسل ايميل ، او تطبع تقرير ، او ... جعفر
  22. السلام عليكم أخي محمد في حلول ، والاهم ، في مناقشة ومعلومات حلوه في الرابط اللي انا ارفقته ، فياريت تأخذ نظره هناك جعفر
  23. السلام عليكم اخي محمد هاي سهلة ، والمرفق فيه طلبك (مع ملاحظة اني لاحظت خطأ في الكود في قراءة الملفات ذات اكثر من 3 حروف لصيغة الملف ، مثل docx و accdb و xlsx ، والملفات بدون صيغة) ، وتم تعديله في المرفق بدلا عن FileCopy File_Path_Name, Me.pate & "\" & File_Name استخدم FileCopy File_Path_Name, Me.pate & "\Alt_" & Me.id_m & "_" & i & "." & FileExt ولكن اسمح لي ان اعرض بعض التغيير: ايش رايك بدلا عن Alt_6_1.jpg Alt_6_2.doc ايش رايك في ، بحيث تحتفظ بإسم الملف ايضا Alt_6_1_Router_config.jpg Alt_6_2_Read_Router_config_Manual.doc وايش رايك في انه يوجد لكل سنه ملفاتها؟؟ جعفر 207.3.m.salama.accdb.zip
×
×
  • اضف...

Important Information