میشه اطلاعات یک combobox را به یک Query پاس داد؟

[hedieh_rt]

سلام دوستان، میشه اطلاعات یک comboBox را که انتخاب میکنم به یک Query پاس داد؟

[Sheerkoshan]

دوست عزیز
منظورت واضح نیست . منظور سورس combo است یا اینکه مقدار combo شرط کوری باشد ویا .......

[shayan_delphi]

چرا سوال این قدر مبهمه؟
توضیح بیشتر بدید.

[aslan_ir]

strsql = "select * from tablename where fieldname='" & Combo1.Text & "'"

[hedieh_rt]

تو فرمم یه ComboBox دارم، که از توش مثلاً شماره پرسنلی کارمندها انتخاب میشه، میخوام وقتی شماره ای را انتخاب کردم و یه Button را زدم یه Report باز بشه و یک سری رکورد راجع به اون شخص را ازTableای نشون بده.Report را به یک Query نسبت دادم که برحسب مقدار combo جدول را فیلتر کنه. چه جوری این کارو انجام بدم؟ اصلاً این راه حل خوبیه؟
امیدوارم واضح بوده باشه. مرسی از شما 3 نفر که وقت گذاشتین و مشکلمو خوندید.

[شاپرک]

ببینید درست متوجه شدم !؟

[sarami]

فکر میکنم منظورش همین باشه بعدشم سئوال میکنه می خوام وقتی چیزی پر نمیکنم همه رکورد ها رو بیاره lol

[hedieh_rt]

مرسی شاپرک جان خیلی لطف کردید.

[شاپرک]

خواهش میکنم

[Sheerkoshan]

دوست من حالا اگه توی یه فرم که شرایط را برای اجرای کوری تعیین می کنیم ( و درنتیجه فرم یا ریپورتی را باز میکنیم) ، یه شرط غلط بدیم می خوایم یه پیام بده
البته همونطور که جناب صارمی فرمودند اگه OR IS Null را به ادامه کد شاپرک جان اضافه کنیم هیچ شرطی اعمال نمی شه اما شرط غلط چی؟ فرم یا گزارش بدون هیچ رکوردی نمایش داده میشه در صورتیکه ما میخواهیم یه پیام بده

[شاپرک]

ببخشید منظورتون از شرط غلط چیه؟ یعنی اون مقداری که وارد میکنیم تو کمبو باکس نباشه؟

[Sheerkoshan]

OR..... IS Null را به ادامه کد شاپرک جان اضافه کنیم هیچ شرطی اعمال نمی شه اما شرط غلط چی؟ فرم یا گزارش بدون هیچ رکوردی نمایش داده میشه در صورتیکه ما میخواهیم یه پیام بده

[Sheerkoshan]

دوست من حالا اگه توی یه فرم که شرایط را برای اجرای کوری تعیین می کنیم ( و درنتیجه فرم یا ریپورتی را باز میکنیم) ، یه شرط غلط بدیم می خوایم یه پیام بده ؟
چه کنیم؟

[sarami]

منظورتون از شرط غلط چیه ؟

[moustafa]

دو راه دارد دررویداد on not in list کامبوباکس می نویسیم
msgbox"مقدار فوق جز شرایط گزارش یا فرم نمی باشد"
response=data.errcontinue
اما اگر کامبو باکس محدود به جدول نباشد یعنی خودمان نیز بتوانیم مقداری غیر از جدول باند شده به کامبو اضافه کنیم باید در رویدا ان کلیک فرم مربوطه کد زیرا را وارد کنیم
If DCount("[fild]", "[table]", "[fild]=forms!form!t") <> 0 Then
docmd.OpenForm"nameform"
else
msgbox"مقدار فوق جز شرایط نمی باشد "
end

[Sheerkoshan]

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

[شاپرک]

این طوری بهتر نیست ؟

[Sheerkoshan]

حق با شماست دوست من
لازم است که از بذل عنایت سرکار تشکر کنم