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

samisalim

عضو جديد 01
  • Content Count

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

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

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

0 Neutral

عن العضو samisalim

  • الإسم الفعلي
    الإســم

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

  • Gender (Ar)
    ذكر
  • Job Title
    moe
  • البلد
    سلطنة عمان
  • الإهتمامات
    صيانة الحاسب آلي
  1. أشكرك أخي الكود اشتغل معي100% بعدني اتعبك معي هل ممكن تشرح لي الكود الاول والثاني If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo Exit Sub End If If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" DoCmd.FindRecord cmbrecord Exit Sub End If If Me.IDE = DLookup("IDE", "EMPDEV", "[IDE] = " & Me.IDE) Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الاسم مسجل مسبقا", vbInformation, "تنبيه تكرار" Exit Sub Else MsgBox "تم" End If لاني مبتدي في الاكسس وجزاك الله خيراً
  2. أخي KANORY أردت تطبيق الكود على كمبو الاسماء لكن تظهر لي رسالة ارفق لكم صورة المشكلة هذا الكود If Me.CMBNAME.Column(0) = DLookup("IDE", "EMPDEV", "[IDE] = '" & Me.CMBNAME.Column(0) & "'") Then Me.CMBNAME.Undo Me.Undo MsgBox "هذا الاسم مسجل مسبقاً", vbInformation, "تنبيه التكرار" Exit Sub Else MsgBox "تم" End If
  3. ماشاء الله عليك أخي الغاليkanory الكود شغال 100% بارك الله فيك والله يعطيك الصحة والعافية
  4. السلام عليكم ورحمة الله وبركاته أحتاج مساعدتكم في تعديل الكود منع التكرار السيريل نمبر حاولت عدة مرات ارجو مساعدتي ارفق لكم ملف وهذا الكود المستخدم If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo Exit Sub End If If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" DoCmd.FindRecord cmbrecord Exit Sub End If officena.rar
×
×
  • اضف...