ربع تحرير وسرد مثل مربع نص

[esam]

هل استطيع ان اجعل مربع النص مثل مربع التحرير والسر بمعني انني عندما اكتب حرف ، لكلمة موجوده يعطيني تكملتها ، وهذا موجود في الاكسل

اذا كتبت كلمة السبت ، في السجل الاول ، وانتقلت الي السجل الثاني وكتبت حرف ( ا )فمن المفترض ان يكمل لي كلمة السبت

وجزاكم الله خيرا

[محمد الزعارير]

لتحويل الى مربع نص مع البقاء علية بوضعية مربع تحرير وسرد

1 اعمل مربع تحرير وسرد

2 بعد عمل مربع تحرير وسرد اجعل التركيز على حقل مربع تحرير وسرد

اضغط على زر الماوس الايمن ثم ختار خصائص ثم اختار التغير الى .... ثم اختار مربع نص

تجد

[osama457]

لماذا مربع نص ؟

اجعله مربع تحرير وسرد ونفرض أن اسمه cmbnn ، وأن الحقل اسمه nn ، والجدول اسمه tbl1

في خصايص مربع التحرير والسرد في حدث عند التغيير اكتب الكود التالي

Private Sub cmbnn_Change()
Dim InName As String
Dim mySQL As String
InName = Nz(Me.cmbnn.Text, "")
If InName = "" Then
    mySQL = "SELECT tbl1.nn, Count(*) AS Expr1" _
    & " FROM tbl1" _
    & " GROUP BY tbl1.nn" _
    & " ORDER BY Count(*) DESC;"
Else
    If Me.cmbnn.SelText = InName Then Exit Sub
    If Me.cmbnn.SelLength > 0 And Me.cmbnn.SelStart > 0 Then
        InName = Left(Me.cmbnn.Text, Me.cmbnn.SelStart)
    End If
    mySQL = "SELECT tbl1.nn, Count(*) AS Expr1" _
    & " FROM tbl1" _
    & " GROUP BY tbl1.nn" _
    & " HAVING (((tbl1.nn) Like '" & InName & "' & '*'))" _
    & " ORDER BY Count(*) DESC;"
End If
Me.cmbnn.RowSource = mySQL
Me.cmbnn.Dropdown
End Sub

وهذا مثال

وأدعو الاخوان للمشاركة في الكود السابق

cmb_Change.zip

[esam]

ولكنني مصر علي عمل مربع نص له خصائص مربع التحرير والسرد، فهل من طريقة اخري