amrdipo2003 قام بنشر مايو 21, 2016 مشاركة قام بنشر مايو 21, 2016 السلام عليكم ورحمة اللههل توجد دالة تزيد حجم مربع النص مضاف الى تقرير عن 255 حرف علما بان المربع يقراء من استعلام ويقف عند زيادة عدد الاحرف عن 255 ضرورى رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 21, 2016 مشاركة قام بنشر مايو 21, 2016 وعليكم السلام ورحمة الله وبركاته بامكانك أن تجعل نوع البيانات بالحقل التابع له مربع النص مذكرة (Memo) كما بالصورة جرب ووافنا بالنتائج رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 21, 2016 الكاتب مشاركة قام بنشر مايو 21, 2016 الاخ الغالى اشكرك على المتابعة ولكن انا لا اقصد ذلك ولكن تم حل المشكله ولله الحمد بكود برمجى اشكرك على مرورك الكريم رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 21, 2016 مشاركة قام بنشر مايو 21, 2016 26 دقائق مضت, amrdipo2003 said: ولكن تم حل المشكله ولله الحمد بكود برمجى الحمد لله ممكن تتفضل بطرح هذا الكود هنا لتعم الفائدة ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
amrdipo2003 قام بنشر مايو 21, 2016 الكاتب مشاركة قام بنشر مايو 21, 2016 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 رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 21, 2016 مشاركة قام بنشر مايو 21, 2016 جزاك الله خيرا ولكن باعتقادى هذا الكود لجلب البيانات ولا علاقة له بحجما رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.