دستور برای ایجاد رکورد جدید

[look20]

با سلام و خسته نباشید به دوستان و اساتید زحمت کش این بخش

بخشید می خوام وقتی روی دکمه new که رکورد جدید میسازه کلیک کردم

اگه مثلا در رکورد قبلی ؛ برای مثلا فیلد تعداد عدد 850 بود عدد 850 رو در رکورد جدید فیلد تعداد وارد کنه و اگه درفیلد تعداد عددی نبود؛ در رکورد جدید،فیلد تعداد رو خالی بزاره
امیدوارم منظورم رو متوجه شده باشید
با تشکر

متاسفانه نتونستم فایلم رو اپلود کنم می دونید که با این سرعتها نمیشه!

[polisoftco]

rs.addnew
if trim(txtTedad) <> "" then
rs.Fields("tedad") = Val(txtTedad.Text)
else
rs.Fields("tedad") = ""
end if
rs.Update


rs نام رکوردست هستش، اگه از ADODC استفاده میکنین بجاش ADODC1.Recordset رو بنویسین.

[look20]

با سلام ببخشید ارور میده این ارور:
البته اسم فیلدم رو txtcod گذاشتم و فیلد مربوط به جدولش هم cod
ولی چرا این ارور رو میده نمیدونه توی دوتا تصویر زیر نشون داده کجا ارور میده!!!

[polisoftco]

بجای "" عبارت "0" رو بزار ببین چی میگه، همچنین این خطا وقتی تکست باکس خالی بود میده یا تکست پر هم باشه این ارور رو میده؟

[look20]

با سلام ببینید فرمم به این شکله
در واقع قسمت پایین ساب فرم قسمت بالاست
می خوام :
1- وقتی توی قسمت بالا فیلد cod مثلا رکورد 850106 رو میارم
در قسمت پایین وقتی new رو میزنم خودش عدد 850106 رو توی فیلد cod در قسمت پایین فرمم بیاره و

2- وقتی توی قسمت بالا فیلد cod مثلا رکورد 850107 رو میارم
در قسمت پایین وقتی new رو میزنم خودش عدد 850107 رو توی فیلد cod در قسمت پایین فرمم بیاره و .. به همین ترتیب یعنی هر کدی که در فیلد codقسمت اول فرمم بود توی فیلد cod قسمت دوم فرمم هم بیاره با تشکر
البته اگه لطف کنید فقط همین مشکلو حل کنید می دونم یه سری مشکلات داره ولی بعدم درستش می کنم

[polisoftco]

دوست عزیز برنامه شما یکم (!!) از ریشه عیب داره (لقمتو دور سرت پیچوندی) به نظر من بهترین راه اینه که روشتون رو تغییر بدین، برای برنامه نویسی دیتابیس بهتره از ADODB استفاده کنین واسه یادگیری هم به تاپیک "پایگاه داده در اکسس از ابتدا تا پایان" مراجعه کنین.

من فقط قسمت کد رو تغییر دادم.

[look20]

سلام واقعا دستون درد نکنه مشکلم کاملا حل شد
ممنون
من که نمیتونم در مقابل زحمتی که کشیدید کاری انجام بدم
ولی دعا می کنم انشاءا... توی کار و زندگی موفق باشید