استفاده از دستورات select در فرم

[dadsara]

باسلام
در داخل یک فرم می خواهم وقتی شماره دانشجوئی یک فرد را زدم معدل ترم قبل را نشان دهد و درصورتیکه این دانشجو برای اولین بار ثبت نام می کند مقدار صفر را نشان دهم .
( در صورت امکان با استفاده از دستور Select )

[jaberian2]

براي اينكار مي توني از يه ساب فرم استفاده كني و با انتخاب كد دانشجويي در داخل كنترل باكس فرم اصلي اطلاعات مورد نظر هر دانشجو رو تو ساب فرم ببيني. براي صفر بودن نيز كافيه تو جدول مربوطه نوع فيلدرو NUMBRER انتخاب كني.
البته يه روش ديگه هم هست كه بدون ساب فرمه و اون با كمك كد نويسي و استفاده از يك كومبو باكس كنترل باكسه. به اين ترتيب كوئري كومبو رو از دو ستون كد دانشجويي و مقدار معدل ايجاد ميكني، تو Event مربوط به AfterUpdate كومبو كد مربوط به بازخواني ستون دوم كوئري _ مثل زير ) رو مي نويسي.

Private Sub AssetNum_AfterUpdate()
Me."Combo Name"= Me."AverageColumnname".Column(1)
End Sub

[dadsara]

باسلام
دوست عزیز ضمن تشکر از جنابعالی، متاسفانه ظاهرا منظورم را درست مطرح نکرده ام .
چنانچه بتوانم از روش select استفاده کنم ، می تواند کاربردهای مختلفی داشته باشد
بعنوان مثال هنگام ایجاد شماره دانشجوئی بایستی بزرگترین شماره دانشجو را پیدا کند( نه آخرین ) و آن را داخل یک متغیر ریخته و یک واحد به آن اضافه کند سپس بعنوان شماره دانشجو جدید ایجاد نماید .
(من قبلا این عمل را در زبان VB.Net دیده ام )

[karmand]

[CODE]dim rs as recordset
set rs = currentdb.openrecordset("select max(tablename.field) as alisa from tablename;")
myname=rs.fields("alisa")[code

[dadsara]

باسلام
دوست عزیز ضمن تشکر از راهنمائی شما مطلب فوق مشاهده شد و آن را برروی فرم خود قرار دادم . ولی متاسفانه خطای شماره 13 می دهد ضمن قراردادن نمونه سوال در ضمیمه درصورتیکه امکان داشته باشد نسبت به راهنمائی بیشتر اقدام نمائید.
ضمنا آیا می توان تعداد متغیرها بیشت از یک فیلد باشد درصورتیکه امکان داشته باشد در این مورد نیز راهنمائی کنید.

[dadsara]

ضمن عرض خسته نباشید به همه دوستان ،لطفا اگر وقت دارید بنده را راهنمائی کنید
باتشکر

[davood-ahmadi]

رفرنس دی ای او را به برنامه تون اضافه نکرده بودید.

[dadsara]

دوست عزیز ، واقعا از زحمتی که کشیدید متشکرم .
انشاءالله که در تمام مراحل زندگی موفق باشید . البته با اجازه جنابعالی با کمی تغییر مشکلم حل شد .:خجالت:
با عرض شرمندگی فقط اگر تاریخ ثبت را سالی انتخاب کنم که قبلا در آن سال هیچ رکوردی ذخیره نشده باشد چگونه می توان مقدار صفر را فیلد Text2 پاس کرد

[dadsara]

باسلام خدمت همه دوستان
مشکل قبلی نیز با راهنمائی و کمک دوستان حل شد ، ولی در نمونه ضمیمه به مشکل جدیدتری برخورد کردم و آنهم این است :
- در نمونه ضمیمه اگر مقدار TEXT12 را اعدادی مثل 1 - 2 - 7 یا 8 که در جدول MEMBER وجود دارد بزنم باقی فیلدها پر می شود . ولی سوال اینجا است که اگر Select هیچ مقداری را برنگرداند ( مثلا اگر عدد 3 را بزنم ) می خواهم پیغامی ظاهر شود و مجددا فوکوس روی Text12 باشد . ( در سورت امکان دستوراتی به غیر از On Error Go to )
- سوال دیگر اینکه آیا می توان دستورات DIM را مطابق نمونه پیوست چندین بار استفاده نمود و یا اینکه راهی می باشد که فقط یکبار آنرا بکار برد
اگر از دوستان کسی اینجانب را راهنمائی کند متشکر می شوم .

[dadsara]

باسلام خدمت همه دوستان
اگر کسی بتواند اینجانب را راهنمائی کند ممنون می شوم

[shaghaghi]

باسلام ...- در نمونه ضمیمه اگر مقدار TEXT12 را اعدادی مثل 1 - 2 - 7 یا 8 که در جدول MEMBER وجود دارد بزنم باقی فیلدها پر می شود . ولی سوال اینجا است که اگر Select هیچ مقداری را برنگرداند ( مثلا اگر عدد 3 را بزنم ) می خواهم پیغامی ظاهر شود و مجددا فوکوس روی Text12 باشد . ( در صورت امکان دستوراتی به غیر از On Error Go to )

سلام
بعد از دستور Select تان این شرط را بررسی کنید


If rst.EOF Then
MsgBox "No record "
Me.Text14 = Null
Me.Text16 = Null
rst.Close
Exit Sub
End If





- سوال دیگر اینکه آیا می توان دستورات DIM را مطابق نمونه پیوست چندین بار استفاده نمود و یا اینکه راهی می باشد که فقط یکبار آنرا بکار برد
اگر از دوستان کسی اینجانب را راهنمائی کند متشکر می شوم .
تعریف متغیرهایتان را در بالاترین قسمت کد نویسی از فرمتان ( بخشGeneral) وارد کنید

[dadsara]

باسلام دوست عزیز جناب Shaghaghi از راهنمائی شما متشکرم