Foksh
-
Posts
2,155 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
78
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
شكراً للتوضيح ، تداخلت معي الأمور بعد البخور اللي استعملناه عشان الاستاذ ابو جودي -
بخرت والله ، وانا برضو استغربت ، وقلت بنفسي يمكن العمل مربوط بالديسك توب على العموم جزاك الله خير ، وما كنت أشكك في عملك ، ولكن كحالة استغربت بس
-
مداخلة لتصحيح الخطأ بعد اذن أستاذي @Eng.Qassim ، وصاحب الموضوع @imad2024 بعد تجربة المرفق وجدت ان حساب الفرق بين التاريخين خاطئ !! فارتأيت تعديل بسيط بعد إذنك طبعاً . التاريخ.accdb
-
أكيد طبعاً أستاذي الكريم ، شكراً للتوضيح
-
ملغي والله
-
لا يوجد وظيفة مباشرة تسمى COUNTIF في Access على حد علمي كما في برامج جداول البيانات الأخرى مثل Excel. ومع ذلك، يمكنك استخدام استعلام SQL لتحقيق نفس الغرض ، وهذا مثال بسيط في الاستعلام SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة'; وهذا مثال آخر من خلال الـ VBA :- Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Long Set db = CurrentDb Set rs = db.OpenRecordset("SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة';") recordCount = rs("RecordCount") rs.Close Set db = Nothing
-
عمل جميل جداً منك أستاذنا الكبير @ابو جودي ولكن واجهتني مشكلة غريبة ، ارفقتها في فيديو لتتضح ؛ هل من تفسير ؟؟ 2023_12_16_145730.zip
-
أحتساب تاريخ المباشرة على أساس عدد أيام الأجازة الممنوحة .
Foksh replied to أبو منتظر's topic in قسم الأكسيس Access
تفضل أخي ، إن كان ما فهمته صحيح جدول أنتهاء الأجازات.mdb -
ارسل مرفق بسيط اذا أحببت ، لنر أين المشكلة
-
مربعات النص في نموذجك غير مرتبطة في الجداول ( ليس لها مصدر سجلات ) جميع الحقول تعتمد في بياناتها على تحديث الحقل نهاية العمل. وسأعدل اللازم واوافيك بأقرب فرصة ، إلا إن سبقنا أحد الأساتذة ، ولهم جزيل الشكر سلفاً 😊
-
Mde
-
تفضل محاولتي اخي الكريم التاريخ (1).accdb
-
يبقى هشوف الكود وازبطه بس اوصل الكمبيوتر
-
أخي الكريم في أقرب فرصة ، لأني حالياً بعيد عن الكمبيوتر.
-
في حدث بعد التحديث للحقل to تاريخ نهاية العقد. و سيكون هكذا: Result= Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd") حيث result هو مربع النص الذي سيكون فيه الناتج ( منتصف المدة )
-
لأ ، #If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Sub TestSleep() ' انتظار لمدة 1000 مللي ثانية (واحدة ثانية) Sleep 1000 End Sub ضعي هذا الكود في بداية الأكواد ، واعذروني لعدم توافر جهاز كمبيوتر في الوقت الحالي لتطبيق الأكواد على المرفقات 😊
-
استبدلي بعذا الكود ، Private Sub button1_Click() ' تحديد اللون الأصفر لخلفية الزر Me.button1.BackColor = RGB(255, 255, 0) ' تحديد اللون الأصفر لخلفية الليبل Me.text1.BackColor = RGB(255, 255, 0) ' تحديد نص الليبل ليكون اسم الزر Me.text1.Caption = "button1" ' إعادة تعيين اللون والنص إلى الحالة الافتراضية بعد فترة زمنية قصيرة Me.Repaint DoEvents ' تمكين تنفيذ الأحداث الأخرى Application.Wait Now + TimeValue("0:00:01") ' تأخير لمدة ثانية واحدة Me.button1.BackColor = RGB(255, 255, 255) Me.text1.BackColor = RGB(255, 255, 255) Me.text1.Caption = "النص الافتراضي" End Sub أو راجعي هذه المشاركة لحل هذه المشكلة Sleep😊
-
اجعل في حدث عند التحديث لحقل ( to - ألى ) أن تكون قيمة مربع النص result في الأكواد التي ارفقتها لك 😊
-
للعلم فقط ، منتصف المدة حسب تواريخك هو 1/7/2023 وحالياً ليس لدي كمبيوتر ، سأحاول بأقرب وقت ممكن.
-
Private Sub button1_Click() ' تحديد اللون الأصفر لخلفية الزر Me.button1.BackColor = RGB(255, 255, 0) ' تحديد اللون الأصفر لخلفية الليبل Me.text1.BackColor = RGB(255, 255, 0) ' تحديد نص الليبل ليكون اسم الزر Me.text1.Caption = "button1" ' إعادة تعيين اللون والنص إلى الحالة الافتراضية بعد فترة زمنية قصيرة Me.Repaint Sleep 500 Me.button1.BackColor = RGB(255, 255, 255) Me.text1.BackColor = RGB(255, 255, 255) Me.text1.Caption = "النص الافتراضي" End Sub حيث Button1 = اسم الزر Text1 = اسم الليبل
-
استخدمة هذا السطر في حدث الزر للإصافة ، كتجربة. INSERT INTO zboon (name, phone) SELECT 'الاسم الجديد', 'رقم الهاتف الجديد' WHERE NOT EXISTS (SELECT 1 FROM zboon WHERE name = 'الاسم الجديد'); حيث :- Zboon = الجدول Name = اسم الحقل الخاص بالاسم phone = اسم الحقل الخاص برقم الهاتف وأكمل باقي التعديل حسب اسماء الحقول في النموذج
-
Result: Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd") Result: Format(DateDiff("yyyy", [from], [to]), "yyyy") & " years, " & Format(DateDiff("m", [from], [to]) Mod 12, "0") & " months, " & Format(DateDiff("d", [from], [to]) Mod 30, "0") & " days" Result_Days: Format(DateDiff("d", [from], [to]) Mod 30, "0") Result_Months: Format(DateDiff("m", [from], [to]) Mod 12, "0") Result_Years: Format(DateDiff("yyyy", [from], [to]), "yyyy") طبعا استبدل الحقول result, from ,to بالحقول الخاصة بك
-
كيف التخلص من الرسالة OLE server or ActiveX control?
Foksh replied to syrian_a's topic in قسم الأكسيس Access
أخي الكريم الواضح من الصورة ، أنه لا يوجد لديك مكتبة Outlook ، لإن المرفق يعتمد عليه ، التي عليها اشارة صح ✅ Microsoft Outlook xx.x Object Library * حيث xx.x رقم الاصدار باختلاف نسخة الأوفيس
-
أخي الكريم ، يجب ان تكون الصيغة التي تم حفظ المشروع فيها Accde وليس Accdb كما في الصورة احفظ المشروع هكذا Make ACCDE وطبعاً ، لازم تعمل باسوورد على الـ VBA
-
البحث في اكثر من حقل دون استخدام الاستعلامات
Foksh replied to مالك درويش ابو تيمور's topic in قسم الأكسيس Access
نقاط مهمة جدا ذكرها أستاذنا @شايب ، وكنت قد فكرت بها أثناء الرد ، ولكني توجهت لطلب الأخ فقط 😊
