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

[kajin.tha60]

refresh form Main.rar

[أبوبسمله]

اخى الفاضل

اكتب 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

بالتوفيق

[kajin.tha60]

شكرا استاذ ( جزاك الله خيرا )

[أبوبسمله]

الشكر لله اخى

واياكم اخى بالتوفيق ان شاء الله