توافق تاريخ اليوم مع التاريخ الموجود في database لا يعمل ... أرجوا المساعدة ... وشكراً

لا أتعامل مع الكريستال ريبورت .. لأنني أقوم بعمل ريبورتات بلغة Html وتكون جيدة من حيث الشكل والتنسيق والمضمون..

ولكن سأعطيك بعض التلميحات التي من الممكن أن تساعد..

هذا علي اعتبار أن حقل التاريخ من نوع Date..

فعند استخدام معامل المقارنة (=) يجب أن يكون في الصيغة التالية وبدون علامتي (#) :

str$(Date)= "'" & str$(mydate) & "'"

قم بمحاولة تطبيق هذه الفكرة .. مع الكريستال ريبورت.. لأنني لا أجيد التعامل معه مطلقا..وأعلمني بالنتيجة..

شكراً أخي Pharaonic_Guy على الرد ولكن الحقل عندي ليس string الحقل هو تاريخ ووقت ولكن الكود الذي أرسلته لي يطلب مني أن أحول حقل التاريخ والوقت إلى حقل نصي على العموم

ساجرب اليوم وأعطيك الرد

جزاكم الله خيراً على الرد والاهتمام

أخي العزيز ..

لم أكن أطلب منك استخدامها مباشرة كما هي..

فهذا سيعطي الخطأ الذي ظهر لك بالفعل ..

بل يجب وضعها في جملة الشرط الذي وضعته في البداية

  import.myreport.SelectionFormula = "{import.datefollow2} = #" & mydate & "#"

لاحظ أنني اعتمدت علي أن حقل التاريخ من توع Date/Time..

ولذلك قمت بتحويله إلي String كما قلت أنت عن طريق

(Str(Date

ومقارنته بالتاريخ الحالي المحول أيضا إلي String.

str$(Date)= "'" & str$(Date) & "'"

الخلاصة أن الكود سيكون شيئ مثل هذا ..

import.myreport.SelectionFormula = "{str(import.datefollow2)} = '" & str(Date) & "'"

جرب وأعلمني بالنتيجة..

اقتباس

الخلاصة أن الكود سيكون شيئ مثل هذا ..

كود

import.myreport.SelectionFormula = "{str(import.datefollow2)} = '" & str(Date) & "'"

أخي العزيز Pharaonic_Guy

قمت بتجربة الكود ولكن لم يعطي أي تقارير خالص وللمعلومة عندما يكتب الكود هكذا

import.myreport.SelectionFormula = "'"

فإنه يعطي تقرير به كل سجلات الجدول كاملة

وإليك كل الكود الخاص بالفورم لعل هناك خطأ لا ألحظه

ومرة أخرى جزاك الله خيراً على الإهتمام

Private Sub Form_Load()
Dim SqlStr As String
Dim SqlStr1 As String
Dim SqlStr2 As String
Dim Mydate As String
Calendar = vbCalHijri
Mydate = Str(Date)
SqlStr = "Select * From user_tab"
If rs.State = adStateOpen Then rs.Close
rs.Open SqlStr, db, adOpenDynamic, adLockOptimistic

SqlStr1 = "Select * From import"
If rs1.State = adStateOpen Then rs1.Close
rs1.Open SqlStr1, db, adOpenDynamic, adLockOptimistic

SqlStr2 = "Select * From export"
If rs2.State = adStateOpen Then rs2.Close
rs2.Open SqlStr2, db, adOpenDynamic, adLockOptimistic
MsgBox (Date)

nam = Form6.Combo2.Text
main.Caption = "ÇáãÓÊÎÏã ÇáÍÇáí ááÈÑäÇãÌ" & " :: " & nam
MsgBox (nam)
rs.MoveFirst
rs.Find "user_name='" + CStr(nam) + "'", 0, adSearchForward, 1

If rs![export_s1] = "no" Then
main.expmenu.Enabled = False
End If
If rs![import_s1] = "no" Then
main.impmenu.Enabled = False
End If

If nam = "administrator" Or nam = "via_admin" Then
 main.users.Enabled = True
 import.secret.Enabled = True
 export.secret2.Enabled = True
End If

If nam = "administrator" Then
  import.myreport.ReportFileName = App.Path & ("\datefollow2.RPT")
  import.myreport.SelectionFormula = "{str(import.datefollow2)} = '" & Mydate & "'"
  import.myreport.WindowWidth = 800
  import.myreport.WindowHeight = 400
  import.myreport.PrintReport
  '''''''''''''''''''''''''''''
ElseIf nam = "administrator" Then
  export.myreport.ReportFileName = App.Path & ("\datefollow2exp.RPT")
  export.myreport.SelectionFormula = "{str(export.datefollow2exp)} = '" & Mydate & "'"
  export.myreport.WindowWidth = 800
  export.myreport.WindowHeight = 400
  export.myreport.PrintReport

ElseIf nam = "via_admin" Then
 import.myreport.ReportFileName = App.Path & ("\datefollow.RPT")
 import.myreport.SelectionFormula = "{str(import.datefollow)} = '" & Mydate & "'"
 import.myreport.WindowWidth = 800
 import.myreport.WindowHeight = 400
 import.myreport.PrintReport
 '''''''''''''''''''''''''''''
ElseIf nam = "via_admin" Then
 export.myreport.ReportFileName = App.Path & ("\datefollowexp.RPT")
 export.myreport.SelectionFormula = "{str(export.datefollowexp)} = '" & Mydate & "'"
 export.myreport.WindowWidth = 800
 export.myreport.WindowHeight = 400
 export.myreport.PrintReport

Else
 main.users.Enabled = False
 End If
End Sub

طبعاً لا يهمني في الكود إلا الجزء الخاص بطباعة التقارير

ياشباب أتمنى المشاركة هذه المشكلة الأخيرة تقريباً في ذلك المشروع

شكراً

وجه دعوة لمن تعامل مع الكريستال ريبورت أن يرد علي هذا الموضوع ..

علي العموم..

في الأول يجب التأكد من أن هناك سجلات مخزنة بتاريخ اليوم ..

ثانيا حاول تحويل الحقل datefollow2 من نوع Date/Time إلي نوع String بحجم 10..فإذا نفعت فسنحاول أن نري كيفية تطبيقها عندما يكون الحقل من نوع Date/Time..

ثالثا جرب الاستعلام مع تواريخ ثابتة لنري إذا كان الاستعلام يعمل أصلا أم لا .. سواء بالصيغة التالية :

import.myreport.SelectionFormula = "{str(import.datefollow2)} = '00/00/2006'"

أو بالصيغة التالية :

import.myreport.SelectionFormula = "{import.datefollow2} = #00/00/2006#"

أو :

import.myreport.SelectionFormula = "{import.datefollow2} = (00/00/2006)"

إذا لم تنفع أي طريقة .. فستنتظر من يأتي ويكتشف أين الخطأ هنا .. أو تبحث عن صيغ للبحث بالتاريخ علي النت .. وستجد الآلاف..