-
Posts
2,309 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
85
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
وبارك بك أخي الكريم ،
-
استبدل الكود في زر الحفظ بهذا الكود ، تم انشاء المتغير حسب طلبك . Private Sub ad_Click() On Error Resume Next If IsNull(Me.xc) Then MsgBox "الرجاء إدخال البيانات", vbCritical, "خطأ في الإدخال" Me.Undo Else Dim Date_P As Variant Date_P = dats.Value Dim Foksh As Variant Foksh = Date_P Me.da_d = Me.qqs Me.kk = 1 On Error Resume Next DoCmd.SetWarnings False DoCmd.RunCommand acCmdSaveRecord DoCmd.RefreshRecord DoCmd.OpenQuery "car_b", acViewNormal DoCmd.OpenQuery "car_c", acViewNormal DoCmd.OpenQuery "dell_subcar", acViewNormal DoCmd.OpenQuery "dman_rly", acViewNormal DoCmd.RunCommand acCmdSaveRecord MsgBox "تم حفظ السجل بنجاح", vbInformation, "نجاح العملية" Me.dats.Value = Format(DateAdd("d", 1, Date_P), "dd/mm/yyyy") DoCmd.Close DoCmd.OpenForm "enar_dman", acNormal Forms("enar_dman").Controls("dats").Value = Format(DateAdd("d", 1, Foksh), "dd/mm/yyyy") End If End Sub
-
طلب مساعده في نقل باليانات من النموذج الرئيسي الى جدول فرعي
Foksh replied to imad2024's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته ، جرب هذا التعديل أخي الكريم . طبعاً تم اجراء بعض التعديلات والإستغناء عن استعلام التحديث وتحويله إلى SQL في زر الحفظ ASD.accdb -
جرب هذا المرفق يا صديقي 182.accdb
-
تمام هيك 😅 ابشر ، بس خلني أخلص من الشغل
-
العفو منك اخوي الغالي ، كل الاحترام لك يا صديقي
-
قاعدة بيانات ورشه سيارات بحاجه الى تقرير
Foksh replied to Saleh Almalki's topic in قسم الأكسيس Access
-
بالنسبة لي عدة نقاط منها :- تجنب ارفاق المرفقات داخل قاعدة البيانات . تجنب المسميات للحقول والمكونات والعناصر باللغة العربية ( ودي الحاجة اللي انا شخصياً تأكدت منها عن تجربة شخصية وقعت فيها ) . تكرار الاكواد . إجبار قاعدة البيانات على العمل بما يسبب ضغطها ( كوظائف تتعلق بتغيير اعدادات نظام الويندوز ..... إلخ ) بفضل استخدام تقسيم قاعدة البيانات للجداول بحيث يكون تخزين البيانات منفصل عن النماذج والتقارير .... إلخ ، لتخفيف الضغط مستقبلاً عند تضخم حجم البيانات . نقاط كثيرة قد يذكرها أساتذتنا في المنتدى .. هذا من وجهة نظري
- 1 reply
-
- 1
-
🤣 الصحيح أنا مش تفاجئت ، أنا صُعقت لإني ما فهمت 😂 يعني لو جعلت التاريخ يدوي في الجهاز مثلاً يكون 1/1/2024 ، وفتحت النموذج ستجد حقل التاريخ بالتاريخ نفسه ، ولو عملت إدخال البيانات وحفظ سيقوم بالحفظ وفتح سجل جديد بتاريخ اليوم التالي ،أي 2/1/2024 ؛ دون الحاجة للفتح والإغلاق 🧐 صح ولا أنا لسه مصدوم بجد ومش بنطق ولا عارف أرُد 😅
-
اسمح لي بمداخلة سريعة اخي الكريم @Bshar 🤗 اولاً ما الهدف من إغلاق النموذج وإعادة فتحه بعد إتمام عملية الحفظ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ الحل:- تم الاستغناء عن الاستعلام الذي انشأته ، وإجراء بعض التعديلات الخفيفة ، مع إيقاف إغلاق وإعادة فتح النموذج ( لأنه هو سبب المشكلة لديك ) تفضل التعديل في المرفق. 181.accdb
-
حدث يخرج نتيجة مئوية داخل حقل من خلال معطيات حقلين اخرين
Foksh replied to Abdelaziz Osman's topic in قسم الأكسيس Access
كمثال ، جرب هذا الكود:- Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية وتحديث الحقل الثالث (percentage) Me.percentage = (Me.value2 / Me.value1) * 100 & " %" Else ' يمكنك تنفيذ إجراء آخر إذا كان الحقل الأول يحتوي على صفر أو لا يتم التعامل معه بشكل آخر End If End Sub -
جرب وإذا تكرمت اعطيني النتيجة حتى يتم تصنيف الملف في مكتبتي
-
بالنسبة لكلمة المرور في القاعدة المحمية .. الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر ) Private Sub CmdChosePath_Click() On Error GoTo ErrHandler Dim fDialog As Office.FileDialog Dim filepath As String Dim db As DAO.Database Dim tdf As DAO.TableDef Dim password As String Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .TITLE = "Please select one Item" .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "Access Database Files", "*.accdb;*.mdb" If .Show = True Then filepath = .SelectedItems(1) password = InputBox("Enter the database password:", "Password") Me.MdbPath = filepath Set db = OpenDatabase(filepath, False, False, ";PWD=" & password) DoCmd.OpenForm "List_Tables" [Forms]![List_Tables]![MdbPath] = Me.MdbPath [Forms]![List_Tables]![Lst_Tables].RowSource = "" For Each tdf In db.TableDefs If Left(tdf.name, 4) <> "MSys" Then [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name End If Next tdf db.Close End If End With Exit Sub ErrHandler: MsgBox "You clicked Cancel in the file dialog box." Me.MdbPath = "" End Sub
-
ما فهمتنيش ,, قصدي في النسخة اللي ارفقتها وعدلتلك عليها في مشاركتي ؟
-
ده بيحصل معاك في أي نسخة ؟
-
الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟
-
هذه الفكرة سأقوم بالتعديل حسب المطلوب ، ولكن استحملني بالوقت بسبب العمل
-
هذه مشاركتي البسيطة أخي @سامر محمود VACATIONS223.zip
-
في إحدى التجارب لي على ما تم طرحه في الموضوع ، قمت بتجربة لتجربة سابقة لي في التعامل مع ملفات الـ Dll الوهمية ( الملفات المُعاد تسمية لاحقتها 😅 ) . فمثلاً بعد تطبيق المسميات للعناصر باللغتين ( العربية ، الإنجليزية ) داخل ملفات Arabic.txt و English.txt قمت بتغيير لاحقة الملفين من txt إلى dll وحتى من داخل الأكواد في المديول في هذين السطرين :- ليصبحا بهذا التغيير :- GetLanguageFilePath("Arabic.dll") enFile = GetLanguageFilePath("English.dll") وقد كانت التجربة ناجحة 😀 بأن تم قراءة ترجمة المكونات المستهدفة لهذه الوظيفة . قد تكون الفكرة لغير المهتمين غير مجدية ؛ إلا أنها فكرة لحماية الملفات مؤقتا من أيدي العابثين 😅. إلا أنني وددت مشاركتكم أصوات ( بنات أفكاري ) . ودمتم بخير 🤗
-
المشكلة عندك كما أخبرتك هي في إصدار نسخة الآكسيس الـ 2019 ، جرب الإصدار 2016 وإن شاء الله تنحل مشكلة ظهور الصور في التقرير . أو قبل ذلك جرب إنشاء ملف آكسيس جديد ، ثم قم بإستيراد المكونات ( نماذج ، جداول ، تقارير... إلخ ) إليها ، مع التأكد من إضافة المكتبات الغير موجودة إلى النسخة الجديدة. وأخبرنا بالنتيجة 😊 .
-
-
طلب كيفية استعراض ما بداخل المجلد في النموذج؟
Foksh replied to حامل المسك's topic in قسم الأكسيس Access
ولا يهمك ، اتمنى أن يكون هذا هو المطلوب . Private Sub cmdShowFile_Click() Dim folderPath As String folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(folderPath) Then Dim folder As Object Set folder = fso.GetFolder(folderPath) Me.FileList.RowSource = "" ' عرض أسماء الملفات Dim file As Object For Each file In folder.Files Me.FileList.AddItem file.Name Next file ' عرض أسماء المجلدات Dim subFolder As Object For Each subFolder In folder.SubFolders Me.FileList.AddItem subFolder.Name & "\" Next subFolder Else ' MsgBox "المجلد غير موجود." End If Set fso = Nothing Set folder = Nothing Set file = Nothing Set subFolder = Nothing End Sub قم باستبدال الكود السابق بهذا الكود ليشمل عرض أسماء المجلدات أيضاً . -
طلب كيفية استعراض ما بداخل المجلد في النموذج؟
Foksh replied to حامل المسك's topic in قسم الأكسيس Access
هذا من طيب أصلك أخي @حامل المسك . تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ FileList ، تفضل باستبداله بالتعديل التالي :- On Error Resume Next Dim folderPath As String folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value & "\" If Me.FileList.ListIndex >= 0 Then Dim selectedFileName As String selectedFileName = Me.FileList.Column(0, Me.FileList.ListIndex) Dim fullPath As String fullPath = folderPath & selectedFileName FollowHyperlink fullPath End If انت تدخل الموضوع عرض وتخمس كمان أستاذنا @Moosak . وتتحفنا أيضاً بما في جعبتك -
طلب كيفية استعراض ما بداخل المجلد في النموذج؟
Foksh replied to حامل المسك's topic in قسم الأكسيس Access
أخي @حامل المسك ، أعتذر على التأخير ، تفضل المرفق بدون تحديد مسار المجلد الرئيسي بشكل يدوي ، على أن تكون المجلدات الفرعية داخل مجلد All مثال أكسس.zip -
جزانا الله واياكم كل خير.. 🤗 هل تم حل المشكلة أخي العزيز @سامر محمود ؟