مساعدة عاجلة

ممكن توضيح السؤال اكثر

ارغب في اظهار نتائج البحث في الداتا قريد مع طباعتها مع امكانية عرض اسم الحقل باسم مختلف عن الاسم في قاعدة البيانات

بشرط مهم جدا

وهو عدم تغيير الرابط بنفس الرابط الموجودحتى

اتمكن من إظهار نتائج البحث وعند الضغط على

الحقل في الجدول

up

السلام عليكم

هذا الكود للداتا جرد :

  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\maktaba.mdb;"

  Dim Rec As Recordset
  
  Set Rec = New Recordset
  Rec.Open "SELECT DATA.*, DATA.tarek From Data WHERE (((DATA.tarek)>#" & Text10.Text & _
         "# And (DATA.tarek)<#" & Text11.Text & "#));", db, adOpenStatic, adLockOptimistic

  Set DataGrid1.DataSource = Rec

مع ملاحظة :

أن Text10.Text يحمل قيمة تاريخ البداية

و Text11.Text يحمل قيمة تاريخ النهاية

ويجب أن تلغي مرجع DAO

والله أعلم .

لطباعة تقرير احذف من الكود السابق :

  Set DataGrid1.DataSource = Rec

و اضف بدلاً منه السطرين :

    Set DataReport111.DataSource = Rec
    DataReport111.Show

والله أعلم