Accessna

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

وهذه مساهمة مني .. آمل قبولها بصدر رحب Filter2.rar

وجدت لكم عبر النت ما يلي : مثالان في نموذج واحد أحدهما للحصول على الإعدادات الإقليمية من خلال Class والآخر لتبديل تنسيق التاريخ القصير من خلال Module LocaleInfo.rar

شكرا أخي إكسير على المثال وأفكارك الطيبة لقد قمت بالإستفادة من أفكاركم في المثال وعملت كود آخر مختصر ، يبدو لي أنه يؤدي نفس الغرض فقط نقطة واحدة غير متأكد منها وهي الحروف المقبولة في العناوين والتي حصرتها أنا بالكود للحروف : A-Z و a-z و 0-9 و _ Checkmail2.rar

شكرا لك أخي عمار على التحية ولكن يبدو محمد لا يريد الحل مني ومثل ما قلت لكم أن المحبة لم تأتي بعد فهي مؤجلة إلى أجل غير مسمى على كل حال آمل من محمد أن لا يستخدم الكود كما رفض قبوله :D

لا يمكن عمل زووم من داخل التقرير ولكن يمكن عمله هكذا DoCmd.OpenReport "ReportName", acPreview DoCmd.RunCommand acCmdZoom50 علما أن المقاسات أو النسب المتوفرة لعمل زووم كالتالي : Constant Value acCmdZoom10 244 acCmdZoom100 240 acCmdZoom1000 482 acCmdZoom150 239…

أنا مع اقتراح الأخ ايهاب رأيت برنامج عربي كرت الصنف يحتوي على وحدتين وهناك حقل للعلاقة بينهما كأن نقول الوحدة الأولى = 12 من الوحدة الثانية ويمكنك إلغاء الإرتباط بحقل نعم / لا وفي كل العمليات التي تتم على الصنف ستضطر دائما اختيار الوحدة الي مو متأكد منه هل في …

شكرا أخي القحم .. توني فاهم "ليش" ماحد راضي يشاركني في موضوعي وأنا كنت حاسب أنها محبة مؤجلة لم تأتي بعد :D لقد كتب في أحد المواضيع هذا الكود : Function LastVisit(V1, V2, V3, V4, V5) As Variant Dim V(1 To 5) Dim I As Byte Dim Max V(1) = V1: V(2) = V2: V(3) = V3…

ما تعودت أرفع مواضيعي ولكنه إلحاح السائل *-)

لا أعلم أخي هل المثال مختلف عن برنامجكم ؟ إذا كان مطابق فالمفترض عند تطبيقه تماما تختفي المشكلة لقد نوعت في السجلات فهناك قيم Null كالتالي : - في أول زيارة - في وسط الزيارات - في آخر زيارة - لكل الزيارات والنيجة سليمة 100% ، فأنا لن أتركك حتى تنجح معك فقط حاول…

بارك الله فيكم جميعا أعتقد القحم يقصد .dat وليس .bat . أما أخي مصلح أعتقد أن ما يفكر به هو هاجس حماية البيانات . وبدوري أقول أن البيانات إن لم تكن تشفر فاستخراجها ممكن ولو أخذت أحيانا بعض الوقت للتعرف على تركيبة الملف وخصوصا مع وجود البرنامج . ولكن مع هذه المل…

بحثت عنه ولم أجد له جوابا والحاجة له لاختصار كتابة الأكواد فمثلا لو كان لدينا مجموعة متغيرات كالتالي : V1, V2, V3 .... فأستطيع أن أصل إلى قيمها عن طريق استخدام تكرار كالتالي : For I = 1 to 3 msgbox VarVal("V" & I) Next I طبعا ليس هناك دالة بهذا الإسم وإنما هو …

يبدو أن لا حل للمشكلة هذه وصلة لموضوع للأخت زهرة تنصح بأن يكون الرنامج على السي "C:" ولكن يبدو من الردود اللاحقة أن المشكلة لازالت قائمة http://www.hiarab.org/showpost.php?p=48100&postcount=1 وهذه وصلة لرد لأخ أبو هادي يخبر فيه عدم توصله لحل ويرجع المشكلة للأد…

استلمت رسالة تخبرني أن المشكلة لا زالت قائمة ويبدو أن "أبو ياسر" زهق أو استحى يخبرني فعلا أن التواريخ هي أصعب أنواع البيانات في التعامل معها على كل حال هذه الدالة للمرة الأخيرة كما يبدو لي Function LastVisit(V1, V2, V3, V4, V5) As Variant Dim V(1 To 5) Dim I A…

مثال جميل أخي مصلح ويبدو مع بساطته أنه يصلح لكل التقاويم حتى اللي ما اخترعوها إلى الآن

تم التعديل على الدالة Function LastVisit(V1, V2, V3, V4, V5) As Variant Dim Max Max = Null If Not IsNull(V1) Then Max = V1 If Not IsNull(V2) Then If V2 > Max Then Max = V2 If Not IsNull(V3) Then If V3 > Max Then Max = V3 If Not IsNull(V4) Then If V4 > Max Then…

طبعا يالقحم طريقتك ذكية جدا بس لا تنسى أنك تظهر الناتج بشكل تاريخ ، والتاريخ لا يوجد به شهر صفر حيث مدة شهر صفر سوف تظهر واحد وهكذا حتى مدة 11 شهر والتي ستظهر 12 عليه احذف شهر وليس ثلاثين يوم ولتضمين يوم البداية في المدة أضف يوما بحث لا يوجد عمر صفر أبدا حيث أ…

الزين ما يجي بالساهل :D Ages.rar

إثراء للموضوع ، حل آخر بعمل دالة تأخذ الخمس زيارات وترجع أكبرها قيمة Function LastVisit(V1, V2, V3, V4, V5) As Variant Dim Max Max = Nz(V1, 0) If Nz(V2, 0) > Max Then Max = V2 If Nz(V3, 0) > Max Then Max = V3 If Nz(V4, 0) > Max Then Max = V4 If Nz(V5, 0) > Max…

جرب هذا الإجراء Sub GetPeriod(ByVal stDate As Date, ByVal enDate As Date, _ yy As Integer, mm As Byte, dd As Byte) Dim TempDate As Date Dim m As Long 'للتبديل بين البداية والنهاية حال البداية أكبر من النهاية If stDate > enDate Then TempDate = stDate stDate = e…