سوال: نشان دادن تمام کدهای مشابه با وارد کردن چند رقم [بایگانی]

Hossein.Mirzaei

یک شنبه 30 مرداد 1390, 12:10 عصر

من یک سری کد دارم (با تعداد کاراکتر های مختلف و حداکثر10 تا ) که میخواهم در فرم درون یک تکست باکس وقتی 2 یا 3 کاراکتر یا حتی بیشتر وارد میکنم تمام رکورد هایی که اول کدشون مثل کاراکتر های وارد شده هست رو به من نشون بده. لطفا راهنمایی کنید چطوری این کار رو انجام بدم.
با تشکر

RESMAILY

دوشنبه 31 مرداد 1390, 13:07 عصر

به نام خدا
با سلام. كجا نشان بدهد؟ احتمالا در يك ليست باكس يا يك فرم ديگر؟
در اينصورت از رويداد keyress و عملگر like استفاده كنيد. يك متغير براي كل كلاس ماجول هم لازم داريد. چيزي شبيه به كد زير:

Private strHarf As String

Private Sub ID_Name_KeyPress(KeyAscii As Integer)
strX = ChrW(KeyAscii)
If IsEmpty(strX) Then strX = Chr(KeyAscii)
strHarf = Trim(strHarf & strX)
sql = "SELECT strTable.* FROM strTable" & _
" WHERE (((strTable.ID_Name) Like '" & strHarf & "*'))"
Set db = CurrentDb: Set rs = db.OpenRecordset(sql)
If rs.EOF Then Exit Sub
Me.RecordSource = sql
End Sub

به جاي me مي شود ليست باكس را آدرس داد و غيره