اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Moosak

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2356

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

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

  • Days Won

    60

 نوع المحتوي 

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

  1. Moosak
    وعليكم السلام ورحمة الله وبركاته .. الأخ سيد ماهي القاعدة التي تبني عليها ؟ لو أخذنا كلمة : س ي د ……مثلا كيف ستكون النتيجة ؟
  2. Moosak
    وعليكم السلام ورحمة الله وبركاته.. تكرما أخي @الأترُجّة قم بتحويل الأوفيس معك إلى اللغة الإنجليزية أو العربية ثم أرفق الرسائل من جديد ..🙂 وذلك لتحصل على إجابة سريعة.
  3. Moosak
    نعم أخي سيد طبعا ممكن .. 🙂
  4. Moosak
    تم الإنجاز أخي سيد 🙂 ... تفضل : الأكواد المستخدمة والدالة التي تحول الحروف : Private Sub GoCmd_Click() Dim x As Integer Dim y As String Dim L As String Dim R As String If IsNull(Me.FromTXT) Or Len(Me.FromTXT) = 0 Then Exit Sub For x = 1 To Len(Me.FromTXT) L = Mid(Me.FromTXT, x, 1) R = Replace(L, L, ARLetters(L)) y = y & Space(2) & R Next Me.ToTXT = y End Sub Function ARLetters(Letter As String) As String Select Case Letter Case "ا": ARLetters = "ألف" Case "أ": ARLetters = "ألف" Case "ء": ARLetters = "همزة" Case "ى": ARLetters = "ألف مقصورة" Case "ب": ARLetters = "باء" Case "ت": ARLetters = "تاء" Case "ث": ARLetters = "ثاء" Case "ج": ARLetters = "جيم" Case "ح": ARLetters = "حاء" Case "خ": ARLetters = "خاء" Case "د": ARLetters = "دال" Case "ذ": ARLetters = "ذال" Case "ر": ARLetters = "راء" Case "ز": ARLetters = "زاي" Case "س": ARLetters = "سين" Case "ش": ARLetters = "شين" Case "ص": ARLetters = "صاد" Case "ض": ARLetters = "ضاد" Case "ط": ARLetters = "طاء" Case "ظ": ARLetters = "ظاء" Case "ع": ARLetters = "عين" Case "غ": ARLetters = "غين" Case "ف": ARLetters = "فاء" Case "ق": ARLetters = "قاف" Case "ك": ARLetters = "كاف" Case "ل": ARLetters = "لام" Case "م": ARLetters = "ميم" Case "ن": ARLetters = "نون" Case "ه": ARLetters = "هاء" Case "هـ": ARLetters = "هاء" Case "و": ARLetters = "واو" Case "ي": ARLetters = "ياء" Case Else: ARLetters = Letter End Select End Function تحویل الحروف.zip
  5. Moosak
    دائما متألق يا @ابو جودي 😊
  6. Moosak
  7. Moosak
    وإليك أيضا عدة حلول رائعة هنا :
  8. Moosak
    بارك الله همم الشباب وحفظكم الله .. حلول رائعة وجميلة 🙂 ولي رأي بأن يتم إنشاء جدول يوضع فيه الكلمة المختصرة ويقابلها العبارة الكامله لها .. هكذا : ثم يتم إنشاء وحدة نمطية تفحص وجود الكلمة في الجدول وتحضر العبارة الكاملة في مربع النص الآخر .. بهذه الطريقة سيكون متاح للمستخدم أن يضيف إلى الجدول ما يشاء لاحقا بدون الحاجة لتعديل الوحدة النمطية كلما أرنا إضافة دولة جديدة .. هذا كود بعد التحديث : Private Sub text1_AfterUpdate() Dim LookFor As String Dim FullName As String If IsNull(Me.text1) Then Exit Sub LookFor = Trim(Me.text1) FullName = DLookup("[LongName]", "[Cuntries]", "[ShortName] Like '*" & LookFor & "*'") Me.text2 = FullName End Sub ( إعلان : شكرا للكاتب الذكي لدوال المجال 😊 الراعي الرسمي لهذه الدالة )   وهذه النتيجة ( قبل / بعد ) : الملف : db2_text.mdb
  9. Moosak
    تشرفت بحضورك أخي أشرف .. وأنت لا تنساني من دعواتك الطيبة وملاحظاتك القيمة 😊
  10. Moosak
    الله الله الله .. جمال في جمال ماشاء الله .. 😃🌹 رائعة من روائعك أخي عمر .. 🙂 أحييت فينا ذكريات الواجهات الجميلة والجذابة في هذه الأيام المباركة 😊 عمل جميل وجهد واضح ماشاء الله 👍🏼
  11. Moosak
    أو هنا :
  12. Moosak
    السلام عليكم أخي محمد .. أطلع على هذا الموضوع .. لعلك تجد فيه حاجتك :
  13. Moosak
    فمنك العذر أخي أبا الحسن .. ولكن أحس بعد ما رأيته من محاولات الخبراء والجهابذة في هذا المنتدى لحل هذه الإشكالية وعدم الوصل لنتيجة .. لذا أرى أن يتم تغيير آلية الحصول على الرصيد السابق بالكامل عن التصميم الحالي لديك .. لأنه معقد ويحتاج إلى تبسيط أكثر .. مجرد رأي 😅
  14. Moosak
    الحقيقة أخي أبو الحسن أنا كنت أحاول إيجاد حل لموضوعك بهذه الأداة حتى قبل ما أطرحها في المنتدى لكن واجهتني مشكلة أن دوال المجال لا تعمل مع الاستعلامات التي لها معايير مرتبطة بقيمة في نموذج (يطلب قيمة معلمة) وهذا بإقرار شركة مايكروسوفت .. والاستعلام (رصيد سابق) هو من هذا النوع ، حيث أنه يطلب بيانات من النموذج : لذلك لم تعمل الدوال معه .. فحاولت التوصل إلى مصدر البيانات الأصلي في الجداول ولكن لقلة فهمي للأمور المالية لم أتمكن من استيعاب فكرة الرصيد السابق من جذورها بعد عدة محاولات 😅 لذلك انسحبت بهدوء وتركت الميدان لأهله 😄🖐🏼️
  15. Moosak
    أستاذنا @ابو جودي .. سبب هذي الرسالة هو الحقل C في الجدول tbldata : وهو من نوع Large Number .... حاول ألا تستخدم هذا النوع من البيانات إطلاقا في برامجك لأنها ميزة مضافة في النسخ الحديثة 2016 وفوق .. لذلك إذا استخدمته لن يعمل البرنامج معاك في النسخ الأفدم .. وعوضا عن ذلك استخدم نوع البيانات Number فقط ومن خصائص الحقل في الأسفل ضع الفيلد سايز = Long Integer عن تجربة 😉👌🏼
  16. Moosak
    الحمدلله على سلامتك يا سيد المعلمين 😊✋🏻🌷 والغايب عذره معه 🌹 كتير أوي يا سيد المعلمين .. 😁🌹 يكفيني 513 إعجاب وشهادة كبيرة منك يا معلمنا 😇🌷 الحمدلله هذا كله من فضل الله وإنعامه .. ثم مما تعلمناه منكم ، وتشجيعكم الدائم 🙂 وأسأل الله تعالى أن يجيب دعواتك الصادقة يا حبيب الملايين 👐🏻 حاسس إني عارف اللي بتفكر بيه ( اللي بالي بالك ) 😉👌🏻 بس برضوه مش حقول ومستنيك وأفكارك ولمساتك المتميزة👍🏼😊
  17. Moosak
    أخي طارق جرب ادخال سجل جديد وأخبرنا بالنتيجة
  18. Moosak
    كان منطلق فكرة إنشاء هذه الأداة أن لي زميل يعاني معاناة شديدة لفهم تركيبة هذه الدوال وتوزيع الفواصل وعلامات التنصيص فيها .. ففكرت في مساعدته بطريقة سهلة ومفهومة للجميع .. ومنها إلى ما أنعم الله به علينا اليوم 😊
  19. Moosak
    =Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1 جرب الآن أخي عمر 🙂
  20. Moosak
    مثل ما أخبرتك أخي طارق ضع الكود كقيمة إفتراضية للحقل user هكذا : والنتيجة : الآن عند إنشاء أي سجل سوف تنحفظ عندك هذه القيمة مباشرة في الجدول جورج الطويل تعديل 3 (1).accdb
  21. Moosak
    شكراً لكم جميعاً .. 🌹 تفاعل جميل منكم 😊
  22. Moosak
    هل جربت ال vbNull أخي أبو عبدالله ؟
  23. Moosak
    وعليك السلام ورحمة الله وبركاته أخي العزيز @أبو عبدالله الحلوانى 🙂 في تعريف المتغير هنا : ضع قيمة srtDate = "" a , ,وليس صفر 0 .. لأن الصفر لها قيمة في التاريخ عند البرنامج .. 🙂 .. أنظر عندما قلت له أن يحول الصفر إلى قيمة تاريخية ماذا أحضر لي : لذلك إن وجدها 0 فسوف يعطيك قيمة تاريخية .. لذلك ضع مكانها "" << علامة فارغة أو vbNull
  24. Moosak
    بعد إذنك أخي المهندس قاسم @Eng.Qassim 🙂 تفضل أخي طارق مع بعض التعديلات على الكود ونموذج الدخول بطريقتي 😉 بالنسبة لاستخدام اسم المستخدم في أي جزئية من أجزاء البرنامج قم باستدعائه بهذا السطر : =[TempVars]![userName] فقد قمت بحفظ أسم المستخدم في متغير مؤقت يحتفظ به طول فترة استخدام البرنامج .. ويغيره تلقائيا عند تبديل المستخدم لاسم للمستخدم الجديد .. ولكي يدخل لك اسم المدخل تلقائيا .. ضع السطر السابق كقيمة إفتراضية لذلك الحقل .. واجعل خصائص الحقل "محمي" لكي لا يتم تعديله يدويا : الآن وضعت لك مربع نص أعلى النموذج يظهر به اسم المستخدم تلقائيا 🙂 ومن الزر تبديل المستخدم تخرج وتدخل باسم مستخدم جديد : جورج الطويل تعديل 3 (1).accdb
  25. Moosak
    شكرا جزيلا لكم جميعا لمرروركم وتشجيعكم 😊🌹 أستاذي العزيز الغالي @د.كاف يار تشرفت بمرورك وإضفاء لمساتك السحرية الرائعة 😊 وشهادة عظيمة منك أعتز بها 😄 فقط أتمنى منك تعديل شيء بسيط عليها لتكتمل الفرحة 😁 أولا : من الأشياء التي راعيتها عند التصميم .. تسهيل عملية استخدام ونقل الأداة إلى أي قاعدة بيانات أخرى للمستخدمين .. فلو أمكن أن تدرج الكود الذي في الموديول إلى قائمة أكواد النموذج لكي يسهل نقله ( قطعة واحدة ) بدل أن ينقل عنصرين ( النموذج والموديول ) 🙂 ثانيا : أيضا راعيت مسألة إمكانية استخدام الأداة بدون الحاجة لنقلها لبرنامجك .. وهذا يستدعي أن القوائم المنسدلة تقبل أي اسم غير المدرج ضمن القائمة .. لكن لاحظت أن (قائمة نوع البيانات) لا تعمل عند كتابة اسم حقل غير المدرجة ضمن القائمة .. ولك مني جزيل الشكر 😊 🌹
×
×
  • اضف...

Important Information

  I accept