اشکال زدایی از این کد

[aknj56]

سلام دوستان امیدوارم خوب باشید
یک فرم دارم که توش چند تا تکس باکس هست که قبلا مشخصات اینها و اختصاص یک کد به هر شخص توی یک فرم دیگه ذخیره شده حالا میخام توی فرم دوم که کدشخص رو توی تکس باکس میزنم و اینتر میزنم تکس باکس ها دیکه که توی فرم از قبیل نام فامیل و غیره رو پرکنه این کدها رو نوشتم ولی ارور میده لطفا راهنمایی کنید

Untitled-1.gif

[ROSTAM2]

که قبلا مشخصات اینها و اختصاص یک کد به هر شخص توی یک فرم دیگه ذخیره شده

منظور از این مشخص نیست

تکس باکس ها رو پرکنه

منظور از اینم مشخص نیست

اگه اطلاعات دیتا بیس های توی برنامه رو می خوای

Data --> Show Data Sources

هر فیلدی که می خواستی درگ کن توی فرم

[A_1397]

دوست عزیر نباید تو رویداد enter این دستورات رو بنویسی. این رویداد دقیقا وقتی کرسور داخل تکست باکس قرار میگیره فراخوانی میشه یعنی قبل از وارد کردن کاراکتری داخل تکست باکس. داخل رویداد Key press تکست باکست این دستور رو بنویس:
If Asc(e.KeyChar) = 13 Then
If TextBox16.Text <> String.Empty Then
'در این قسمت کدهای خودت رو وارد کن

EndIf
EndIf
شرط اولین if بعد از زدن دکمه enter درست هستش و بعد از اون اگر تکست باکست خالی نباشه دستوراتت رو اجرا میکنه.

[aknj56]

دوست عزیز ممنون از توجه شما
اون طور که شما گفتید دستورات رو نوشتم ولی متاسفانه باز همون ارور رو داد

[Hybrid]

سلام ، دلیل این خطا واضحه شما نام ستون های موجود در بانکتون رو اشتباه نوشتین به دستور Select خوب توجه کن :

نوشتی famil.blok که باید به شکل famil,blok

یعنی به جای نقطه ویرگول بزار

[aknj56]

با تشکر از شما
ویرگول گذاشتم دیگه او ارور رو نمی ده ولی باز یک ارور دیگه می ده

[Hybrid]

نوع ستون kod رو چی گذاشتین ؟؟

در ضمن بعد از Textbox6.text رو کلا حذف کن یعنی

"" & textbox6.text رو به

textbox6.text تغییر بده در خط دستور اصلی Select .

در ضمن رویدادت رو هم تغییر بده اگه به رویداد دقت کنید شما در رویداد enter تمست باکس 16 این کد رو نوشتین یعنی گفتین اگه فوکوس روی تکست باکس 16 رفت این کدها اجرا بشن

چون که این رویداد قبل از اینکه چیزی رو داخل textbox16 وارد کنید اتفاق میفته دیگه دستور sql اجرا نمیشه چون textbox16.text خالی هست

[aknj56]

سلام آقا سیاوش
من نوع کد رو تکس گذاشتم
اون رو توی رویداد که دوستمان Key pressگفته بودند نوشتم به نظر شما کجا بهتر بنویسم من گفتم توی اینتر بنویسم که کد شخص رو که وارد کردم با یک اینترمشخصاتش بیاد وهمچنین اون اضافه ای که بعد از تکس باکس 16 فرمودید برداشتم ولی باز هم همون ارور رو میده اینم عکس فرم وقتی میخام توی اون تکس باکسی که جلو لیبل کد ساکن هست کد شخص رو بزنم بقیه مشخصات که نام فامیل بلوک و واحد هست خودش پر کنه

[Hybrid]

اگه نوع ستون کد رو number میزدین بهتر بود

2 تا تک کوتیشن کم گذاشتی یعنی به صورت :

"Select nam,famil,blok,vahed asami where kod='" & TextBox6.Text & "'"

[aknj56]

آقا سیاوش ممنونتم
حل شد با یک اینتر مشخصات که توی فرم دیگه پر کرده میاره
حالا میخاستم ببینم مشکل از همون تک کوتیشن بود یا چیز دیگه.
و این سئوال جهت تجربه خودم هست و اینکه چرا توی رویداد اینتر کار نمی کنه یک توضیح مختصر بدید

[Hybrid]

حل شد با یک اینتر مشخصات که توی فرم دیگه پر کرده میاره
حالا میخاستم ببینم مشکل از همون تک کوتیشن بود یا چیز دیگه.

یله مشکل از همون 2 تا تک کوتیشن بود اگه نوع ستون kod رو number میزدین دیگه نیازی به این تک کوتیشن ها نبود.

و این سئوال جهت تجربه خودم هست و اینکه چرا توی رویداد اینتر کار نمی کنه یک توضیح مختصر بدید

نگا شما در خط زیر

"Select nam,famil,blok,vahed asami where kod='" & TextBox6.Text & "'"

گفتین همه ی سطرهایی که مقدار فیلد kod اونا برابر textbox6.text بود رو برگشت بده تا اینجا درست و هیچ مشکلی نداره اما شما اومدین کد ها رو داخل رویداد enter تکست باکس 6 وارد کردین . این رویداد وقتی اتفاق میوفته که شما روی این تکست باکس فوکوس میکنین وقتی که هم فوکوس میشه کد ها ( از جمله کد بالا) اجرا میشه ولی مقدار textbox6.text خالی هست و هیچ سطری رو برگشت نمیده چون مقداری برای textbox6 وارد نکردید !

[کاظم فلاحی خواه]

می تونه از رویداد Leave استفاده کنه .