[hannileo]

(26-09-17, 11:44 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
حياك الله اخي هاني 
هذا تعديل الكود : 

PHP كود :

On Error Resume Next: Err.Clear

Call Clear
If rst.State = adStateOpen Then rst.Close

rst.Open "Select * from tblprod", con, adOpenDynamic, adLockOptimistic



              With rst
              If Not .EOF Then
rst.MoveLast
lblpcode = "1" + Format(Date, "mmyy") + Format(Time, "hhmmss")
txtpname.SetFocus
rst.Close
              End If
              End With 


اشكرك استاذ امير  لقد حلت المشكلة 
بارك الله بك