AlwaZeeR

السلام عليكم ورحمة الله وبركاته يعطيك العافية اخي الكريم على جهودك الرائعة ملاحظة من باب التطوير: * فرضا اريد استيراد عشرين عمود من خمسين، هل مطلوب مني ان اقوم بعمل عشرين خطوة كي استورد العشرين عمود؟ - حبذا لو يتم عمل تحديد للاعمدة المراد استيرادها دفعة واحدة لكان العمل اجمل كثيرا. :: تحياتي

حسب الصورة كود الاستاذ فوكش يعمل بشكل سليم فقط اختر التبويب الثاني يجب ان يكون اعداد الاتصال في السيرفر مسبقا كي يظهر بشكل صحيح

Public Function AddAmount(originalAmount As Double) As Double Select Case originalAmount Case Is <= 50 AddAmount = 75 Case 51 To 100 AddAmount = 100 Case 101 To 150 AddAmount = 125 Case Else AddAmount = 0 End Select End Function في الاستعلام يمكن الاستدعاء هكذا: NewAmount: AddAmount([OriginalAmount]) لان الاضافات غير متطابقة يمكن تعديل الوحدة بما يناسبك :: تحياتي

يعطيك العافية كنت استخدم هذه الطريقة قديما قبل التحول الى ربط كل هذه الامور عن طريق سيرفر و php و بعض اللغات الاخرى طريقة فعالة وجميلة للحماية وكنت قد اضفت ايضا سطر عقابي لكل من يقوم بالتلاعب بالتاريخ الخاص بالجهاز بانقاص يوم من عمر البرنامج عند كل دخول الى البرنامج :: تحياتي

ما في مثال مرفق والرسالة بتظهر لانو حقل القيمة الافتراضية فارغ بتقدر تضيف رسالة في الكود في حال كان الحقل فارغ

تفضل: تستطيع تعديل القيمة الافتراضية في قاعدة خارجية بكلمة مرور لا مشكلة لكن بشرط ان لا يكون الجدول مفعل بمعنى: ان لا يكون مفتوح من قبلك في قاعدة الواجهه ارفقت لك مثالك موضح فيه ما تريد === :: تحياتي تعديل القيمة الافتراضية.accdb

وعليكم السلام ورحمة الله وبركاته Sub UpdateDefaultValueAndRecords() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim strTableName As String Dim strFieldName As String Dim strNewDefaultValue As String strTableName = "YourTbl" strFieldName = "FieldName" strNewDefaultValue = "60" Set dbs = OpenDatabase("C:\Path\To\Your\Backend\Database.accdb") Set tdf = dbs.TableDefs(strTableName) Set fld = tdf.Fields(strFieldName) fld.DefaultValue = strNewDefaultValue dbs.Execute "UPDATE [" & strTableName & "] SET [" & strFieldName & "] = " & strNewDefaultValue & " WHERE [" & strFieldName & "] = 70", dbFailOnError dbs.Close Set fld = Nothing Set tdf = Nothing Set dbs = Nothing MsgBox "تم تحديث القيمة الافتراضية وتحديث السجلات الحالية بنجاح!" End Sub

وعليكم السلام ورحمة الله وبركاته عادة عند تنصيب نسخة اوفيس حديثة يتم تعيين اعدادات الامان افتراضيا الى اعلى مستوى وهذا يعطل اكواد vba جرب اعدادات Trust Center بخصوص اعدادات اللغة تاكد انه لا يوجد صح كما في الصورة :: تحياتي

import xls.mdb

وعليكم السلام ورحمة الله وبركاته استبدل هذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") بهذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xlsm") واذا لم تحل المشكلة ارفق ملف الاكسل

وعليكم السلام ورحمة الله وبركاته =Nz([Forms]![SubForm1]![TextBox1], 0) + Nz([Forms]![SubForm2]![TextBox2], 0) + Nz([Forms]![SubForm3]![TextBox3], 0) + Nz([Forms]![SubForm4]![TextBox4], 0)

Private Sub Manul_AfterUpdate() If IsNull(Me.Manul.Value) Or Me.Manul.Value = "" Then Me.Manul.BackColor = RGB(255, 255, 255) Else Me.Manul.BackColor = RGB(255, 255, 0) End If End Sub

فعلا عمل جميل يسلم ايدك ابا جودي

قم بتطبيق العلاقات كما هو موضح هنا وعند الانتهاء ننتقل الى انشاء نماذج الادخال

نعم راق لي عمل جميل ولكن ملاحظتي على التنسيق والالوان غير مريحة لعين الشخص الذي سيعمل على هذا المشروع :: تحياتي