Foksh
-
Posts
3015 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
117
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
ليس بالتأكيد ، ولكن عن تجربتي مع ويندوز 11 والعمل على آكسيس واجهت بعض المشاكل ومنها ما ذكرت ( الخطوط في التقارير ) ، واضطررت للعودة إلى ويندوز 10 ووجدته الأكثر استقراراً في العمل على بيئة آكسيس.
- 1 reply
-
- 1
-
-
تمثيل كشف بيان عروض الأسعار عبر الاكسيس ومفاضلة الاسعار
Foksh replied to Abdelaziz Osman's topic in قسم الأكسيس Access
أخي الكريم سأحاول فهم واستيعاب مطلبك ، وتقديم حل لك بأقرب وقت ممكن. -
لا مشكلة في إنك تحولها ، أو تتركها دون تحويل ، هي الفكرة فقط في حال التطوير والتعديل فإنك تفقد هذه الصلاحية اذا قمت بتحويلها 😊
-
لا أزايد على خبرة الأستاذ @jjafferr ، ولكن يبدو أن (.) سقطت سهواً في المديول mod_ConvertToaccDE استبدله بهذا الكود ، فقط . Option Compare Database Option Explicit Public Function ConvertToaccDE(sourcedb As String, targetdb As String) Dim accessApplication As Access.Application Dim extn As String extn = db_Name_n_Extension(sourcedb) If Right(targetdb, 1) <> "\" Then targetdb = targetdb & "\" End If targetdb = targetdb & extn Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Set accessApplication = Nothing End Function Public Function db_Name_n_Extension(db_name_n_path As String) As String Dim db_Extension As String Dim db_name As String db_Extension = Mid(db_name_n_path, InStrRev(db_name_n_path, ".") + 1) 'accdb or mdb db_name = Mid(db_name_n_path, InStrRev(db_name_n_path, "\") + 1) 'abc.accdb or abc.mdb db_name = Mid(db_name, 1, Len(db_Extension)) 'abc. If db_Extension = "accdb" Then db_Name_n_Extension = db_name & ".accde" ElseIf db_Extension = "mdb" Then db_Name_n_Extension = db_name & ".mde" End If End Function
-
شكراً للتوضيح ، تداخلت معي الأمور بعد البخور اللي استعملناه عشان الاستاذ ابو جودي
-
بخرت والله ، وانا برضو استغربت ، وقلت بنفسي يمكن العمل مربوط بالديسك توب على العموم جزاك الله خير ، وما كنت أشكك في عملك ، ولكن كحالة استغربت بس
-
مداخلة لتصحيح الخطأ بعد اذن أستاذي @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 = اسم الحقل الخاص برقم الهاتف وأكمل باقي التعديل حسب اسماء الحقول في النموذج
