نمایش اطلاعات مربوط به یک کد

[shayan_delphi]

سلام
می خوام وقتی تو فرمی کد یک شخص را وارد می کنم تمام اطلاعات مربوط به اون در فیلدهای
دیگه پر بشه.
حتما باید event بنویسم؟

[karmand]

اگر از ویزارد کمبو استفاده کنی جواب راحت می گیری به این صورت که فرمی که به جدولت وصل است و تمام تکستها را روی صفحه داری درست کن سپس یک کمبو را روی صفحه دراگ کن در ویزارو کمبو جایی 3 انتخاب دارد که سومی find.........دارد ان را انتخاب کن و ادامه بده مشکلت حل می شود
اما راه اصلی این نیست
باید recordsourse فرم را با دستور اس کیو ال عوض کنی

Private Sub cmb_maghsad_AfterUpdate()
Dim strsql As String
Me.Txt_cod_maghsad = Me.cmb_maghsad.Column(1)
strsql = "SELECT asli.cod_maghsad, asli.date_ersal, asli.sabt_ersal"

strsql = strsql & " FROM asli"

strsql = strsql & " WHERE (((asli.cod_maghsad)=[forms]![frm_ersal]![Txt_cod_maghsad]))"
strsql = strsql & " ORDER BY asli.sabt_ersal DESC;"

Me.RecordSource = strsql
Me.txt_last_sabt = Me!sabt_ersal
Me.txt_last_date = Me!date_ersal

End Sub