ِAbo_El_Ela

بحثت عن وحدة نمطية لحساب الفرق بين تاريخين 

ووجدت لكني لم اعرف ان اطوعها كما اريد 

فحاولت ان انشئ وحدة من تصميمي لتنفيذ ما اريد و لكني مازلت مبتدئ و الفشل يلاحقني في كل مكان 😂😂

و بإختصار 

فكرتي كلآتي 

طرح تاريخين من بعض 

و بدأت بطرح السنين 

فما الخطأ في الصورة

 Function DatDiffY(Vdate1 As Date, Vdate2 As Date) As Integer
   If Not (IsDate(Vdate1)) Then Exit Function
   If Not (IsDate(Vdate2)) Then Exit Function
Dim year1 As intger
Dim year2 As intger
Dim month1 As intger
Dim month2 As intger
year1 = Int(DatePart("yyyy", Vdate1))
year2 = Int(DatePart("yyyy", Vdate2))
month1 = Int(DatePart("mm", Vdate1))
month2 = Int(DatePart("mm", Vdate2))
If month2 < month1 Then
DatDiffY = (year2 - year1) - 1
Else
DatDiffY = year2 - year1
End If
End Function

و شكرا لاساتذتي الكرام

اول خطأ في كلمة انتجر

13 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

الدوال نوعين :

اولا: نوع نحن نعمله ، وهناك نوعين منهم:

1. كل كود "حدث" في الاكسس ، هو دالة ، وهذه الدوال لها متغيرات ثابته ، لا يمكنك تغييرها ،
2. دوال نحن نعملها ، سواء في وحدة نمطية مستقلة ، او في كود النموذج او التقرير ، وهذه يمكن ان يكون بها متغيرات ،

 

ثانيا: دوال تنادي مكتبات الوندوز/نظام تشغيل الكمبيوتر:

الاكسس او اي برنامج آخر ، يقع تحت مظلة نظام تشغيل الكمبيوتر ، ومقدرة/عمل هذه الدوال تبدأ من بداية تشغيل الكمبيوتر الى إغلاقه (فكر بها كأنها "حدث" في نموذجك) ، وبعض هذه الدوال عندها مقدرة تفوق/خارج مقدرة الاكسس (مثل التخاطب والتحكم بالاجهزة المرتبطة بالكمبيوتر) ، وهذا كان قصد @Eng.Qassim في شرحه في مشاركة 🙂

 

جعفر

افادكم الله و جعلكم الله عونا لطالبي العلم 

اشكرك استاذي الغالي 

jjafferr

19 دقائق مضت, Eng.Qassim said:

باختصار شديد اخي العزيز ...

في بعض الاحيان نحتاج الى عمليات حسابية معينة لايستطيع الاكسس القيام بها لوحده (او قل حسبما متوفر عنده )

لهذا نلجأ الى عمل دوال وظيفتها القيام بتلك المهمة ..وهذه الدالة يقوم بتنفيذها معالج الحاسوب وليس الاكسس..ولكي يقوم المعالج بهذا الدور يجب تعريف المتغيرات التي نحتاجها حسب نوع البيانات ليتم حجز مكان لها في الذاكرة

اما السطر الاول فاسم الدالة نقوم باستدعائه من اي مكان في البرنامج... وكاننا نقول لها(الدالة) خذي ايتها الدالة تلك التواريخ ومرريها داخل الباراميتر (التي بين القوسين) حتى يتم معالجتها داخل اكواد الدالة

هناك الكثير من الشروحات للاخوة الاساتذة في المنتدى حول هذا الموضوع...بس يحتاج شوية مذاكرة واي شيء مش فاهمو اسال عنه

والله اعلم

اشكرك جزيل الشكر استاذي العزيز 

وضحت الفكرة 

4 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

1. اذا تم مناداة الدالة (من الاستعلام مثلا) ، فعادة يتم ارسال قيم اليها ، حتى تقوم الدالة بحساب المطلوب ،

وعليه ، الاكسس لا يسمح لك بإرسال بيانات من نوع مختلف ،

2. ولكن الدالة تحتاج الى متغيرات اخرى لتقوم بعملها ، لذا نعرّف هذه المتغيرات داخل الدالة 🙂

كما انك تستطيع ان لا تُعرّف المتغيرات كما في رقم #1 ، بل تقوم بتعريفها داخل الدالة ، ولكن حينها تقع عليك مسؤولية التأكد من ان نوع البيانات صحيحة 🙂

 

فدع الاكسس يقوم بعمله ، وهي الطريقة الصحيحة 🙂

 

جعفر

اشكرك استاذي الغالي 

up

عندي سؤال و برجاء الرد 

لية عند عمل دالة يتم تعريف متغيرات لها في السطر 

و يتم ايضا تعريف متغيرات اخري دالخل الدالة 

علي سبيل المثال في الصورة 

معلش انا لسة بتعلم من حضراتكم 

تسلم استاذي العزير 

اشتغلت و الحمد لله 

و كل عام و انت بخير 

18 دقائق مضت, احمد الفلاحجي said:

السلام عليكم

اخى @ABOLO2 هى مثل النماذج فالحقل الذى تريده فالتقرير الرئيسى فمصدر عنص التحكم يساوى اسم التقرير الفرعى ! اسم الحقل بالتقرير الفرعى

ده مثال على النماذج اطلع عليه وان شاء الله تفهم الطريقه

بالتوفيق

Database 3.accdb 412 kB · 5 downloads

تسلم استاذي العزيز مظبوط جدا و بيعد مظبوط 

بس لما يكون التقرير الفرعي لا يحتوي علي سجلات  بيطلع كلمة خطأ 

و انا عايز لما يكون التقرير الفرعي لا يحتوي علي سجلات يديني صفر 0

عند تقرير رئيسي (بيان حالة وظيفية ) و يحتوي علي تقرير فرعي (الانتدبات الخارجية )

كنت عايز ازاي اعرف اعد عدد سجلات الانتدابات الخارجية الموجودة في التقرير الفرعي (الانتدبات الخارجية ) 

اللي انا عملتة 

في التقرير الفرعي و ضعت مربع نص [=count(*)]  علشان اعد سجلات التقرير الفرعي 

و في التقرير الرئيسي (بيان حالة وظيفية ) و ضعت مربع نص (بياخد بياناتة من مربع النص الموجود في التقرير الفرعي ) و لكن 

لما بفتح التقرير الرئيسي بيظهر في مربع النص خطأ كما في الصورة الرفقة 

ايه الخطأ اللي انا عملتة او لو فية طريقة تانية 

كل سنة و انتم جميعا طيبين و بخير 

36 دقائق مضت, عمر ضاحى said:

ممكن ترجمه للسطر ده ^_^

الكود شغال 

و مستني مع حضرتك الترجمة 

21 دقائق مضت, احمد الفلاحجي said:

من خصائص الحقل كما بالصوره

بالتوفيق

شكرا جزيلا استاذي الغالي 

و كل سنة وحضرتك طيب 

شكرا هو المطلوب

عندي حقل textbox داخل النموذج بعد الكتابة فية و الضغط علي زر enter 

المؤشر لا ينتقل الي الحقل التالي و لاكن ينزل سطر داخل textbox 

فكيف علاج تلك المشكلة 

اشكرك Moosak 

استاذي العزيز 

شكرا استاذي د.كاف يار 

هو المطلوب بالضبط 

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

بدل ما اتحكم بها بطريقة فردية لكي حقل علي حده 

في 15‏/3‏/2022 at 21:41, أبو عبدالله الحلوانى said:

كلنا ذلك الرجل 

هل فكرة التنسيق مناسبة لك ام مازلت بحاجة للتعديل علي الفانكشن 

استاذي العزيز ارجو منك 

اضافة التأكد من ادخالات المستخدم مناسبة لتنسيق الخلايا للوحدة النمطية

تمام انا عارف دا 

بس انا عايز دا يتم من خلال وحدة نمطية اوتوماتيكيا 

استاذي ابوعبدالله الحلواني 

كان رد علي احد من الاخوه اللي كان عايز وحده نمطية تتأكد من عدم ترك المستخدم حقول فارغة 

و دا رابط الموضوع 

https://www.officena.net/ib/topic/113576-حقل-اجباري-في-الاكسس/#comment-684541

وحدة نمطية للتأكد من الإدخالات التي يدخلها المستخدم مطابقة لتنسيق الخانات 

بمعني اذا كان التكيست بوكس 

تنسيقة تاريخ فتتأكد الوحدة النمطية من ادخال المستخدم اذا كان تاريخ ام لا 

تسلم استاذي العزيز 

هو المطلوب 

عندي كومبوبوكس يعرض عدد 2 عمود 

الكومبوبوكس يعرض العمود الاول و يخفي العمود الثاني 

كيف اسجل قيمة العمود الثاني في متغير من نوع tempvar 

كتبت الاتي 

TempVar!EmpNameTemp=Me.cbo123.Column2

و لكن لم تصلح 

اثقلت عليك استاذي 

و لكن اعذرني 

فأنا احاول لاتعلم 

للرفع

استاذي العزيز أبو عبدالله الحلوانى 

انا اثقلت عليك من كثرة اسئلتي 

و لكن استحملني لانها هتفرق معايا كتير 

و حاولت وفشلت 

هل من الممكن ان اجعل هذة الوحدة تتمكن من التأكد اذا كان تنسيق الخلية تاريخ 

تتأكد من اذا كان الادخال في الخلية تاريخ ام لا 

الف مبروووووك استاذ موسي 

من نجاح الي نجاح ان شاء الله 

جعلك الله عونا لكل طلاب العلم 

اشكرك شكرا جزيلا استاذي العزيز 

وصلت الفكرة 

و علي فكرة انا صعيدي بردك 😂

تسلم استاذي الجليل

للرفع