
ناقل
الخبراء-
Posts
654 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
6
ناقل last won the day on أغسطس 4
ناقل had the most liked content!
السمعه بالموقع
515 Excellentعن العضو ناقل

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
مبتدئ في الأكسس ( أصبر علي )
اخر الزوار
بلوك اخر الزوار معطل ولن يظهر للاعضاء
-
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
تمت العملية بنجاح تام ودون تدخل ........ بارك الله فيك وفي عملك ..... هذه الاداة تريحنا في حالة الارقام الكثيرة -
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
اشكرك اخي الكريم ... بارك الله فيك جاري التجربة واعلامك بالنتيجة ... ولكن يجب علي اولا حذف الواتس وتنصيبه مرة اخرى لاتلافى المشكلة السابقة لدي -
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
جزاك الله خيرا ... يبدو المشكلة لدي -
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
-
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
صدقت ... عارف طريقة المرور على السجلات .... ولكن المشكلة في برنامج الواتس تظهر رسالة ولابد التدخل يدويا ... حاولت برمجيا ولكن يبدو اني وقتها كنت احتاج احتسي فنجان قهوة حتى اروق وافكر صح ... احاول اليوم ان شاء الله تعالى وربنا ييسر وسبب سؤالي ان استاذنا @Foksh اعتقد لم يضمن الاداة في تحديثه الجديد مرسال -
⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐
ناقل replied to Foksh's topic in قسم الأكسيس Access
بارك الله فيك .... اداة جميلة .... هل يمكن تطويرها لمراجعة مجموع ارقام مسجلة في جدول مثلا ..... يقوم بالمرور عليها ووضع علامة صح للارقام التي لديها واتس شكلي عقدتها .... هههههههه -
مطلوب تصفية قائمة : اخفاء بند عند اختيار بند آخر محدد
ناقل replied to ابوخليل's topic in قسم الأكسيس Access
جرب مع تغيير نوع مصدر الصف الى قائمة وتعديل مسمي الكمبو لديك Private Sub cmb_mjal_Enter() Dim currentValue As String currentValue = Nz(Me.cmb_mjal.Value, "") Select Case currentValue Case "فردي1", "فردي2" Me.cmb_mjal.RowSource = "فردي1;فردي2;شامل1;شامل2" Case "زوجي" Me.cmb_mjal.RowSource = "زوجي;شامل1;شامل2" Case Else ' لو لم يتم اختيار شيء بعد، يظهر الكل Me.cmb_mjal.RowSource = "فردي1;فردي2;زوجي;شامل1;شامل2" End Select End Sub -
ادارج ملاحظة في كشف الحضور والانصراف تفيد ان الموظف في اجازة
ناقل replied to SAROOK's topic in قسم الأكسيس Access
-
شاهدت في المنتدى برنامج حماية شبيه لما طلبت اعتقد للاستاذ @Barna بهذه الصورة ..... ابحث عنه في المنتدى .... ,انا ابحث عنه اذا وجدته ادرجه هنا لك ...
-
ممكن كده Public Function GetPeriod(dt As Date) As String If Hour(dt) < 12 Then GetPeriod = "الصباح" Else GetPeriod = "المساء" End If End Function
-
جرب هذه الدالة IIf(Hour([chekin]) < 12, "الصباح", "المساء") لم اجربها ...