PDA

View Full Version : ارور ذخیره و ویرایش


shkeramat
دوشنبه 02 آبان 1390, 23:37 عصر
با سلام
در فایل پیوست متاسفانه مشکل ذخیره و ویرایش اطلاعات دارم لطفا بررسی شود

با تشـــــــــــــــــــــــ ـــکر
dadsara
سه شنبه 03 آبان 1390, 10:31 صبح
سلام
ظاهرا فایل جنابعالی مشکل دارد و از حالت زیپ خارج نمی شود
shkeramat
سه شنبه 03 آبان 1390, 20:24 عصر
با سلام

فایل را کنترل کردم مشکلی نداشت ولی برای بار دوم ارسال میکنم ممنون از وقتی عنایت میکنید
Abbas Amiri
سه شنبه 03 آبان 1390, 20:31 عصر
فایلتان باز نمی شود .با یک برنامه دیگه فایلتان را زیپ کنید
shkeramat
پنج شنبه 05 آبان 1390, 17:26 عصر
امیدوارم مشکل برطرف شده باشه
Abbas Amiri
پنج شنبه 05 آبان 1390, 18:48 عصر
هنوز مشکل دارد
shkeramat
جمعه 06 آبان 1390, 20:35 عصر
با سلام و تشکر مجدد ارسال شد
ضمنا اگر باز نشد
این فایل در خصوص ورود اطلاعات جدید یا ویرایش قبل است دو فیلد تکست و دو فیلد عدد دارد نمونه دیگری محبت نمودید نیز سپاسگزارم
Abbas Amiri
جمعه 06 آبان 1390, 21:13 عصر
کد زیر را بجای کد برنامه بنویسید



DoCmd.RunSQL " INSERT INTO tblEmp ( code_P, Ne_Per, HO_M, M_Tax ) VALUES (" & Text0 & ", '" & Text1 & "', " & Text2 & " , " & Text3 & " ) "
shkeramat
شنبه 07 آبان 1390, 20:15 عصر
با سپاس دوست عزیز ضمنا چزا ادیت و ویرایش انجام نمیشه ممنون در این مورد هم کمک کنید
Abbas Amiri
شنبه 07 آبان 1390, 20:57 عصر
می توانید Record Source خود را به نام جدول نسبت دهید و کنترلهای آن را به فیلدهای جدول و یا از طریق برنامه نویسی.
shkeramat
یک شنبه 08 آبان 1390, 20:35 عصر
دوست محترم آیا کد زیر برای ادیت و ویرایش ایراد دارد
Private Sub Command14_Click()
DoCmd.SetWarnings False
If DLookup("code_P", "tblEmp", "code_P='" & txt0 & "' ") >= 1 Then
DoCmd.RunSQL "UPDATE tblEmp SET tblEmp.Ne_Per = '" & txt1 & "', tblEmp.Ho_M = '" & txt2 & "',tblEmp.M_Tax = '" & txt3 & "' WHERE (((tblEmp.code_P)='" & txt0 & "'))"
Abbas Amiri
سه شنبه 10 آبان 1390, 19:06 عصر
بله جواب می دهد به شرط اینکه نام Text ها را درست بنویسید txt0 > text0 وبقیه
shkeramat
سه شنبه 10 آبان 1390, 21:09 عصر
ممنون از محبت شما