View Full Version : سوال: در مورد کامبو باکس
vahid-masoudi
یک شنبه 23 بهمن 1390, 19:38 عصر
سلام
من فرمی ساختم و فرم دارای یک کامبو و 3 تکس باکس است حال با انتخاب آیتم 1 کامبو باکس می خواهم بطور خودکار بقیه آیتم در تکس باکس ثبت گردد
با تشکر
vahid-masoudi
دوشنبه 24 بهمن 1390, 09:09 صبح
سلام
کسی نیست کمکم کند
با تشکر
bita_ziba77
دوشنبه 24 بهمن 1390, 09:36 صبح
با سلام
شما كافي است از روش زير استفاده نماييد:
ابتدا كد زير را در بخش رخداد AfterUpdate كمبو باكس خود كپي كنيد.
Private Sub Combo0_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo0], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
كپي كنيد
سپس در بخش row source تمام فيلدهاي جدول شماره 1 خود را انتخاب نماييد. (حتما ID نيز انخاب شود)
با تشكر
vahid-masoudi
دوشنبه 24 بهمن 1390, 10:11 صبح
سلام دوست عزیز
من این کار را انجام دادم ولی نشد
با تشکر
bita_ziba77
دوشنبه 24 بهمن 1390, 13:20 عصر
با سلام شما اگر از اكسس 2007 استفاده مي كنيد مي توانيد از روش زير استفاده نماييد:
افزودن كمبوباكس جديد به فرم خود و از منوي ويزاد باز شده گزينه سوم يعني Find record on my form را انتخاب كرده و سپس فيلدهايي كه مي خواهيد در كمبوباكس شما به نمايش در بيايند را انتخاب كرده و سپس گزينه Finish و تمام !
vahid-masoudi
دوشنبه 24 بهمن 1390, 13:45 عصر
سلام دوست عزیز
من با اکسس 2003 کار می کنم
با تشکر
wolfstander
دوشنبه 24 بهمن 1390, 14:03 عصر
سلام دوست عزیز
من با اکسس 2003 کار می کنم
با تشکر
با هم فرقی ندارند
از ویزارد استفاده کنی مشکلت حل میشه
wolfstander
دوشنبه 24 بهمن 1390, 14:16 عصر
سلام
فکر کنم نظور شما این باشه
نمونه اصلاح شده رو ببین
vahid-masoudi
دوشنبه 24 بهمن 1390, 14:52 عصر
سلام دوست عزیز
از شما خیلی متشکرم
انشاء ا.. که سلامت باشید
rsrzae
جمعه 28 بهمن 1390, 10:25 صبح
خیلی ممنون منم دقیقا همین مشکل را داشتم
سلام
فکر کنم نظور شما این باشه
نمونه اصلاح شده رو ببین
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.