Moosak

قاعدة البيانات بكبرها ما تفتح على الأكسس نسخة 365 😅

استخدم هذا الكود لربط الواجهة بالجداول في ال Back End : On Error GoTo ErrHandler '----------------------------------------------------------- ' File Dialog Code Starts '----------------------------------------------------------- Dim fd As FileDialog Dim filedialogPath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = ChrW("1581") & ChrW("1583") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1604") & ChrW("1601") & ChrW("32") & ChrW("1602") & ChrW("1575") & ChrW("1593") & ChrW("1583") & ChrW("1577") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") fd.InitialFileName = CurrentProject.path & "\ChatAppDB.accdb" fd.Filters.Clear fd.Filters.Add "Access DataBase", "*.accdb" If fd.Show = True Then filedialogPath = fd.SelectedItems(1) Else MsgBox ChrW("1604") & ChrW("1605") & ChrW("32") & ChrW("1578") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1576") & ChrW("1578") & ChrW("1581") & ChrW("1583") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1604") & ChrW("1601") Exit Function End If '----------------------------------------------------------- ' From Here Relinking Starts '----------------------------------------------------------- Dim path As String Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database path = filedialogPath Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & path tdf.RefreshLink End If Next MsgBox ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1578") & ChrW("1589") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1576") & ChrW("1606") & ChrW("1580") & ChrW("1575") & ChrW("1581") DoCmd.Close DoCmd.OpenForm "LoginF", acNormal Exit Function ErrHandler: MsgBox "Error Number : " & Err.Number & " / Error Description : " & Err.Description ولا تنس كتابة كلمة المرور مكان الأصفار هنا : Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000")

تقصد في الفورم ؟ التاريخ يهر عندي بشكل جيد .. ربما المشكلة في إعدادات اللغة والوقت الإقليمية في جهازك .. تأكد أنها عربي(اسم دولتك) ...

ما يفتح في الإصدارات الجديدة أخوي جعفر

تكتب اسم الدالة في منشئ التعبير هكذا : Calcdiffy(vdate1 As Date, vdate2 As Date) بعدها تقوم بوضع المتغيرات .. vdate1 و vdate2

تفضل أخي .. عملتها لك بشكل آخر عن طريق السب فورم .. وتعطيك نفس النتيجة 1234.accdb

تفضلي أختي .. الكود يعمل عند إغلاق النموذج وليس البرنامج .. test.rar

هذا بالضبط ما تفعله المعادلة .. في الصورة التي أرسلتها لك 3 أعمدة .. الأول هو الرابط الأصلي ... الثاني الرابط بعد الزيادة (بعد تطبيق المعادلة عليه ) ... الثالث الرابط بعد النقصان (بعد تطبيق المعادلة عليه ) .... أنت لن تحتاج الاستعلام المسمى ExampleQ .. فقد وضعته لك كمثال .. أنت ستشغل الاستعلام UpdateQ وستتعدل الروابط تلقائيا في الجدول ..

تفضل أخي العزيز .. منع حذف اول سجل.accdb

العفو أخي العزيز 🌹

اخترعت لك هذه الدالة 😁 Public Function ChangeImageName(FullPath As String, NumberPlus As Integer) As String Dim FileName As Integer Dim NewName As Integer FileName = CInt(Left((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), InStr((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), ".") - 1)) NewName = FileName + NumberPlus ChangeImageName = Replace(FullPath, FileName, NewName) End Function وظيفتها أن تقوم بزيادة أو تنقيص الرقم في اسم الصورة .. ( أنت تحدد الرقم بالزيادة أم النقصان 🙂 ) تضعها في استعلام تحديث .. وتضع مكان (تحديث إلى:) تحت حقل مسار الصور الدالة بهذه الصورة : ChangeImageName([Image];1) بحيث مكان الرقم 1 تضع الرقم الذي تريد زيادته ، وإذا بالقصان تضع (-1) مكان الرقم 1 .. وهذا مثال لما تصنعه هذه الدالة : (مرفق لك الملف ) ImagesCorrection.accdb

تفضل أخي أبو عبدالله .. 99.accdb

السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb

ما شاء الله عليك يا باش مهندس .. ما لاحقين عليك من كثر الأفكار والروائع اللي تتحفنا بها كل يوم 😅 الله يزيدك من علمه وتوفيقه ..

للأسف لن أتمكن من عمل نموذج خلال هذه الفترة فمنك العذر .. وسينبري لهذه المهمة خبراء المنتدى إن شاء الله 💪🏼

...

من قال ذلك ؟!! طبعا ممكن .. لا تيأس تحتاج إلى إضافة استعلام تحديث يبحث عن سيريال الكتاب ويحدث المجموع على حسب نوع الحركة دخول أو خروج . ويشتغل الاستعلام عند الضغط على زر الحفظ ..

أكيد طبعا أستاذنا الغالي @ابا جودى 😄

حياك الله وبياك جعفر 😄 🌹 بصراحة أحس بالأنس وانت موجود في المنتدى 👍🏼😁 وشكرا على النصيحة 🌹

هلا فعلا النتائج لم تتأثر بالمسافات الزائدة عندك حسب تجربتك؟ أنا كنت أفكر في دالة like أو دالة Trim كحلول لهذه المشكلة ..

كيف جعلته يضيف المسافات تلقائيا أستاذي العزيز وما الحكمة من ذلك ؟

شكرا لك أبا جودي .. أفادتني جدا في مشروعي القادم بإذن الله 😉

حلال عليك أخي .. هذي سرقة جائزة 😅 نعم صحيح 100% 👌🏻 ، نِعمَ ما فعلت 👍🏻

ومثل ما قالوا : الناس أذواق .. الترتيب والتنسيق ممتاز .. الألوان محتاجة حبتين تعديلات .. وعشان تاخذ فكرة عن الألوان المتناسقة في تصميم واجهات المستخدم بشكل عام أنصحك تدخل على موقع pinterest.com أو في بحث صور جوجل وتكتب ( تصاميم واجهات المستخدم أو UI Design inspiration ) وبتظهر لك الكثير من الأشكال والألوان الجميلة اللي ممكن تاخذ منها الفكرة والألوان .. مثال : https://www.pinterest.com/search/pins/?rs=ac&len=2&q=design ui desktop&eq=design UI desk&etslf=5716&term_meta[]=design|autocomplete|0&term_meta[]=ui|autocomplete|0&term_meta[]=desktop|autocomplete|0 تحياتي

تم الأمر أخي الحبيب ... عدلت الاستعلام وصار اسمه TAB_RMZQ وغيرت اسم العمود المحسوب الى TOTAL وجعلت هذا الكويري هو مصدر بيانات النموذج FRM_RMZ وأضفت له حقل ال TOTAL هكذا: MusndWZwayid 004.accdb