تقييم الموضوع :
  • 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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 1 161 24-06-21, 12:13 PM
آخر رد: مصمم هاوي
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 180 20-06-21, 03:24 AM
آخر رد: mido790006
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 188 11-06-21, 04:55 PM
آخر رد: gonm64
  استفسار عن ربط قاعدة بيانات gadr 2 170 23-05-21, 02:02 AM
آخر رد: Ahmed_Mansoor
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 420 09-05-21, 01:06 AM
آخر رد: مصمم هاوي
  طباعة بيانات الطلبة في الفليكس قريد مصمم هاوي 1 282 11-04-21, 01:58 AM
آخر رد: مصمم هاوي
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 10 720 01-04-21, 09:46 PM
آخر رد: اسلام الكبابى
  مساعدة في امتحاني Zahora 0 244 14-03-21, 08:06 PM
آخر رد: Zahora
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 914 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 921 25-02-21, 09:27 PM
آخر رد: ahmed201

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


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