کمبوباکس [بایگانی] - برنامه نویس

smderfan

دوشنبه 15 مرداد 1386, 17:35 عصر

سلام
چند سوال البته روی نمونه :
1- می خوام وقتی کمبوباکس (محل دستگاه) باز بشه فیلدهایی که همنام هستند فیلتر شده و رکوردهای تکراری نمایش داده نشود مثلا اگر دو بار (واحد 1) تعریف شده فقط یک فیلد با نام (واحد 1) نمایش داده شود.
2- وقتی بروی کمبوباکس (محل دستگاه) دوبار کلیک کنید فرم (ثبت محل) باز می شود حالا می خوام اگر رکورد جدیدی وارد شد به عنوان مقدار پیش فرض درمحل فیلد کمبوباکس درج بشه
مثلا اگر مقداری بنام (انبار مرکزی) وارد شد وقتی فرم (ثبت محل) بسته شد مقدار (انبار مرکزی) بر روی کمبوباکس دیده بشه. ولی اگر مقداری ثبت نشد فیلد کمبو خالی و آماده انتخاب باشه.
3- وقتی از کمبوی (نام دستگاه) یک عنوان انتخاب شد بصورت خودکار (نام لاتین) آن در فیلد نام لاتین درج شود.

مهدی قربانی

دوشنبه 15 مرداد 1386, 17:47 عصر

سلام
عرفان عزیز نمونه خودت رو تغییر ات دادم (form2)

smderfan

سه شنبه 16 مرداد 1386, 00:39 صبح

* جدول اصلی Bank هست.
* کمبوباکس (محل دستگاه) مقدارش رو از جدول Table1 می گیره.
* سوم اینکه کمبوی (نام دستگاه) مقدارش رو از جدول Dastgah می گیره.
و باید همه این مقادیر در جدول Bank ذخیره بشه.
مشکلات زیر حل نشده :
1- در کمبوباکس (محل دستگاه) باز هم رکوردهای تکراری وجود دارد.
2- وقتی بروی کمبوباکس (محل دستگاه) دوبار کلیک کنید فرم (ثبت محل) باز می شود حالا می خوام اگر رکورد جدیدی وارد شد به عنوان مقدار پیش فرض درمحل فیلد کمبوباکس درج بشه. اگر نشد نمی خواد.
3- وقتی از کمبوی (نام دستگاه) یک عنوان انتخاب شد بصورت خودکار (نام لاتین) آن در فیلد نام لاتین درج شود. که انجام شد ولی رکورد مورد نظر در جدول Bank در فیلد namelatin ذخیره نمی شود

mohammadgij

سه شنبه 16 مرداد 1386, 10:04 صبح

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

smderfan

سه شنبه 16 مرداد 1386, 11:34 صبح

سلام و تشکر
فقط مشکلی که وجود داره اینکه وقتی فرم Table2 بصورت جداگانه باز و ورود اطلاعات می شه خطا میده چون فرم 1 باز نیست تا Forms("Form1").mohal.Value = Me.mohal.Value انجام بشه.
به چه صورت این فرمان اعمال بشه که اگر فرم اصلی 1 باز بود فرمان فوق اجرا شود در غیر این صورت روال عادی صورت بگیرد.
* ضمنا اگر بخوام کلید وسط ماوس رو قفل کنم باید چه فرمانی در رویداد Mouse Wheel قرار بگیره.

مهدی قربانی

چهارشنبه 17 مرداد 1386, 09:37 صبح

فقط مشکلی که وجود داره اینکه وقتی فرم Table2 بصورت جداگانه باز و ورود اطلاعات می شه خطا میده چون فرم 1 باز نیست تا Forms("Form1").mohal.Value = Me.mohal.Value انجام بشه.در رویه After Insert فرم Table2 اینطوری بنویس حل میشه :

Private Sub Form_AfterInsert()

If SysCmd(acSysCmdGetObjectState, acForm, "Form1") <> 0 Then
Forms("Form1").mohal.Value = Me.mohal.Value
Else
DoCmd.CancelEvent

End If
End Sub

ضمنا اگر بخوام کلید وسط ماوس رو قفل کنم باید چه فرمانی در رویداد Mouse Wheel قرار بگیره.این لینک رو ببین :
http://barnamenevis.org/forum/showthread.php?t=9226&highlight=%D8%AF%DA%A9%D9%85%D9%87+%D9%88%D8%B3%D8 %B7+%D9%85%D8%A7%D9%88%D8%B3&page=2