Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Shivan Rekany

Expert
  • Content Count

    3,476
  • Joined

  • Last visited

  • Days Won

    152

Shivan Rekany last won the day on October 18

Shivan Rekany had the most liked content!

Community Reputation

3,079 Excellent

About Shivan Rekany

  • Rank
    شفان ريكاني
  • 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

8,765 profile views
  1. الكود بيعمل حسب ID لكن في مصدر كومبوبوكس تبعك اللي بها اسماء الخلفيات ليس بها ID لذلك قمت بتعديل مصدره كما مبينة في الصورة وقمت بتعديل خصائص كومبوبوكس ايضا كما مبينة بالصور وكل شي تمام اتفضل القي نظرتا الى قاعدة بعد تعديلات الاعلى تغيير الخلفيه.rar
  2. اتفضل اليك هذا استعلام SELECT Root() AS Exprt1; اليك ملفك بعد اضافة استعلام Root2211.rar
  3. 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
  4. هذه العلامه <> يعني غير متساوي مع NZ هذه الدالة بيعمل لك تغير قيمة اذا كان لا شيء الی القيمة اللي تكتب في اخره اي معنی جملة كاملة هو ان لا يكون متساوي مع حقل اللي في نموذج اللي اسمه تحويل العملات و اسم الحقل اي مربع نصي تحويل من واذا كان حقل تحويل من بيكون لاشي غير قيمة الحقل الی صفر تحياتي
  5. مشاركة مع استاذ @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.تحويل_الى T
  6. اذا كان الحقل من نوع الرقمي استخدم هذا =DLookup("[AVAILABLE STOCK]";"[QR_PRODUCT]";"[[QR_PRODUCT]]![ITEM_COD]=" & Me.ITEM_COD) واذا کان الحقل من نوع نصی استخدم ھذا =DLookup("[AVAILABLE STOCK]";"[QR_PRODUCT]";"[[QR_PRODUCT]]![ITEM_COD]='" & Me.ITEM_COD & "'")
  7. استخدم دالة DLookup مع شرط كودالصنف في الاستعلام يساوي كود الصنف في النموذج المبيعات
  8. اذا كان ايام الحضور 26يوما في شهر قم بعمل الاتي ايام الغياب يساوي 26 ناقص ايام الحضور اي 26 - عدد ايام الحضور في الشهر او اذا هناك شيء اخر تبحثه وضحه سؤالك اكثر تحياتي
  9. اتفضل اليك هذا الكود Private Sub ÃãÑ32_Click() Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim i As Integer Set Db = CurrentDb Set Rs = Db.OpenRecordset("Table1") If Rs.RecordCount = 0 Then Exit Sub Rs.MoveLast: Rs.MoveFirst For i = 1 To Rs.RecordCount DoCmd.OpenReport "Rep1", acViewNormal, , "[id]=" & Rs![ID] DoCmd.OpenReport "Rep2", acViewNormal, , "[id]=" & Rs![ID] DoCmd.OpenReport "Rep3", acViewNormal, , "[id]=" & Rs![ID] DoCmd.OpenReport "Rep4", acViewNormal, , "[id]=" & Rs![ID] DoCmd.OpenReport "Rep5", acV
  10. كان هناك فراغ في اسفل pagebreak لذلك انا page fotter الى الاعلى قصدي بفراغات تحت page break
  11. تم اضافة هذا السطر في بداية الكود If DCount("*", "Table1") = DMax("[id]", "table1") Then MsgBox "الترقيم تلقائي في جدول1 مضبوطة وليس في اي نواقص": Exit Sub اليك الملف بعد اضافة test2.rar
  12. غدا ان شاء الله راح ارجع لك اتفضل الان المصدر هو استعلام ASALKL وتقدر تعمل فرز في القاعدة السابقة والحالية ايضا اتفضل اليك ملف بعد تعديل تاريخ الواصل (1).rar
  13. بلی ممكن ، تقدر تستخدم دالة DCount و DMax اذا عدد سجلات بيكون يساوي مع رقم الکبیر في الجدول هو يعني الترقيم ليس فيها نواقص واذا غير متساويين هناك بيعمل كود وسيتم ترقيم جديد
  14. اظن ان هناك خطا في ادخال قم بحذف كل البيانات وبعدين قم بادخالها من جديد وشوف النتيجة اليك قاعدة بعد تنظيف و تعبئة من جديد تاريخ الواصل (1).rar
×
×
  • Create New...