تقييم الموضوع :
  • 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 166 20-11-20, 06:18 AM
آخر رد: sendbad100
  طلب كواد ترحيل بيانات منMSFlexGrid الي جدول ahmed201 3 108 15-11-20, 08:02 AM
آخر رد: sendbad100
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 284 25-10-20, 01:37 PM
آخر رد: sendbad100
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 549 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  مشكلة عدم ظهور البيانات في التقرير ahmed201 0 160 07-09-20, 03:33 AM
آخر رد: ahmed201
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 368 24-08-20, 03:23 AM
آخر رد: ahmed250
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 454 19-08-20, 09:01 PM
آخر رد: gonm64
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 326 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 645 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  [vb6.0] كيف احفظ التقرير باكثر من صيغه مثال ( في ملف PDF و Excel وWord ) في برنامجي المرفق ؟ Microformt 4 513 19-07-20, 03:03 AM
آخر رد: princeofislam

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


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