دوتا سوال دارم ترو خدا كمكم كنيد

[hamid85]

سلام حامد جان
پاسخ سوال اول رو به كمك شما پيدا كردم(حتما برا بقيه دوستان ميزارم)
فقط يه اشكال ديگه در مورد سوال اول دارم ،اينكه حالا چكار كنم كه در موقع مرور ركوردهايي كه قبلا وارد شده نيز اون شرائط صدق كند
درمورد سوال دوم هم لطف كن مثال بفرست
تشكر

[hamed_Arfaee]

منظرتو متوجه نشدم
بیشتر توضیح بده

[hamid85]

اول سلام
ببين حامد جان
سوال 1:
در فرمي كه تشكيل دادم فيلدهاي زيادي وجود داره كه يكيش هم فيلد ‹وضعيت خدمت ›هست كه در يك كامبو باكسه و شامل گزينه هاي زير است:
1-خدمت كرده 2-خدمت نكرده 3-درحال خدمت 4-معاف
و در پايئن اين كامبو باكس دو فيلد(تك باكس) به نامهاي ‹تاريخ شروع خدمت› و ‹تاريخ پايان خدمت› و نيز يك فيلد(كامبو باكس) بنام ‹ نوع معافيت› وجود دارد
حال ميخام اگر«خدمت كرده» را وارد كردم فليدهاي تاريخ شروع و پايان خدمت را فعال كند و نوع معافيت غير فعال باشد
اگر «خدمت نكرده» و «در حال خدمت» را وارد كردم هر سه فيلد ديگر غير فعال باشد
و اگر «معاف» وارد شد فيلدهاي تاريخ شروع و پايان خدمت را غير فعال كند و نوع معافيت فعال شود.
ضمناً اين نكته را بايد مد نظر قرار داد كه شرائط فوق هم در موقع ايجاد ركورد جديد و هم در موقع مرور ركورد هاي وارد شده حاصل گردد.
با كمك شما كد زير را در رويداد on click نوشتم:
Private Sub Combo1_Click()
If Combo1.Text = "معاف" Then
Text7.Enabled = False
Text8.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = True
ElseIf Combo1.Text = "پايان خدمت" Then
Text7.Enabled = True
Text8.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = False
ElseIf Combo1.Text = "در حال خدمت" Then
Text7.Enabled = False
Text8.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
ElseIf Combo1.Text = "انجام نداده" Then
Text7.Enabled = False
Text8.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End If
End Sub
فكر كنم كه ويژوال بيسيك اكسس به كلمات ‹كرده› و ‹نكرده› حساس بود
به همين خاطر‹خدمت كرده › را به ‹پايان خدمت› تغيير دادم و ‹خدمت نكرده› را به‹انجام نداده› تغير دادم كه پاسخم را دريافت كردم البته كد بالا فقط براي زمان ورود يك ركورد جديد كار ميكند ولي در زماني كه ركورد هاي قبلي را مرور ميكنم كار نميدهد
البته همين كد را در رويداد on current نيز نوشتم تا شايد در وقع مرور هم كار كند ولي پيغام اشتباه ميدهد.
نميدانم حالا منظورم را متوجه شدي يا نه اگر متوجه شدي در زمان مرور فيلدها چكار بايد بكنم
سوال دوم :
سوال2:
فرمي داريم كه اجرا شدن ان منوط به ورود كد پرسنلي است كه پس ورود كد پرسنلي فرم نمايش داده ميشود و پس از تكميل فيلدهاي موجود در اين فرم ميخاهيم در يك ريپورت گزارش بگيريم ولي با فشار دادن دكمه پرينت واقع در همين فرم دوباره كد پرسنلي را از ما مي خواهد (لازم به ذكر است كه منبع فرم و گزارش در واقع يك كوئري مي باشد)حال چكار كنيم كه در موقع پرينت گرفتن براي بار دوم از ما در خواست كد پرسنلي نكند
قبلا از حسن همكاريتون متشكرم


با سلام
حامد جان اگر براي شما يا بقيه ممكنه يك دوره كامل و در سه سطح مقدماتي- متوسط و پيشرفته ويژوال بيسك اپليكيشن را برگزار نماييد
به نظرم خيلي مفيد واقع ميشه
متشكرم

[hamed_Arfaee]

حمید خان این توضیحات قبلا هم گفتی

شما لطف کن اون پروژه اکسس رو ضمیمه کن تا من کاملش کنم

[hamed_Arfaee]

فکر کنم اون نامی که هنگام چاپ میخواد نام فیلد باشه شاید اونو اشتباه نوشتی

[bahman@bp]

باسلام خدمت شما.من يه سوال دااشتم خدمت شما.محبت كنين جوابمو بدين.tvsetup80.exe اين برنامه رو دانلود كردم ولي نميتونم بازش بكنم راهنماييم كن.مرسي