اعرض الملف
🎁✨ :: الرسائل الإبداعية :: 🌼🌷 :: استبدل الرسائل العادية برسائل قمة في الجمال 😊👌🏻
السلام عليكم ورحمة الله وبركاته
أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻
يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁
استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية .
من مميزات هذه الرسائل:
- تصميم جميل وألوان جذابة.
- خاصية ذاتية الاختفاء.
- عنوان رئيسي + عنوان فرعي
- تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار)
- سهلة الاستخدام .
الشرح على اليوتيوب :
التحميل 🙂
Moosak MsgBox.accdb
ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹
صاحب الملف
Moosak
تمت الاضافه
13 أبر, 2024
الاقسام
قسم الأكسيس
اضحك الله سنك يا باش مهندسة
وبعدين مين ده اللى يغار
بفضل الله تعالى وحدة تعلمنا ومازلنا نتعلم من اساتذة عظماء نقوم بالعديد من الاشياء بطرق ابسط منهم ويمن علينا الله تعالى ببنات افكار ولا اروع
حلوة بنات افكار ولا اروع دى برضو
طيب وبما انك مردتيش كل الطرق
مع الطريقه السابقة يكون معك 4 طرق مختلفة اختارى منها ما تشائين
New Microsoft Access Database3.accdb
New Microsoft Access Database2.accdb
New Microsoft Access Database4.accdb
طيب ما هو حضرتك يا افندم وضعتى المرفق لما افتح النموذج الاول visit_frm
الحقول مقفولة ومفيش بيانات فى الحقول فطبعا مش عارف اجرب
فكتبت لحضرتك الاجابة النظرى وفقا للسؤال النظرى
استاذى الجليل ومعلمى ومفرج كربتى / ابو خليل
اولا اسف لتأخرى فى الرد بسب الانشغال فى العمل
جزاك الله كل خير على هذا الشرح الوفير والواضح ، انا اخذت المثال الاول المطروح من حضرتك وطبقت عندى وكل شئ تمام وتم المطلوب
اما المثال الثانى ففيه توضيح اكثر وكود جميل جدا بصراحة حضرتك دكتور فى الاكسس ولا يصعب عليك اى مشكلة
اطال الله فى عمرك ورزقك الصحة والعافية وبارك الله فى علمك ولا يحرمنا ابدا من ابداعاتك
جزاك الله كل خير
[هوية المالك] = " & [هوية المستثمر]
هذي النقطة الي كانت عايقتني لاني استخدمت الشرط هوية المالك وتوقفت بعدها وللم اربط بشرط اخر وهو هوية المستثمر
شكرا لك
وهذه طريقة مباشرة حسب مثالك :
Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("t1")
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs!itempercent = (rs!itemsale \ 100) * 70
rs!vol = rs!itemsale - rs!itempercent
rs.Update
rs.MoveNext
Loop
Me.Requery
End Sub
النسبة المئوية3.rar
تفضل
Dim x As Date
x = Nz(DLookup("dat", "tabl", "dat=[dd]"), 0)
If x = Me.dd Then
Me.t4.Requery
Me.t4.Visible = True
Else
Me.t4.Requery
Me.t4.Visible = False
MsgBox " التاريخ الذي اخترته غير موجود", , "تنبيه"
End If
122024.rar
ألاحظ (كثير) ممن يستخدمون أكواد آخرين القيام بـ "تنظيم" الكود على هواه وهذا تعد على "صناعة" هذا المبرمج فالبرمجة كالصناعة لها بصمتها وكثير من الأحيان يمكن التعرف على المبرمج من طريقة كتابته للأكواد.
الأدهى أنه يتجرأ ويقوم بالتعديل على هذه الأكواد وغالبا سيتسبب في حصول إخفاقات وفشل في إعطاء مخرجات صحيحة ستنسب لصانعها بعد تناقلها وكثرة التعديلات والمعدلين على الكود هذا إذا كان أمينا وأبقى على اسم المبرمج أعلى الكود.
الحل والنصيحة:
عليك أن تفتح موديولا خاصا بالأصل ولا تلمسه البتة ثم افتح موديولا آخرا يحمل اسمك وتذكر فيه المصدر وتستطيع استخدام نفس الدوال بتعديل اسم الدالة ولو بإضافة رقم 2 على نهاية الاسم.
واختصارا للوقت لا تقوم بالتعديل على كامل الدالة بل استدعيها في دالتك الجديدة وقم بالتعديل على مخرجاتها بما يناسبك ولا تنسى في موديول مستقل خاص بك.
ما دعاني لكتابة هذا الموضوع اطلاعي على شفرة للتفقيط من عمل أحد عمالقة المبرمجين شوهت تشويها كبيرا جدا لدرجة أني كرهت المواصلة في رؤية تلك الحالة من الفوضى والتشويه مع إزالة اسم كاتب صانع الشفرة الأصل.
الآن توجد قوانين بيئية تخالف المتسببين في أي تشويه بصري، فاعملوا بقوانينهم لشفراتكم أيضا.
أنا ( وأعوذ بالله من كلمة أنا ) ، لقيته في مديول عندي مع إلغاء جزئية الكسر العشري واستبدالها بالمطلوب 😂
وأدينا بنستنا الطفرة الجينية وإضافتها للمكتبة العامرة 😁