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

AlwaZeeR

الخبراء
  • Content Count

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

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

  • Days Won

    18

AlwaZeeR last won the day on ديسمبر 12 2019

AlwaZeeR had the most liked content!

السمعه بالموقع

677 Excellent

عن العضو AlwaZeeR

  • الإسم الفعلي
    Abu Elkaram
  • تاريخ الميلاد 22 أغس, 1970

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    School secretary
  • بلد الإقامة
    Palestain-Hebron
  • الإهتمامات
    Everything Good 4 Others

اخر الزوار

1,570 زياره للملف الشخصي
  1. لتغيير كلمة السر اضغط طباعات - تغيير بيانات الطباعة ومن شاشة البيانات غير كلمة السر بخصوص الاستيراد من اكسل لا اعرف اظن ان هناك ملف اكسل في مجلد البرنامج اسمه th فيه بيانات أسماء ووو قد تستطيع النسخ واللصق او معرفة ملف dbf الخاص بالاسماء ومن ثم فتحه بواسطة برنامج معين والتعامل معه
  2. كل الاحترام والتقدير للأستاذ خالد سيسكو والاحترام موصول لطاقم الموقع لجهوده في الحفاظ على مكانة هذا الصرح باختيار المناسب تحياتي للجميع
  3. الف شكر اخي أبو امنة صراحة درسته ووجدت انه رائع وفي ميزان حسناتك ان شاء الله وبما انني ساستخدمه في مستودع لبيع مواد تنظيفات اسمح لي ان اعطيك صورة للتعديل الاولي عليه هذه صورة من شاشة إضافة الأصناف او كما ورد في برنامجك اسم المادة
  4. عمل جميل اخي العزيز انا لست محاسبا ولكن من باب الاضطلاع والمعرفة اين يتم وضع المخزون؟ والكمية؟ ما خليت مكان الا دورت فيه في النماذج موجود في الجداول لكن في النماذج وين؟؟ 🙂
  5. هكذا يتم الامر AlPhaNumber(Nz(DMax("CountField", "YourTable"), 0) + 1) ويفضل وضع الترقيم في حدث قبل الادراج للنموذج وان صعب الامر عليك ارفق ملف صغير للتطبيق
  6. وعليكم السلام ورحمة الله وبركاته جرب هذه محاولة ضع الكود في وحدة نمطية واستدعها ضمن الحقل الذي تريد ان يظهر فيه الرقم 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
  7. من باب الاختصار في كتابة الأوامر وعدم تكرارها مثال: لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا: 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- الغاء التمكين للزر السابق في النموذج الفرعي ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة ::
  8. كل الاحترام والتقدير عزيزي استمر تحياتي
  9. وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))
  10. عن طريق ضبط الطول والعرض بالسم ثم استخدام نظام الاعمدة في تنسيق الصفحة testw7.accdb
  11. وعليكم السلام ورحمة الله وبركاته لم افهم ما تقصد بالتسلسل؟ تفضل هكذا يتم التجميع وقم بعمل ما يلزم حسب ما تحتاجه في برنامجك DBw.accdb
  12. تحتاج الى تعريف النوع (تاريخ) في جملة الاس كيو ال # ثم تنسيق التاريخ contractw.accdb
  13. وعليكم السلام ورحمة الله وبركاته ATabsVer16.accdb
×
×
  • اضف...