شكرا لك اخي كنعان على هذه الهدية الطريفة
كنا نرى هذه النتيجة فقط من معالج اكسس ؟
الاستاذ كنعان :
لو تفضلت كرما منك بشرح او تعليق على الكود المصاحب خاصة هذه الاسطر الثلاث :
For i = 1 To Len(txtr)
dgt = AscW(Mid(txtr, (i), 1))
txts = txts & "Chrw (" & """" & dgt & """" & ") & "
Next i
myv = Left(txts, (Len(txts) - 2))