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

AlwaZeeR

الخبراء
  • Posts

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

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

  • Days Won

    21

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

  1. الفاصلة على حسب اللغة المختارة في الاعدادات الاقليمية
  2. وعليكم السلام ورحمة الله وبركاته =Sum(DSum("[payment_id]","[daily]","[code]=" & [code]))
  3. السلام عليكم ورحمة الله وبركاته وتقبل الله طاعاتكم تفضل Duplicate-waz.mdb
  4. لتغيير كلمة السر اضغط طباعات - تغيير بيانات الطباعة ومن شاشة البيانات غير كلمة السر بخصوص الاستيراد من اكسل لا اعرف اظن ان هناك ملف اكسل في مجلد البرنامج اسمه th فيه بيانات أسماء ووو قد تستطيع النسخ واللصق او معرفة ملف dbf الخاص بالاسماء ومن ثم فتحه بواسطة برنامج معين والتعامل معه
  5. كل الاحترام والتقدير للأستاذ خالد سيسكو والاحترام موصول لطاقم الموقع لجهوده في الحفاظ على مكانة هذا الصرح باختيار المناسب تحياتي للجميع
  6. الف شكر اخي أبو امنة صراحة درسته ووجدت انه رائع وفي ميزان حسناتك ان شاء الله وبما انني ساستخدمه في مستودع لبيع مواد تنظيفات اسمح لي ان اعطيك صورة للتعديل الاولي عليه هذه صورة من شاشة إضافة الأصناف او كما ورد في برنامجك اسم المادة
  7. عمل جميل اخي العزيز انا لست محاسبا ولكن من باب الاضطلاع والمعرفة اين يتم وضع المخزون؟ والكمية؟ ما خليت مكان الا دورت فيه في النماذج موجود في الجداول لكن في النماذج وين؟؟ 🙂
  8. هكذا يتم الامر AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1) ويفضل وضع الترقيم في حدث قبل الادراج للنموذج وان صعب الامر عليك ارفق ملف صغير للتطبيق
  9. وعليكم السلام ورحمة الله وبركاته جرب هذه محاولة ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم Public Function AlPhaNumber(AutoNum As Integer) As String Dim SallomN As String Select Case AutoNum Case 1 To 1000 SallomN = "A" & AutoNum Case 1001 To 2000 SallomN = "B" & AutoNum Case 2001 To 3000 SallomN = "C" & AutoNum Case Else SallomN = "No Number" End Select AlPhaNumber = SallomN End Function
  10. من باب الاختصار في كتابة الأوامر وعدم تكرارها مثال: لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا: Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits Forms!MainForm!SubFormName.Form.AllowEdits.Requery Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test" Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False ويكتب باستخدامها هكذا ولك حرية الاختيار انا عن نفسي استخدمها With SubFormName.Form .AllowEdits = Not .AllowEdits .Requery .SetFocus .cmdName.Caption = "Test" .cmdName.Enabled = False End With المثال السابق 1- لتحرير نموذج فرعي 2- عمل تحديث للنموذج الفرعي 3- نقل التركيز الى النموذج الفرعي 3- تغيير اسم زر امر الى تست في النموذج الفرعي 4- الغاء التمكين للزر السابق في النموذج الفرعي ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة ::
  11. كل الاحترام والتقدير عزيزي استمر تحياتي
  12. وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))
  13. بعد اذن الاخوة الزملاء قم بتغيير الكود Dim x As Integer الى Dim x As Long
  14. عن طريق ضبط الطول والعرض بالسم ثم استخدام نظام الاعمدة في تنسيق الصفحة testw7.accdb
  15. وعليكم السلام ورحمة الله وبركاته لم افهم ما تقصد بالتسلسل؟ تفضل هكذا يتم التجميع وقم بعمل ما يلزم حسب ما تحتاجه في برنامجك DBw.accdb
  16. تحتاج الى تعريف النوع (تاريخ) في جملة الاس كيو ال # ثم تنسيق التاريخ contractw.accdb
  17. وعليكم السلام ورحمة الله وبركاته ATabsVer16.accdb
  18. اضبط اليسار والاعلى لجميع النماذج الفرعية الموجودة Database2 (1).rar
  19. من بيانات السماح بعمليات تحرير قوائم القيم اجعل القيمة لا وهنا حل بدون استخدام متغير (i) If Command2.Caption = "Open" Then Me.D1.SetFocus Me.D1.Dropdown Command2.Caption = "Close" Else Me.D1.Requery Command2.Caption = "Open" End If
  20. السلام عليكم ورحمة الله وبركاته يعطيك الف عافية أستاذ sandanet عمل جميل عملت على جميع النسخ لدي 2007/2010/2016/365 32 بت النسخة غير مفعلة
  21. عزيزي القاضي قم بتشغيل الاكسس كاملا كمسؤول ثم قم بالضغط على ملف فتح واختر الاداة هكذا تعمل وليس هي نفسها التشغيل كمسؤول
  22. البرنامج يعمل مقارنة بالرقم المدخل من قبلك مع ما تم انزاله من ملف التكست في الصورة التي ارفقتها لم يتم انزال الرقم لانك استخدمت رابط جوجل درايف ارفع الملف الخاص بك على دروب بوكس وطبق ما جاء في رابط اخي صالح وسوف ترى انه تم الاغلاق في حال لم تتشابه القيم
  23. رائع اخي صالح دائما مبدع جعله الله في ميزان حسناتك تحياتي لشخصك الكريم الطيب ملف التكست يجب ان يحفظ بترميز UTF-8 وليس ANSI اضف الى ذلك ان الرابط على الجوجل درايف ولا اعلم ان كان يدعم التحميل المباشر مثل الدروب بوكس ام لا
  24. تفضل الأداة في موضوع سابق
×
×
  • اضف...

Important Information