در مورد کامبو باکس

[vahid-masoudi]

سلام

من فرمی ساختم و فرم دارای یک کامبو و 3 تکس باکس است حال با انتخاب آیتم 1 کامبو باکس می خواهم بطور خودکار بقیه آیتم در تکس باکس ثبت گردد

با تشکر

[vahid-masoudi]

سلام

کسی نیست کمکم کند

با تشکر

[bita_ziba77]

با سلام
شما كافي است از روش زير استفاده نماييد:
ابتدا كد زير را در بخش رخداد 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]

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

[bita_ziba77]

با سلام شما اگر از اكسس 2007 استفاده مي كنيد مي توانيد از روش زير استفاده نماييد:
افزودن كمبوباكس جديد به فرم خود و از منوي ويزاد باز شده گزينه سوم يعني Find record on my form را انتخاب كرده و سپس فيلدهايي كه مي خواهيد در كمبوباكس شما به نمايش در بيايند را انتخاب كرده و سپس گزينه Finish و تمام !

[vahid-masoudi]

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

[wolfstander]

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

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

[wolfstander]

سلام
فکر کنم نظور شما این باشه
نمونه اصلاح شده رو ببین

[vahid-masoudi]

سلام دوست عزیز

از شما خیلی متشکرم
انشاء ا.. که سلامت باشید

[rsrzae]

خیلی ممنون منم دقیقا همین مشکل را داشتم

سلام
فکر کنم نظور شما این باشه
نمونه اصلاح شده رو ببین