زيادة حجم مربع النص

[amrdipo2003]

السلام عليكم ورحمة اللههل توجد دالة تزيد حجم مربع النص مضاف الى تقرير عن 255 حرف علما بان المربع يقراء من استعلام 

ويقف عند زيادة عدد الاحرف عن 255 ضرورى 

[أبو عبدالله الحلوانى]

وعليكم السلام ورحمة الله وبركاته

بامكانك أن تجعل نوع البيانات بالحقل التابع له مربع النص مذكرة (Memo) كما بالصورة جرب ووافنا بالنتائج

 

[amrdipo2003]

الاخ الغالى اشكرك على المتابعة ولكن انا لا اقصد ذلك ولكن تم حل المشكله ولله الحمد بكود برمجى اشكرك على مرورك الكريم

[أبو عبدالله الحلوانى]

26 دقائق مضت, amrdipo2003 said:

ولكن تم حل المشكله ولله الحمد بكود برمجى

الحمد لله

ممكن تتفضل بطرح هذا الكود هنا لتعم الفائدة ولك جزيل الشكر 

[amrdipo2003]

Option Compare Database

Public Function HorizontalName(fld2 As Variant) As String

   Dim SQLx, Hname As String
   Dim rs As DAO.Recordset

    SQLx = "select q1.kind ,q1.dec from q1 order by q1.[kind],q1.A_no;"

   Set rs = CurrentDb.OpenRecordset(SQLx, dbOpenSnapshot)
       rs.MoveFirst
    Do While Not rs.EOF
   If rs!kind = fld2 Then

Hname = Hname & "¡" & rs!Dec
End If
       rs.MoveNext
         Loop
     

   If Hname <> "" Then
    HorizontalName = Right(Hname, Len(Hname) - 1) 
    Else
    HorizontalName = Hname
    End If
    Set rs = Nothing

End Function

 

[أبو عبدالله الحلوانى]

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

ولكن باعتقادى هذا الكود لجلب البيانات ولا علاقة له بحجما