محمد احمد لطفى

أستأذنك استاذى @ محمد أبوعبدالله هناك خطأ فى حساب عدد الاسابيع حساب الاسابيع يبدأ من 1-1-1990 و ينتهى فى 30-8-2016 ممكن عمله مثل عدد الاشهر اى يحسب ما قبل 1-9-2016 فقط والخطا من عندى لم اصل المعلومة كاملة 😅 وجزاك الله خيراً

أستاذى @ محمد أبوعبدالله المرفق لا يعمل بطريقة صحيحة أولا حساب الاسابيع يبدأ من 1-1-1990 و ينتهى فى 30-8-2016 حساب الاشهر يبدأ من 1-9-2016 و مستمر الى ما يشاء أو طرأ تغيير و مثلا عند حساب الفترة من 1-2004 و كان التاريخ 1-1-2020 يكون حساب الاسابيع من 1-2004 حتى 30-8-2016 تقريبا 648 اسبوعا و حساب الاشهر من 1-9-2016 حتى 1-1-2020 تقريبا 38 شهرا وجزاك الله خيراً

أستاذى @ محمد أبوعبدالله عدد الاشهر و الاسابيع هو الفرق بين date1 و date 2 عند حساب الاسابيع يحسب حتى فترة 30-8-2016 ولا يحسب الاسابيع التى بعد الفترة و يحسب عدد الاشهر من تاريخ 1-9-2016 حتى نهاية التاريخ فى date2 بمعنى اذا 1 - اذا كان date1 = 1-2004 date2 = 1-2016 يتم حساب عدد الاسابيع فقط 2 - اما اذا كان date1 = 1-2004 date2 = 12-2018 يتم حساب الاسابيع بين 1-2004 حتى 30-8-2016 فقط و يتم حساب عدد الاشهر بين الفترة 1-9-2016 حتى 12-2018 3 - اذا كان date1 = 1-2019 date2 = 12-2020 يتم حساب عدد الاشهر فقط بين الفترة 1-2019 حتى 12-2020 بحيث هناك عمود لعدد الاسابيع و عمود لعدد الاشهر وجزاك الله خير

و قم بتغيير CurrentProject.Path الى مكان المجلد الذى تريد فتحه مثل Shell "explorer.exe" & " " & "C:\Program Files", vbNormalFocus برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد (2).mdb

استخدم Shell "explorer.exe" & " " & CurrentProject.Path, vbNormalFocus

السلام عليكم ورحمة الله وبركاته أريد فى هذا الالاستعلام 1 - عمود الاسبوع يحسب عدد الاسابيع التى قبل 1-9-2016 فقط 2 - عمود شهر يحسب عدد الاشهر بداية من شهر 1-9-2016 و المقصود بالتاريخ عمود date2 بحيث لا يتم التداخل بين الفترتين وجزاكم الله خيراً ضريبة.mdb

اضغك كليك يمين فى اى مكان فاضى فى مكان الجداول او الاستعلامات او النماذج و منها ممكن تختار اظهار الكائنات المخفية

أستاذى @ابو عارف اذا كان الخلية المراد نقلها تنقسم الى اكتر من خلية مثل الصورة المرفقة عند استخدام ="mobile-info" يتنقل كلى البيانات بالخط الاحمر فى خلية واحدة كيف يمكن نقل رقم الموبايل <h1 itemprop="name">0123456</h1> فى خلية السنة <h2>2020</h2> فى خلية النوع <h2>Work</h2> فى خلية و جزاك الله خيرا

جزاك الله خيرا أستاذى @ابو عارف

ضع فى حدث عند التحميل Me.Caption = "ضع النص " و فى حدث عند الوقت Me.Caption = Mid(Me.Caption, 2, _ (Len(Me.Caption) - 1)) & Left(Me.Caption, 1) عند الفاصل الزمنى لعدد الوقت (100)

للرفع ولكى يتتضح الامر مطلوب نقل القراءة الحالية لخانة الموبايل

شكرا استاذى @ابو البشر محتاج بس نقل اول قراءة حالية فى اول فاتورة علشان مش هاعرف انفذها من خلال صفحة الفاتورة وجزاكم الله خيرا

السلام عليكم ورحمة الله و بركاته فى هذا النموذج بالضغط على حرف F يعرض فاتورة الكهرباء أريد نقل القراءة الحالية فى اول فاتورة الى خلية الموبايل وجزاكم الله خيرا كهرباء.mdb

اللهم اغفر لها و ارحمها و أدخلها فسيح جناتك إنا لله و إنا إليه راجعون

ضع فى تنسيق حقل الترقيم التلقائى 10000 فقط

بس كده الفرز على النموذج بس مش الاستعلام شاهد المرفق XX.accdb

هل هذا ما طلبت 123: Replace([Name],"x","Z")

Dim frmCurrentForm As Form Set frmCurrentForm = Screen.ActiveForm MsgBox "Current form is " & frmCurrentForm.Name يعطى اسم النموذج لا أعرف كيفية ظبط مع كود الاخفاء لعل أحد من أساتذتى يساعدك Forms!FA1!m.Visible = False

تفضل New Microsoft Access قاعدة بيانات (1).accdb

هل هذا ما تريد New Microsoft Access قاعدة بيانات.accdb

برنامج رائع أستاذى / @محمد صالح

حسب اسم الموضوع و لأنه لا يوجد مثال مرفق للعمل عليه لتغيير المسار من D:\Photo\Worker الى مسار البرنامج CurrentProject.Path & "\Worker"

هل هذا كما طلبت New Microsoft Access Database.accdb