الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عدم قبول المتكرر في النموذج الفرعي - في سجل واحد

بدأه Janna في 10 مارس 2008 · 7 رد · 931 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

السؤال هو في النموذج الفرعي

في النموذج الفرعي

إذا كان الحقل New "On،

و أدخل باركود اريد ان يتأكد بأن الباركود و الprodId جديدين،

و الا ان يعطيني رسالة بأن أعيد إدخال الباركود أو الProdID .

فكيف؟

و ها قد أرسلت لكم البرنامج - و بإمكانكم رؤية البضائع التي توضع في الstock Form

ِشكراًً جزيلاً

Question_No_Duplicate.zip

تم تعديل هذه المشاركة بواسطة Janna في 10 مارس 2008 في 23:37

#2

فقط في حالة الحقل جديد - New On

علينا أن نتأكد بأن الأرقام المدخلة غير موجودة .. وشكرا للاهتمام من أحد

#3

السلام عليكم طبعا عندي مشكلة قفل رأسي و لم أستطع فكها، فممكن إلقاء نظرة على الكود هذا و انا اضفته بbeforeupdate . جزاك الله خيراً


'*********************************
'Code
'*********************************
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.BarCodeNb.Value
stLinkCriteria = "[BarcodeNb]"
If DCount("BarcodeNb", "Stock", _
stLinkCriteria) > 0 Then
Me.[NEW] = True
MsgBox "This is a New Product"
Else
MsgBox "No Dupplicate - old but new off"
'Me.[NEW] = True
'MsgBox "This is a New Product"
End If

End Sub
Private Sub barcodenb_BeforeUpdate(Cancel As Integer)

#5

جزاك الله كل خير أختي..

و لكن انا أقفلت الNew بشكل ان ادخلوا الباركود جديد، و لم يكن موجودا يتحول الNew إلى On

فكيف ذلك ?

#6

عذرا اختي الكريمة لم انتبه لهذا الشرط في حال ان الباركود جديد فقد قمت بالتعديل على انه في حال كان الباركود وخانة الإختيار NEW مع بعض

عموما هذا الملف بعد التعديل

ادخلي رقم منتج جديد ثم اختاري خانة الإختيار NEW على صح ثم ادهلي رقم باركود جديد وسيقبل ذلك

في حالة كان رقم المنتج ورقم الباركود موجوده مسبقا وبدون اختيار خانة الإختيار فسيتم ظهور الرسالة ان رقم الباركود مكرر وسيتم انهاء الإجراء حتى يتم تغيير رقم الباركود الى رقم آخر مختلف

za_Question_No_Duplicate_up2.rar

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#7

أختي و أستتاذتي جزيت خيرا لقد أجبرته ان كان الباركود جديدا ان يشغل الNew لوحده و يتأكد أن رقم المنتج أيضا غير مكرر..

أبعثه غدا ان شاء الله لمن أراد..

آسفة لازعاجك..

#8

السلام عليكم

هذا هو الكود لاغلاق الموضوع و للمشاركة مع الجميع.. لقد أغلقت الحقل New لكيلا يعدّل به يدوياً و وضعت على الحقل Barcode الأوامر التالية قبل تحديث السجل..

Private Sub barcodenb_BeforeUpdate(Cancel As Integer)
    stLinkCriteria = "[barcodeNb]"
     If DCount("BarcodeNb", "Stock", [barCodeNb] > 0) And Me.NEW.Value = True Then
     DoCmd.CancelEvent
      Me.Undo
      End If
[code/]

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…