PDA

View Full Version : انتخاب ثابت یک کد درفرم



fanavar
سه شنبه 24 مهر 1386, 16:53 عصر
سلام :
2تاسوال دارم :
1-من فرمی ایجادکردم که دارای چندفیلدبرای وروداطلاعات است حالامی خوام دراین فرم به این صورت عمل کنم که متن یکی ازفیلدهاثابت بمونه تادررکوردهای بعدی نیازبه صدازدن یاانتخاب اون نداشته باشم
2- درصورت مثبت بودن جواب بالا آیاامکان مخفی کردن این فیلدبصورتیکه درفرم دیده نشه ولی همون کارروانجام بده وجودداره یانه
من نمونه فرم روگذاشتم درصورت مثبت بودن دوجواب ممکنه روی نمونه پیاده کنین
باتشکر

مهدی قربانی
سه شنبه 24 مهر 1386, 17:16 عصر
سلام
دوست عزیز پاسخ سوال اولتون مثبته و سوال دومتون خیلی واضح نیست شما اگر میخوای کاربر قادر باشه گزینه های فروش و صندوق رو تغییر بده پس چرا این فیلد باید مخفی بشه ؟

fanavar
سه شنبه 24 مهر 1386, 17:24 عصر
برای اینکه می خوام اگه فروش بوددریک فرم واگه صندوق یاخریدبودفرم عوض بشه درمورد سوال اول میشه روی نمونه که گذاشتم توضیح بدین

مهدی قربانی
سه شنبه 24 مهر 1386, 17:43 عصر
بازم متوجه نشدم یعنی اگر شخص صندوق رو انتخاب کرد یک سابفرم و اگر فروش رو انتخاب کرد یک سابفرم دیگه که هرکدم مرتبط با این دو گزینه هستند باز بشن ، منظور شما همینه ؟
نمونه مرتبط با سوال اول شما ( در رخداد After Update فیلد Date کد مربوطه رو نوشتم )

fanavar
سه شنبه 24 مهر 1386, 18:09 عصر
بله دقیقا می خوام برای صندوق وفروش هرکدوم یک سابفرم بازبشه ولی تغییرات دقیقاروی همون فرمی که بازه انجام بشه یعنی باتغییر کپشن فرم متوجه فرم فروش یاصندوق/خرید می شویم

مهدی قربانی
سه شنبه 24 مهر 1386, 18:38 عصر
برای این منظور شما باید دو سابفرم داشته باشید بعد هر دو رو در فرم اصلی قرار بدین و کد زیر رو در رخداد On Open فرم کپی کنید

Private Sub Form_Open(Cancel As Integer)
Me.subforoosh.Visible = False
Me.subkharid.Visible = False
End Sub
و این کد رو هم در رخداد After Update کامبوباکس codem کپی کنید :

Private Sub codem_AfterUpdate()
If codem.Value = 610 Then
Me.subforoosh.Visible = True
Me.subkharid.Visible = False
Else
Me.subforoosh.Visible = False
Me.subkharid.Visible = True

End Sub

fanavar
چهارشنبه 25 مهر 1386, 01:02 صبح
دوست عزیز:
موقعی که می خوام unit*price ازtable فروش روappend کنم درفیلد bed بادرنظرگرفتن hesabid ÷یغام خطا می ده چرا لطف کنین امتحان کنید

مهدی قربانی
چهارشنبه 25 مهر 1386, 01:40 صبح
دوست عزیز:
موقعی که می خوام unit*price ازtable فروش روappend کنم درفیلد bed بادرنظرگرفتن hesabid ÷یغام خطا می ده چرا لطف کنین امتحان کنید
نمونه تکمیلی رو آپلود کنید تا اشکال رو بررسی کنیم .

fanavar
چهارشنبه 25 مهر 1386, 08:51 صبح
سلام :
طبق گفته شما نمونه روآپلودکردم

مهدی قربانی
چهارشنبه 25 مهر 1386, 11:07 صبح
دوست عزیز اولاً که نمونه ای که شما آپلود فرمودید نسبت به نمونه قبلی به نظر ناقص می رسه ثانیاً علت عدم اجرای append اینه که شما در جدول مقصد فیلد Hesabid رو کلیدی قرار دادید و درصورتیکه مقدار ارسالی به این جدول قبلاً موجود باشه طبعاً عملیات ناموفق خواهد بود مگر اینکه مقدار تکراری نباشه (hesabid) .

saeed razaee
چهارشنبه 25 مهر 1386, 12:14 عصر
سلام
دوست عزیز شما می توانید از tab control نیز استفاده کنید و برای هر یک از تبها صندوق و یا فروش یا هر نام دیگری قرار دهید و داخل آن ساب فرم مربوطه را قرار دهید.

fanavar
چهارشنبه 25 مهر 1386, 13:31 عصر
mehdi-gh عزیز:
اگه مقدور براتون میشه نمونه روکه گذاشتم دستور append روبرام ایجادکنید که جواب بده ومشخص کنید که hesabid روچطوری بایدتغییربدم

مهدی قربانی
چهارشنبه 25 مهر 1386, 17:17 عصر
اگر شما قصد دارید که عملیات Append‌ رو به مقصد جدول Hesab انجام بدید باید hesabid رو در جدول hesab از حالت کلیدی خارج کنید در این صورت عملیات Append بدون مشکل انجام میشه . تست کنید اگر مشکلی بود در خدمتم .

fanavar
چهارشنبه 25 مهر 1386, 17:26 عصر
سلام :
خسته نباشی
من append رواجراکردم ولی جواب بذارین به حساب ناشی بودن من من نمونه روکه انجام دادم دوباره آپلودکردم لطف کنین یه نگاه بدازین

مهدی قربانی
چهارشنبه 25 مهر 1386, 18:16 عصر
علیک سلام
روی جداول و ارتباطات موجود در نمونه شما تغییراتی دادم و یک appnd query‌ هم ایجاد کردم .