اذهب الي المحتوي
أوفيسنا

AlwaZeeR

الخبراء
  • Posts

    780
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    21

كل منشورات العضو AlwaZeeR

  1. 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) قم بتغيير الاسماء في الاستدعاء حسب مربعات النص التي تريد تقسيم الرقم فيها يمكنك اضافة العدد الذي تريد من المربعات حسب حاجتك
  2. السلام عليكم ورحمة الله وبركاته يعطيك العافية اخي الكريم على جهودك الرائعة ملاحظة من باب التطوير: * فرضا اريد استيراد عشرين عمود من خمسين، هل مطلوب مني ان اقوم بعمل عشرين خطوة كي استورد العشرين عمود؟ - حبذا لو يتم عمل تحديد للاعمدة المراد استيرادها دفعة واحدة لكان العمل اجمل كثيرا. :: تحياتي
  3. حسب الصورة كود الاستاذ فوكش يعمل بشكل سليم فقط اختر التبويب الثاني يجب ان يكون اعداد الاتصال في السيرفر مسبقا كي يظهر بشكل صحيح
  4. 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]) لان الاضافات غير متطابقة يمكن تعديل الوحدة بما يناسبك :: تحياتي
  5. يعطيك العافية كنت استخدم هذه الطريقة قديما قبل التحول الى ربط كل هذه الامور عن طريق سيرفر و php و بعض اللغات الاخرى طريقة فعالة وجميلة للحماية وكنت قد اضفت ايضا سطر عقابي لكل من يقوم بالتلاعب بالتاريخ الخاص بالجهاز بانقاص يوم من عمر البرنامج عند كل دخول الى البرنامج :: تحياتي
  6. ما في مثال مرفق والرسالة بتظهر لانو حقل القيمة الافتراضية فارغ بتقدر تضيف رسالة في الكود في حال كان الحقل فارغ
  7. تفضل: تستطيع تعديل القيمة الافتراضية في قاعدة خارجية بكلمة مرور لا مشكلة لكن بشرط ان لا يكون الجدول مفعل بمعنى: ان لا يكون مفتوح من قبلك في قاعدة الواجهه ارفقت لك مثالك موضح فيه ما تريد === :: تحياتي تعديل القيمة الافتراضية.accdb
  8. وعليكم السلام ورحمة الله وبركاته 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
  9. وعليكم السلام ورحمة الله وبركاته عادة عند تنصيب نسخة اوفيس حديثة يتم تعيين اعدادات الامان افتراضيا الى اعلى مستوى وهذا يعطل اكواد vba جرب اعدادات Trust Center بخصوص اعدادات اللغة تاكد انه لا يوجد صح كما في الصورة :: تحياتي
  10. وعليكم السلام ورحمة الله وبركاته استبدل هذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") بهذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xlsm") واذا لم تحل المشكلة ارفق ملف الاكسل
  11. وعليكم السلام ورحمة الله وبركاته =Nz([Forms]![SubForm1]![TextBox1], 0) + Nz([Forms]![SubForm2]![TextBox2], 0) + Nz([Forms]![SubForm3]![TextBox3], 0) + Nz([Forms]![SubForm4]![TextBox4], 0)
  12. 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
  13. قم بتطبيق العلاقات كما هو موضح هنا وعند الانتهاء ننتقل الى انشاء نماذج الادخال
  14. نعم راق لي عمل جميل ولكن ملاحظتي على التنسيق والالوان غير مريحة لعين الشخص الذي سيعمل على هذا المشروع :: تحياتي
  15. وعليكم السلام ورحمة الله وبركاته طبق التعليمات التالية وسوف يكون عندك بداية لقاعدة بيانات جيدة وعلى الطريق السليم: ========== لإنشاء قاعدة بيانات تلبي احتياجاتك، يجب تصميم الجداول والعلاقات بينها بشكل يساعدك على تخزين المعلومات المطلوبة بطريقة منظمة وفعّالة. بناءً على وصفك، تحتاج إلى ثلاثة جداول رئيسية: جدول الموظفين (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 في جدول الدرجات الوظيفية للموظفين، مما يسمح بتحديد كل درجة وظيفية منحها الموظف في أي وقت. مثالك مع الشرح: لتطبيق هذا التصميم: لكل موظف، سيكون هناك سجل في جدول الموظفين. كل مرة يحصل فيها الموظف على درجة وظيفية جديدة، يُضاف سجل جديد في جدول الدرجات الوظيفية للموظفين، مع الإشارة إلى الموظف والدرجة وتاريخ منح الدرجة. جدول الدرجات الوظيفية يحتوي على قائمة بجميع الدرجات الممكنة والتي يمكنك اختيارها عند تحديث الدرجات الوظيفية للموظفين. بهذه الطريقة، يمكنك بسهولة تتبع معلومات الموظفين وأحدث درجاتهم، بالإضافة إلى تاريخ تدرجهم الوظيفي.
  16. وعليكم السلام ورحمة الله وبركاته على ما يبدو ان المشكلة تكمن في تنسيق التاريخ UPDATE fordate SET fordate.ada = DSum("pamounts", "amanat", "pdate<=#" & Format([ta], "dd/mm/yyyy") & "#"); جرب هذا الاستعلام
  17. السلام عليكم ورحمة الله وبركاته رحم الله والدتك واسكنها الفردوس الاعلى مع النبيين والشهداء وحسن أولئك رفيقا اللهم اشف والدك وعافه واعد عليه الصحة والعافية اللهم امين موضوع جميل ومتعوب عليه في ميزان حسناتك ان شاء الله تحياتي
  18. وعليكم السلام ورحمة الله وبركاته شو الهدف من انك مختار خصائص الحقل نص؟ رغم انها حقول ارقام؟ قم بتغيير الخصائص الى رقم ومن الاسفل في الخصائص اختار مزدوج وبعدها استخدم معادلة Round
  19. MonthName: Format([تاريخ الغياب], "mmmm") Year: Year([تاريخ الغياب])
  20. تم عملها برمجيا كاي قائمة مختصرة لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: 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
  21. ليس مستحيلا يا صديقي يمكن تطبيق ذلك انا لدي برنامج مصمم بالاكسس وفي نفس الوقت لدي تطبيق على الهاتف يتم تبادل البيانات بينهما بكل اريحية باستخدام سيرفر وقاعدة بيانات وصفحات php ويتم ذلك باوامر api ويمكنني التحكم ببرنامج الاكسس من خلال الهاتف من اغلاق النسخة وتمديدها وارسال ملاحظات واستقبال ملاحظة من يعمل على البرنامج والكثير من الامور وان احببتم اضع لكم فيديو توضيحي لما يقوم به التطبيق بين برنامج الاكسس والهاتف :: تحياتي
  22. قم باضافة مربع خيار نعم/لا في الجدول ومن التقرير في الاستعلام سواء كان داخلي او محفوظ كاستعلام ضع نعم في المعايير تحت الحقل ستظهر الفواتير التي سيتم التاشير عليها باشارة صح فقط
  23. وعليكم السلام ورحمة الله وبركاته 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 ثم قم باستدعائها في حدث عند التحميل قم باستدعائها في حلقة تكرارية كما هو موضح في المثال
×
×
  • اضف...

Important Information