Jump to content
أوفيسنا

Shivan Rekany

Expert
  • Posts

    3,482
  • Joined

  • Last visited

  • Days Won

    152

Shivan Rekany last won the day on October 18 2020

Shivan Rekany had the most liked content!

Reputation

3,095 Excellent

About Shivan Rekany

  • Birthday 12/02/1988

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    عراق / كوردستان / دهوك
  • Interests
    ادارة / برمجة

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com
  • Jabber
    shivanrekany212@mail.ru‎‏

Recent Profile Visitors

9,321 profile views
  1. حسب رغبتك تقدر تتغيره لكن يجب ان يكون تغيره في القاعدة الاخرى ايضا
  2. السلام عليكم لماذا تريد شيء كهذا ؟ المبرمجون يعملون ويريدون ان يسهل للمستخدمين العمل علی الجهاز لكن حضرتك راح تصعب عليهم ، ممكن تخبرنا عن سببه ؟
  3. نفترض ان حقل ( الادارة ) في الجدول المستخدمين يوزرس هو حقل اعطاء صلاحية لكل مستخدم , اذا كان مقابل هذا الحقل لأي مستخدم يساوي علامة صح راح يظهر له كل سجلات واي مستخدم ليس له علامة صح في ذلك الحقل فقط راح يظهر له سجلات تابعه , حينئذ راح نستخدم هذا الكود Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize If DLookup("[الادارة]", "users", "[USERNAME]='" & Me.اسم__المستخدم & "'") = True Then Me.Form.RecordSource = "ادخال البيانات" Else Me.Form.RecordSource = "SELECT [ادخال البيانات].ID, [ادخال البيانات].[اسم الموقع], [ادخال البيانات].الرخصة, [ادخال البيانات].النشاط, [ادخال البيانات].المنطقة, [ادخال البيانات].[حالة الموقع], [ادخال البيانات].[رقم الهاتف الارضى], [ادخال البيانات].[رقم الهاتف المتحرك], [ادخال البيانات].[اسم مسؤول الموقع], [ادخال البيانات].الايميل, [ادخال البيانات].العدد, [ادخال البيانات].[اسم المستخدم] FROM [ادخال البيانات] WHERE ((([ادخال البيانات].[اسم المستخدم])=[Forms]![ادخال بيانات المواقع]![اسم المستخدم]));" End If End Sub واليك المرفق بعد تعديل mm (1).rar
  4. اتفتضل تم اضافة هذا الكود عند فتح النموذج Private Sub Form_Open(Cancel As Integer) If Me.اسم__المستخدم = 1 Then Me.Form.RecordSource = "ادخال البيانات" Else Me.Form.RecordSource = "SELECT [ادخال البيانات].ID, [ادخال البيانات].[اسم الموقع], [ادخال البيانات].الرخصة, [ادخال البيانات].النشاط, [ادخال البيانات].المنطقة, [ادخال البيانات].[حالة الموقع], [ادخال البيانات].[رقم الهاتف الارضى], [ادخال البيانات].[رقم الهاتف المتحرك], [ادخال البيانات].[اسم مسؤول الموقع], [ادخال البيانات].الايميل, [ادخال البيانات].العدد, [ادخال البيانات].[اسم المستخدم] FROM [ادخال البيانات] WHERE ((([ادخال البيانات].[اسم المستخدم])=[Forms]![ادخال بيانات المواقع]![اسم المستخدم]));" End If End Sub واليك قاعدتك بعد اضافة الكود mm.rar
  5. اخي الحبيب انا قلت لك قم بتحكم والتحديد مصدر النموذج عند الفتحه اي ستعطي كود في وضعية فتح النموذج حين يفتح النموذج الكود راح يشوف من فتحه ! اذا كان فتح من قبل المدير سيكون مصدر انموذج كامل السجلات اي جدول نفسه واذا كان فتح من قبل مستخدم عادي راح يكون مصدره استعلام وفيه شرط اذا ما تقدر تعمله ، ارفق نسخة مصغرة من قاعدتك لكي نضيفه الكود تحياتي
  6. قم بالتحكم والتحدید مصدر النموذج عند فتحه اذا كان هو مدير هو بيفتحه غير مصدر النمذج الی جدول او اذا كان اللي بيفتح النموذج هو مستخدم عادي غير مصدر النموذج الی استعلام به شرط ، والشرط هو حقل المستخدمين في الجدول البيانات يساوي اسم المستخدم اللي فتح النموذج اي يساوي مستخدم الحالي تحياتي
  7. الكود بيعمل حسب ID لكن في مصدر كومبوبوكس تبعك اللي بها اسماء الخلفيات ليس بها ID لذلك قمت بتعديل مصدره كما مبينة في الصورة وقمت بتعديل خصائص كومبوبوكس ايضا كما مبينة بالصور وكل شي تمام اتفضل القي نظرتا الى قاعدة بعد تعديلات الاعلى تغيير الخلفيه.rar
  8. اتفضل اليك هذا استعلام SELECT Root() AS Exprt1; اليك ملفك بعد اضافة استعلام Root2211.rar
  9. Dim Numbers if len(SText & "")=0 then GetNumbersOnly="" exit function end if For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) and Mid(SText, i, 1) <> 0 Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = Trim(Numbers) اتفضل تم اضافة هذا جزء فقط and Mid(SText, i, 1) <> 0
  10. هذه العلامه <> يعني غير متساوي مع NZ هذه الدالة بيعمل لك تغير قيمة اذا كان لا شيء الی القيمة اللي تكتب في اخره اي معنی جملة كاملة هو ان لا يكون متساوي مع حقل اللي في نموذج اللي اسمه تحويل العملات و اسم الحقل اي مربع نصي تحويل من واذا كان حقل تحويل من بيكون لاشي غير قيمة الحقل الی صفر تحياتي
  11. مشاركة مع استاذ @husamwahab اتفضل اليك كلتا الطريقين تقدر تستخدم طريقة ان لا يظهر نوع العملة اللي تدخل في حقل تحويل من في مصدر تحويل الى او تقدر تستخدم هذا الكود قبل تحديث للحقل تحويل من و تحويل الى Private Sub تحويل_الى_BeforeUpdate(Cancel As Integer) If Len(Me.تحويل_من & "") <> 0 And Me.تحويل_من = Me.تحويل_الى Then MsgBox "لا يجوز ادخال نفس نوع العملة في الحقل تحويل من و تحويل الى " Cancel = True End If End Sub Private Sub تحويل_من_BeforeUpdate(Cancel As Integer) If Len(Me.تحويل_من & "") <> 0 And Me.تحويل_من = Me.تحويل_الى Then MsgBox "لا يجوز ادخال نفس نوع العملة في الحقل تحويل من و تحويل الى " Cancel = True End If End Sub استخدمت كلتا طريقين في مرفقك 1.zip
  12. اذا كان الحقل من نوع الرقمي استخدم هذا =DLookup("[AVAILABLE STOCK]";"[QR_PRODUCT]";"[[QR_PRODUCT]]![ITEM_COD]=" & Me.ITEM_COD) واذا کان الحقل من نوع نصی استخدم ھذا =DLookup("[AVAILABLE STOCK]";"[QR_PRODUCT]";"[[QR_PRODUCT]]![ITEM_COD]='" & Me.ITEM_COD & "'")
  13. استخدم دالة DLookup مع شرط كودالصنف في الاستعلام يساوي كود الصنف في النموذج المبيعات
  14. اذا كان ايام الحضور 26يوما في شهر قم بعمل الاتي ايام الغياب يساوي 26 ناقص ايام الحضور اي 26 - عدد ايام الحضور في الشهر او اذا هناك شيء اخر تبحثه وضحه سؤالك اكثر تحياتي
×
×
  • Create New...

Important Information