تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عرض بيانات محددة في التقرير
#1
أرجو التعديل على كود التقرير التالي
كود :
If Trim(Combotasnif2.Text) = "" Then
MsgBox "íÌÈ ÇÎÊíÇÑ ÊÕäíÝ ÇáßÊÈ ÇæáÇ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÍÇáÉ ÇáÇÌÑÇÁ"
Combotasnif2.SetFocus
Exit Sub: End If

Call Connect_DataBase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic

If RS.RecordCount <= 0 Then
  MsgBox "ÚÝæÇð ... áã íÊã ÇáÚËæÑ Úáì Ãí ßÊÇÈ ãõÚÜÇÑ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíÜå"
  Combotasnif2.SetFocus
  Exit Sub
End If

Dim x As String

x = Combotasnif2.Text

Unload Raliieara2

If cn.State = 1 Then cn.Close
Raliieara2.DataControl1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=library ;Data Source=" & ServerName
RS.CursorLocation = adUseClient
If RS.State = 1 Then RS.Close
Raliieara2.DataControl1.Source = "Select * From Tab_aliieara Where tasnif_BooK='" & Trim(Combotasnif2.Text) & "'  order by IDCod"

Raliieara2.Show

والتعديل في هذا الجزء بحيث يتضمن عرض البيانات في التقرير حسب التصنيف المحدد من الكومبوكس Combotasnif2

كود :
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#2
Thumbs Down 
تم بحمد الله تعديل الكود

كود :
RS.Open "Select * From Tab_Books Where tasnif_BooK ='" & Trim(Combotasnif2.Text) & "'", cn, adOpenStatic, adLockPessimistic
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 114 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  مشكلة عدم ظهور البيانات في التقرير ahmed201 0 71 07-09-20, 03:33 AM
آخر رد: ahmed201
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 204 24-08-20, 03:23 AM
آخر رد: ahmed250
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 215 19-08-20, 09:01 PM
آخر رد: gonm64
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 146 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 372 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  [vb6.0] كيف احفظ التقرير باكثر من صيغه مثال ( في ملف PDF و Excel وWord ) في برنامجي المرفق ؟ Microformt 4 349 19-07-20, 03:03 AM
آخر رد: princeofislam
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 232 16-07-20, 03:22 AM
آخر رد: hasanqo
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 225 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor
  تقليل الفراغ بين الصفوف في التقرير عبدالله الصافي 6 361 25-06-20, 06:43 AM
آخر رد: عبدالله الصافي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم