[حل شده] چند مشکل کوچک

[amirjjc]

با سلام خدمت اساتید محترم
در فایل پیوست بنده به سه مشکل خوردم لطفا راهنمایی بفرمایید
1 . در منوی اطلاعات فردی
با زدن کد پرسنلی و کد ملی اطلاعات افراد می آید ولی هر دو فیلد کد پرسنلی و کد ملی خالی می شود

2. در منوی جستجو ، خطایی میده که بنده متوجهش نمیشم

3. در منوی مرخصی
بعد از ثبت در بار اول همه چیز در جای خود است ، ولی در بارهای بعد به خط بعدی میره

ممنون میشم راهنماییم کنید

[Amir Ghasemiyan]

سلام دوست عزيز

براي مورد اول:

در بخش TextBox1_Change و TextBox2_Change كدهايي قرار داديد كه با تغيير تكست باكس ها بقيه تكست باكس ها خالي بشه. پس قاعدتا با وارد كردن اطلاعات در تكست باكس دوم ابتدا تكست باكس اول خالي ميشه و بعد چون تكست باكس اول تغيير كرده تكست باكس دوم هم خالي ميشه

در مورد سوال دوم:
خطا مربوط به ساب روتين ComboBox1_Change هست. در خط اول كد بايد بصورت زير اصلاح بشه:

Private Sub ComboBox1_Change()
TextBox1.Value = ""
Dim C As Range
For Each C In Sheet1.Range("A2:A10000")
If C.Value <> "" Then
TextBox1.Value = C.Offset(0, ComboBox1.ListIndex)
End If


Next
End Sub

در مورد سومين سوال :

شما در كد مربوط به CommandButton1_Click اين خط رو گذاشين كه باعث اين مشكل ميشه

If A = "" Then

با اين خط كد گفتين اگر مقدار اون سلول خالي بود اينكارها رو بكن در صورتي كه دفعه دوم قطعا مقدار سلول اول پر هست و به خط بعد ميره

[amirjjc]

شرمنده ولی متوجه نشدم ، هر چی فکر میکنم و کارهایی که گفتین رو انجام میدم یه جا دیگش اررور میده

(البته اینو بذارین به حساب اینکه خیلی تازه کارم و فعلا دارم آموزش میدم خودمو ، و با انجام هر چی به ذهنم میرسه کارمو جلو میبرم و از تجربیاتم تو کارای قبلیم و تجربیات دوستان استفاده میکنم)

و نکته دومی که مشکل داره ، گاهی حرف "ی" رو تو جستجو پیدا نمیکنه ، یعنی وقتی "ی" زده میشه تو کلمه کلا چیزی پیدا نمیکنه

[Amir Ghasemiyan]

تغييرات رو روي فايلتون اعمال كردم. فايل پيوست رو ملاحظه بفرماييد

در مورد ي بعضي جاها ي عربي و بعضي جاها فارسي خورده. تو انجمن خيلي در اين مورد بحث شده. سرچ كنيد متوجه ميشيد

[amirjjc]

ممنون همش درست شد ، غیر از یکی

فقط هنوز قسمت جستجوش ارور میده ، حتی با اعمال تغییرات شما

بابت حرف "ی" هم ممنون

[Amir Ghasemiyan]

چه خطايي ميده؟
پيام خطا كه ظاهر شد ، دكمه debug رو بزنيد و يك عكس از خطا بفرستيد.

[amirjjc]

ارورش هم 424 هست

[amirjjc]

یه سوال دیگه درباره فرم لاگین
اینکه غیر از ادمین اصلی کسی نتونه محتویات شیت هارو ببینه هم میتونید راهنماییم کنید ؟
فقط کابران بتونند یک الی دو شیت رو با ورود ببینند تو انجمن گشتم یک موضوع دیدم ولی زیاد به دردم نخورد

[Amir Ghasemiyan]

ارورش هم 424 هست

بجاي قسمت هاي زرد شده اين كد رو قرار بديد

If C.Offset(0, ComboBox1.Value).Value Like "*" & TextBox1.Text & "*" _
        And C.Offset(0, ComboBox1.Value).Value Like "*" & TextBox2.Text & "*" _
        And C.Offset(0, ComboBox1.Value).Value Like "*" & TextBox3.Text & "*" Then

[Amir Ghasemiyan]

یه سوال دیگه درباره فرم لاگین
اینکه غیر از ادمین اصلی کسی نتونه محتویات شیت هارو ببینه هم میتونید راهنماییم کنید ؟
فقط کابران بتونند یک الی دو شیت رو با ورود ببینند تو انجمن گشتم یک موضوع دیدم ولی زیاد به دردم نخورد

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

[amirjjc]

ممنون واقعا لطف کردید

[amirjjc]

آقای قاسمیان با عرض سلام و معذرت و عذرخواهی بابت مزاحمت های همیشگی

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

[Amir Ghasemiyan]

فايلتون رو بذاريد بررسي كنم

[amirjjc]

البته این نسخه مثل دمو هست ، بعدا قراره کپی بشه رو اون ، ولی متاسفانه رو همین هم جواب نمیده

[Amir Ghasemiyan]

خطا از اين قطعه كد هست

C.Offset(0, ComboBox1.Value)

مقدار كمبوباكس عدد نيست براي همين به مشكل ميخوريد. ميتونين با استفاده از دستور match عدد ستون رو پيدا كنيد و جايگزين ComboBox1.Value بكنيد