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

تحديث refresh فورم رئيسي عند ادخال باركود

kajin.tha60

بواسطه kajin.tha60
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة أبوبسمله,

الردود الموصى بها

  • تمت الإجابة
أبوبسمله

أبوبسمله

قام بنشر
  • تمت الإجابة
قام بنشر

اخى الفاضل

اكتب Me.Refresh 

Private Sub barcode_AfterUpdate()
DoCmd.SetWarnings False
Dim x1
x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.barcode), 0)
Me.Refresh
If x1 = 0 Then
MsgBox "åÐÇ ÇáÕäÝ ÛíÑ ãÓÌá", vbMsgBoxRight + vbCritical, "ÊäÈíå"
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit Sub
End If
DoCmd.SetWarnings True


End Sub

بالتوفيق

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept