ابوحمود

إضافة بسيطة في دوال التاريخ والوقت : الدالة NOW() تعيد التاريخ والوقت والفرق بينها وبين دالة DATE() أن الأخيرة تعيد التاريخ فقط . DATE$ تعيد تاريخ هجري بهذا الشكل : 10-15-1422 شهر-يوم-سنة Time$ تعيد الوقت محذوفاً منه رمز صباحا (ص) أو مساءً (م) الدالة DateAdd ي…

قصدت دالة Filter في هذا السطر : NeatSplit = VBA.Strings.Filter(varItems, Delimiter, False) ولك تحياتي

بالنسبة للنماذج والتقارير إذا كانت خالية من الوحدات النمطية فهو أسرع لها في التحميل ، طبعا السرعة الآن قد لا يلاحظ الفرق فيها بشكل مؤثر . افتح أحد النماذج لديك التي لا تحتوي على وحدة نمطية افتحه في عرض التصميم ثم أظهر الخصائص ثم في صفحة التبويب غير ذلك تجد خاص…

وجدت دالة يمكنها استبدال أي كلمة في عبارة وقمت ببعض التعديل عليها لتشمل جميع الكلمات في العبارة : أضف الدالة للوحدة النمطية الخاصة بالنموذج : Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) Dim vSearchLine As String, found A…

1- في جدول معلومات العميل حول رقم العميل إلى حقل ترقيم تلقائي مفتاح أساسي . 2- وفي جدول طلبيات العميل حول رقم العميل الى رقم صحيح طويل مفهرس مع السماح بالتكرار واعمل ذلك في كل الجداول التي يرد فيها حقل رقم العميل . 3- احذف اسم العميل من كل الجداول ماعد جدول مع…

للفائدة : http://www.vb4arab.com/vb/showthread.php?s...=&threadid=3042 وللجميع التحية

الأخ عامر جوز آمل الاطلاع على هذا الموضوع والمشاركة إذا كان لديكم حل للمشكلة . http://www.arabteam2000.com/vb/showthread....p?threadid=7075 ولك تحياتي

الأخ الكريم وفقك الله لكل خير على هذه الدعوات الطيبات . Dim القيمة_المعادة القيمة_المعادة = DLookup("[SUSPECIANTIDNO]", "BLACKLIST", _ "[SUSPECIANTIDNO]='" & Me![AppID] & "'") If Not IsNull(القيمة_المعادة) Then MsgBox "النص موجود" أي حقل : يعني ضع اسم اي حقل م…

الأخ طالب علم اليك هذا الكود وهو أفضل من سابقيه بلا شك وقد كانت فيه مشكلة قام الأخ عامر جوز في منتدى الفيوجل بيسك بحلها جزاه الله خيرا : ضع الدالة التالية في الوحدة النمطية الخاصة بالنموذج : Private Function NeatSplit(ByVal Expression As String, _ Optional ByV…

الأخ عامر جوز وعليكم السلام ورحمة الله حرم الله وجهك عن النار . لقد تعبت في حل هذه المشكلة ولم استطع . وقد افدتني هنا فائدتين لكيفية استخدام الدوال عند التعارض والثانية حل المشكلة زادك الله علماً . ولكن لي رغبة أن تشرح عملها إن تيسر لك ذلك . وفقك الله كل خير و…

اكتب الكود كاملا ليسهل مراجعته . ولك تحياتي

الأخ essam rabea لقد اطلعت على القاعدة ولم استطع حل المشكلة وقد نسيت أن أكتب ردي هنا فعذراً . ولك تحياتي

الأخ fahadam الأخ طالب علم2002 أشكركما على تفضلكما بالرد وفقكما الله كل خير . الأخ طالب علم2002 بخصوص ماذكرته فلا علاقة له بما طلبته . توضيح من أحد الكتب : دوال API موجودة في ملفات DLL خارجية بالنسبة لبرامجك ، يجب أن تعلن عن دوال API والملفات التي تحتويها في ق…

لا يمكن الاستيراد من قاعدة أحدث . هل أنت بخل علينا بالقاعدة وإلا أيش :rolleyes: ولك تحياتي

في رأيي ما ذكره الأخ علي الشهري هو الأسهل والأفضل وإن كان الكود الذي ذكره الأخ 5060 يؤدي الى نفس النتيجة ولكن مادام يمكن الوصول الى المطلوب بدون كود فهو أفضل . وللجميع التحية

لا لم يصاني شيء تأكد من البريد الصحيح . H_H123@Hotmail.com أنسخه وأزل الكلمة قبله والنقطتين بعد اللصق . ولك تحياتي

لم تقل هذا من البداية . وما طلبته لا أعرف جوابه . ولك تحياتي

استخدم دالة المجال DLookup : Dim القيمة_المعادة القيمة_المعادة = DLookup("[أي حقل بالجدول]", "اسم الجدول", _ "[اسم الحقل المطلوب البحث فيه]='" & Me![اسم مربع النص على النموذج] & "'") If Not IsNull(القيمة_المعادة) Then MsgBox "النص موجود" مع أهمية أن تذكر اسم ا…

أولا : بداية طيبة أعانكم الله وسدد خطاكم . ثانياً : اقترح أن تبدؤا بالطريقة الأولى وهي الشرح في المنتدى وبعد نهاية كل قسم يوضع مثال وإن رأيتم جمع دوال النوع في مستند وور مضغوط لمن يرغب في تحميله . ومن فوائد هذه الطريقة : 1- أن الدوال تعرض جزء جزء وهذا يفتح باب…

لأخ محمود إبراهيم كلامك صحيح فإذا جعل في المربع علامة صح ومعناها اعرض النماذج في المرة القادمة وعند التشغيل القادم يتأكد البرنامج من قيمة عرض_النماذج فإذا وجد أنها تساوي -1 وهي True وضع علامة صح في المربع فمعناها أن المستخدم يرغب في عرضها في المرة القادمة والن…