السلام عليكم
دلتني الأستاذة زهرة حفظها الله على طريقة صنع محرك بحث في الفورمة: من خلال الكود التالي:
Private Sub Search_Click() Dim MyStr As String MyStr = Nz(Me.Text, "") If MyStr = "" Then Form.RecordSource = "SELECT tblEMP.* FROM tblEMP;" Else Form.RecordSource = "SELECT tblEMP.* FROM tblEMP" _ & " WHERE (((tblEMP.Name) Like '" & MyStr & "' & '*'));" End If End Sub
هذا الكود يبحث في حقل واحد هو:
tblEMP.Name
1- ماذا لو أردت لنفس الكود أن يبحث في كل حقول الفورمة أو في أكثر من حقل أنا أحددها؟ كيف يكون الكود في هذه الحالة؟
2- لو أدرت شيئا شبيها بهذا ولكن ليس للفورمة بل لصفحة HTML التي يصنعها الآكسيس من خلال خاصية pages فكيف أفعل ذلك؟
وجزاكم الله كل خير :)