-
Posts
780 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
21
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو AlwaZeeR
-
Public Sub SplitNumbersIntoTextBoxes(inputText As String, ParamArray textBoxes() As Variant) Dim i As Integer Dim numLength As Integer numLength = Len(inputText) For i = 1 To numLength If i <= UBound(textBoxes) + 1 Then If TypeName(textBoxes(i - 1)) = "TextBox" Or TypeName(textBoxes(i - 1)) = "Control" Then textBoxes(i - 1).Value = Mid(inputText, i, 1) End If End If Next i Exit Sub End Sub ضع الكود السابق في وحدة نمطية قم باستدعائه هكذا: Call SplitNumbersIntoTextBoxes([هنا حقل الرقم الوطني], Me.txtBox1, Me.txtBox2) قم بتغيير الاسماء في الاستدعاء حسب مربعات النص التي تريد تقسيم الرقم فيها يمكنك اضافة العدد الذي تريد من المربعات حسب حاجتك
-
استيراد من الاكسل ⭐ هدية ~ مستورد السجلات الذكي 2025⭐
AlwaZeeR replied to Foksh's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته يعطيك العافية اخي الكريم على جهودك الرائعة ملاحظة من باب التطوير: * فرضا اريد استيراد عشرين عمود من خمسين، هل مطلوب مني ان اقوم بعمل عشرين خطوة كي استورد العشرين عمود؟ - حبذا لو يتم عمل تحديد للاعمدة المراد استيرادها دفعة واحدة لكان العمل اجمل كثيرا. :: تحياتي -
خطأ في كود لاعادة ربط الجداول بسيكوال سيرفر
AlwaZeeR replied to tiger wanted's topic in قسم الأكسيس Access
حسب الصورة كود الاستاذ فوكش يعمل بشكل سليم فقط اختر التبويب الثاني يجب ان يكون اعداد الاتصال في السيرفر مسبقا كي يظهر بشكل صحيح -
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 و بعض اللغات الاخرى طريقة فعالة وجميلة للحماية وكنت قد اضفت ايضا سطر عقابي لكل من يقوم بالتلاعب بالتاريخ الخاص بالجهاز بانقاص يوم من عمر البرنامج عند كل دخول الى البرنامج :: تحياتي
- 9 replies
-
- 1
-
-
- ريجيستري
- windows registry
-
(و1 أكثر)
موسوم بكلمه :
-
كيف يمكن تغيير قيمة افتراضية لحقل فى قاعدة بيانات مقسمة
AlwaZeeR replied to الحلبي's topic in قسم الأكسيس Access
ما في مثال مرفق والرسالة بتظهر لانو حقل القيمة الافتراضية فارغ بتقدر تضيف رسالة في الكود في حال كان الحقل فارغ -
كيف يمكن تغيير قيمة افتراضية لحقل فى قاعدة بيانات مقسمة
AlwaZeeR replied to الحلبي's topic in قسم الأكسيس Access
تفضل: تستطيع تعديل القيمة الافتراضية في قاعدة خارجية بكلمة مرور لا مشكلة لكن بشرط ان لا يكون الجدول مفعل بمعنى: ان لا يكون مفتوح من قبلك في قاعدة الواجهه ارفقت لك مثالك موضح فيه ما تريد === :: تحياتي تعديل القيمة الافتراضية.accdb -
كيف يمكن تغيير قيمة افتراضية لحقل فى قاعدة بيانات مقسمة
AlwaZeeR replied to الحلبي's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته 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)
- 1 reply
-
- 1
-
-
تغيير لون الحقل تلقائيا بعد التحديث
AlwaZeeR replied to Abdelaziz Osman's topic in قسم الأكسيس Access
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 -
فعلا عمل جميل يسلم ايدك ابا جودي
- 11 replies
-
- 1
-
-
- date pickers
- منتقى التواريخ
-
(و6 أكثر)
موسوم بكلمه :
-
قم بتطبيق العلاقات كما هو موضح هنا وعند الانتهاء ننتقل الى انشاء نماذج الادخال
-
نعم راق لي عمل جميل ولكن ملاحظتي على التنسيق والالوان غير مريحة لعين الشخص الذي سيعمل على هذا المشروع :: تحياتي
-
وعليكم السلام ورحمة الله وبركاته طبق التعليمات التالية وسوف يكون عندك بداية لقاعدة بيانات جيدة وعلى الطريق السليم: ========== لإنشاء قاعدة بيانات تلبي احتياجاتك، يجب تصميم الجداول والعلاقات بينها بشكل يساعدك على تخزين المعلومات المطلوبة بطريقة منظمة وفعّالة. بناءً على وصفك، تحتاج إلى ثلاثة جداول رئيسية: جدول الموظفين (Employees): يحتوي هذا الجدول على المعلومات الأساسية عن الموظفين مثل اسم الموظف، معلوماته الشخصية، وأحدث درجة وظيفية له. جدول الدرجات الوظيفية للموظفين (EmployeeGrades): يحتوي هذا الجدول على تاريخ منح كل درجة وظيفية للموظف، مما يسمح بتتبع تاريخ التدرج الوظيفي لكل موظف. جدول الدرجات الوظيفية (Grades): يحتوي هذا الجدول على جميع الدرجات الوظيفية المتاحة في النظام، مما يتيح لك اختيار درجات وظيفية جديدة عند الحاجة. تفاصيل الجداول والعلاقات بينها: 1. جدول الموظفين (Employees) رقم الموظف (EmployeeID): مفتاح أساسي (Primary Key). اسم الموظف (EmployeeName): نص. معلومات شخصية (PersonalInfo): نص. رقم آخر درجة وظيفية (LastGradeID): مفتاح خارجي (Foreign Key) من جدول الدرجات. 2. جدول الدرجات الوظيفية للموظفين (EmployeeGrades) رقم تدرج الدرجة (EmployeeGradeID): مفتاح أساسي (Primary Key). رقم الموظف (EmployeeID): مفتاح خارجي (Foreign Key) من جدول الموظفين. رقم الدرجة الوظيفية (GradeID): مفتاح خارجي (Foreign Key) من جدول الدرجات. تاريخ المنح (GrantDate): تاريخ. 3. جدول الدرجات الوظيفية (Grades) رقم الدرجة الوظيفية (GradeID): مفتاح أساسي (Primary Key). اسم الدرجة الوظيفية (GradeName): نص. العلاقات بين الجداول: جدول الموظفين (Employees) وجداول الدرجات الوظيفية (Grades): علاقة واحد إلى متعدد (One-to-Many) بين LastGradeID في جدول الموظفين و GradeID في جدول الدرجات، مما يتيح ربط كل موظف بأحدث درجة وظيفية له. جدول الموظفين (Employees) وجدول الدرجات الوظيفية للموظفين (EmployeeGrades): علاقة واحد إلى متعدد (One-to-Many) بين EmployeeID في جدول الموظفين و EmployeeID في جدول الدرجات الوظيفية للموظفين، مما يسمح بتتبع تاريخ التدرج الوظيفي لكل موظف. جدول الدرجات الوظيفية (Grades) وجدول الدرجات الوظيفية للموظفين (EmployeeGrades): علاقة واحد إلى متعدد (One-to-Many) بين GradeID في جدول الدرجات و GradeID في جدول الدرجات الوظيفية للموظفين، مما يسمح بتحديد كل درجة وظيفية منحها الموظف في أي وقت. مثالك مع الشرح: لتطبيق هذا التصميم: لكل موظف، سيكون هناك سجل في جدول الموظفين. كل مرة يحصل فيها الموظف على درجة وظيفية جديدة، يُضاف سجل جديد في جدول الدرجات الوظيفية للموظفين، مع الإشارة إلى الموظف والدرجة وتاريخ منح الدرجة. جدول الدرجات الوظيفية يحتوي على قائمة بجميع الدرجات الممكنة والتي يمكنك اختيارها عند تحديث الدرجات الوظيفية للموظفين. بهذه الطريقة، يمكنك بسهولة تتبع معلومات الموظفين وأحدث درجاتهم، بالإضافة إلى تاريخ تدرجهم الوظيفي.
-
وعليكم السلام ورحمة الله وبركاته على ما يبدو ان المشكلة تكمن في تنسيق التاريخ UPDATE fordate SET fordate.ada = DSum("pamounts", "amanat", "pdate<=#" & Format([ta], "dd/mm/yyyy") & "#"); جرب هذا الاستعلام
-
السلام عليكم ورحمة الله وبركاته رحم الله والدتك واسكنها الفردوس الاعلى مع النبيين والشهداء وحسن أولئك رفيقا اللهم اشف والدك وعافه واعد عليه الصحة والعافية اللهم امين موضوع جميل ومتعوب عليه في ميزان حسناتك ان شاء الله تحياتي
-
وعليكم السلام ورحمة الله وبركاته شو الهدف من انك مختار خصائص الحقل نص؟ رغم انها حقول ارقام؟ قم بتغيير الخصائص الى رقم ومن الاسفل في الخصائص اختار مزدوج وبعدها استخدم معادلة Round
-
استخراج الشهر والسنة من تاريخ الغياب في الاستعلام
AlwaZeeR replied to بلال اليامين's topic in قسم الأكسيس Access
MonthName: Format([تاريخ الغياب], "mmmm") Year: Year([تاريخ الغياب]) -
تم عملها برمجيا كاي قائمة مختصرة لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: Sub CustomizeShortcutMenu() Dim cb As CommandBar Dim ctl As CommandBarControl ' الوصول إلى القائمة المختصرة الموجودة Set cb = Application.CommandBars("cop") ' إضافة عنصر جديد إلى القائمة المختصرة Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctl .Caption = "New Menu Item" .OnAction = "MyCustomFunction" End With End Sub ' دالة مخصصة Sub MyCustomFunction() MsgBox "This is a custom function!" End Sub
-
ليس مستحيلا يا صديقي يمكن تطبيق ذلك انا لدي برنامج مصمم بالاكسس وفي نفس الوقت لدي تطبيق على الهاتف يتم تبادل البيانات بينهما بكل اريحية باستخدام سيرفر وقاعدة بيانات وصفحات php ويتم ذلك باوامر api ويمكنني التحكم ببرنامج الاكسس من خلال الهاتف من اغلاق النسخة وتمديدها وارسال ملاحظات واستقبال ملاحظة من يعمل على البرنامج والكثير من الامور وان احببتم اضع لكم فيديو توضيحي لما يقوم به التطبيق بين برنامج الاكسس والهاتف :: تحياتي
-
اختيار ارقام فواتير متعددة ليست مسلسلة للعرض
AlwaZeeR replied to المهاجر ابو معاذ's topic in قسم الأكسيس Access
قم باضافة مربع خيار نعم/لا في الجدول ومن التقرير في الاستعلام سواء كان داخلي او محفوظ كاستعلام ضع نعم في المعايير تحت الحقل ستظهر الفواتير التي سيتم التاشير عليها باشارة صح فقط -
وعليكم السلام ورحمة الله وبركاته Private Sub Form_Load() Me.Recordset.MoveFirst Do While Not Me.Recordset.EOF Call YourIfCondition(Me![YourTextBox]) Me.Recordset.MoveNext Loop Me.Recordset.MoveFirst End Sub Private Sub YourIfCondition(txtBox As TextBox) If txtBox.Value = "شرط جملة اف" Then MsgBox "قم بتطبيق شرط اف" End If End Sub ضع جملة الشرط الخاصة بك :IIF في sub ثم قم باستدعائها في حدث عند التحميل قم باستدعائها في حلقة تكرارية كما هو موضح في المثال