isaac23
دوشنبه 28 اردیبهشت 1394, 23:18 عصر
سلام دوستان من 5 تا بانک اطلاعاتی دارم وفتی واسه اولین باز اجرا میشه و اون رو توسط XceedZipفشرده میکنم مشکلی نداره هر 5 تا فایل کپی میشه بدون مشکل اما وقتی میام از این دستور استفاده میکنم فایل DB5 که تو این دستور هست کپی نمیشه و فقط بقیه فایل ها کپی میشن مشکل چیه ممنون میشم کمک کنید .
Dim dbssa As Database
Set dbssa = OpenDatabase(App.Path & "\" & "Db5.mdb")
dbssa.Execute "Update T5 Set sho =" & Val(Text3) + 1 & " Where Kod=" & Adodc5.Recordset.Fields!kod
dbssa.Close
فکر کنم میگه جایی داره استفاده میشه ولی نمی دونم کجاست
Dim dbssa As Database
Set dbssa = OpenDatabase(App.Path & "\" & "Db5.mdb")
dbssa.Execute "Update T5 Set sho =" & Val(Text3) + 1 & " Where Kod=" & Adodc5.Recordset.Fields!kod
dbssa.Close
فکر کنم میگه جایی داره استفاده میشه ولی نمی دونم کجاست