تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله فى البحث بين تاريخين
#1
السلام عليكم ورحمة الله وبركاته

اخوانى الكرام

عملت برنامج للفاتورة الذكيه و يعمل لدى العميل بشكل مرضى ولكن به مشكله على جهاز العميل

حيث عند البحث بين تاريخين فى شاشه المبيعات عند الضغط على ذر البحث يعطى العميل كل العمليات التى تم بيعها.

مع المفروض انه يختار التاريخين الى قام بالبيع بينهما فقط .

وانا استخدم الاداه DTPicker1 + DTPicker2  ليقوم المستخدم باختيار التاريخين بينهما و اسم العميل او لا يختار اسم العميل وقمت بضبط تنسيق التاريخين كما يلى

dd/mm/yyyy

و جمله البحث كما يلى

كود :
DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# and Date >= #" & DTPicker1.Value & "# and Date <= #" & DTPicker1.Value & "# "
     Data1.Refresh
     Data1.Recordset.MoveLast

فقمت بتغيير اعدادات الويندوز و اختيار تنسيق التاريخ لجهاز الكمبيوتر ليصبح dd/mm/yyyy .

فأيضا اعطانى كل عمليا البيع وليس ما ابحث عنه فقط .

فقمت باستخدام text1  وقمت بتغير التنسيق ليكون  dd/mm/yyyy فايضا نفس المشكله

فقمت بتعديل قاعدة البيانات ليصبح التنسيق تاريخ قصير بتنسيق dd/mm/yyyy

فلم يعمل ايضا

ولكن عند تغير DTPicker1 ليصبح تنسيقها mm/dd/yyyy  مع الحفاظ على تنسيق DTPicker2 مع تنسيق dd/mm/yyyy


يعطى النتائج مظبوطه و لكن تنسيق اداه DTPicker1 بشكل و اداه DTPicker2 بشكل أخر يفقد البرنامج رونقه.

فهل اجد من يساعدنى فى ضبط التنسيق و البحث بين تاريخين او اجد لديكم حل أخر

بارك الله فيكم جميعا

الشاشه وقاعدة البيانات فى المرفقات


الملفات المرفقة
.rar   Invoice.rar (الحجم : 50.66 ك ب / التحميلات : 74)
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , حول تنسيق التاريخ بهذا التنسيق لأنه نفس التنسيق المحفوظ في الجدول بغض النظر عن إعدادات الجهاز أو أداة البيكر , جرب إستخدام جملة الإستعلام بهذا الشكل :

PHP كود :
Data1.RecordSource " select * from QInvoice where ClientName like '" CClientName.Text "*" "' and Date Between #" Format$(DTPicker1.Value,"mm/dd/yyyy")  & "# and #" &  Format$(DTPicker2.Value,"mm/dd/yyyy")  & "# "
     
Data1.Refresh
     Data1
.Recordset.MoveLast 
الرد }}}
#3
اخى العزيز احمد منصور
بارك الله فيك اخى و جعلها فى ميزان حسناتك

لم يضبط معى كود البحث

لقد قمت بتغييره كما تفضلت ولكنه اعطانى جميع عمليات البيع السابقة.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم
اعتقد بأنه يوجد خطأ في التنسيق للتاريخ لديك 
ولكن
جرب تغيير التنسيق في الاستعلام فقط للاداة  DTPicker1
واترك الثانية كما هي

PHP كود :
Data1.RecordSource " select * from QInvoice where ClientName like '" CClientName.Text "*" "' and Date Between #" Format(DTPicker1.Value,"mm/dd/yyyy" "# and #"  DTPicker2.Value "# " 
الرد }}}
تم الشكر بواسطة: Ashraf Elafify
#5
لقد قمت بتجربه هذا اخى الكريم

ولكن نفس المشكله قائمة

اخوانى الكرام

لقد قمت بوضع اثنين تكست بوكس وقمت باخذ قيمة DTPicker1.Value  للتكست بوكس  كما فى الكود التالى
كود :
On Error Resume Next
If CClientName.Text = "" Then CClientName.Text = "*"
DTPicker1.Value = Format(DTPicker1, "mm/dd/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value
TDTPicker1.Text = Format(TDTPicker1, "mm/dd/yyyy")
TDTPicker2.Text = Format(TDTPicker2, "dd/mm/yyyy")
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between '" & Format$(TDTPicker1.Text, "mm/dd/yyyy") & "' and '" & Format$(TDTPicker2.Text, "dd/mm/yyyy") & "' and Date >= '" & Format$(TDTPicker1.Text, "mm/dd/yyyy") & "' and Date <= '" & Format$(TDTPicker2.Text, "dd/mm/yyyy") & "' "
     Data1.Refresh
     Data1.Recordset.MoveLast

و يعمل ولكن تنسيق التاريخ فى ال  DTPicker1  به خلل

انظر الصورة التاليه

   


تنسيق التاريخ يظهرة على انه فى شهر يناير 2016

و عند اختيار تاريخ 13/11/2016 يعمل جيدا بدون اى خلل حيث انه لايوجد شهر رقم 13.

ارجو من لديه حل او فكرة ان يبلغنى بها

وبارك الله فى الجميع

اخوانى الكرام

انظروا فى المرفقات عند الضغط على ذر البحث يعطينى نتيجه صحيحه
و عند الضغط عليه مرة اخرى يعطينى نتيجه اخرى ( بمعنى يعطى جميع عمليات البيع ) بدون التغيير فى اى شيئ

فقط بسبب تنسيق التاريخ .


بالرجاء اريد من لديه رأى انا فى امس الحاجه له.

وشكرا اخوانى الكرام


الملفات المرفقة
.rar   Invoice.rar (الحجم : 44.56 ك ب / التحميلات : 49)
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته

تفضل اخي ان شاء الله يكون طلبك


بالتوفيق


الملفات المرفقة
.rar   Invoice.rar (الحجم : 45.09 ك ب / التحميلات : 60)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
#7
اخى العزيز الكريم احمد عبد العليم

بارك الله فيك اخى

عند تجربه امر بحث عن المبيعات وجدت ان هناك تبديل بين DTPicker1 و DTPicker2 فى الترتيب بالفورم

فعند البحث بين تاريخين 01/11/2016 و 22/11/2016

فى كل مره تضغط على ذر البحث يأتى بنتيجه مختلفه عن الاخر

بمعنى مره تأتى النتيجه صحيحه و الاخرى خطأ ثم الصحيحة ثم الخطأ و هكذا فى كل ضغطه على الذر.

فهل هناك حل أخر

بارك الله فى الجميع
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة:
#8
في عندك مشكلة في تنسيق كود التاريخ

ده كود البرنامج بالكامل احذف الكود الموجود وضع هذا الكود

بالتوفيق


PHP كود :
Dim cn As New adodb.Connection
Dim cn1 
As New adodb.Connection
Dim cn2 
As New adodb.Connection
Dim cn3 
As New adodb.Connection
Dim cn4 
As New adodb.Connection
Dim cn5 
As New adodb.Connection
Dim cn6 
As New adodb.Connection
Dim cn7 
As New adodb.Connection
Dim rsitem 
As New adodb.Recordset
Dim rsitem1 
As New adodb.Recordset
Dim rsitem2 
As New adodb.Recordset
Dim rsitem3 
As New adodb.Recordset
Dim rsitem4 
As New adodb.Recordset
Dim rsitem5 
As New adodb.Recordset
Dim rsitem6 
As New adodb.Recordset
Dim rsitem7 
As New adodb.Recordset
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LonglParam As Any) As Long
Private Const CB_SETITEMHEIGHT = &H153
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXVSCROLL 2
Dim m_bFilterEnabled 
As Boolean
Dim m_lRowHeight 
As Long
Dim m_lComboHeight 
As Long
Dim m_lScrollWidth 
As Long
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath 
As String
Public Function refreshall()
'ÊÍÏíË ÇáãÌãæÚ
Dim i As Integer
On Error Resume Next
Data1.Recordset.MoveFirst
Text_sum.Text = CDbl(0)
For i = 1 To Data1.Recordset.RecordCount
Text_sum.Text = CDbl(Text_sum.Text) + CDbl(Text3Data1.Text)
Data1.Recordset.MoveNext
Next
End Function
Public Function RefreshTDiccountTotal()
'
ÊÍÏíË ÇáãÌãæÚ
Dim i 
As Integer
On Error Resume Next
Data3
.Recordset.MoveFirst
Text_sumDisscount
.Text CDbl(0)
For 
1 To Data3.Recordset.RecordCount
Text_sumDisscount
.Text CDbl(Text_sumDisscount.Text) + CDbl(TDiccountTotal.Text)
Data3.Recordset.MoveNext
Next
End 
Function
Private 
Sub PrintInvoice_Click()
On Error Resume Next
        CR1
.ReportSource 0
        CR1
.ReportFileName App.Path & ("\invoiceno.rpt")
 
       CR1.Action 1
End Sub
Private Sub Command1_Click()
'Data1.RecordSource = "select * from QInvoice where date between #" & DTPicker1.Value & " # and #" & DTPicker2.Value & "# and Date >= #" & DTPicker1.Value & "# and Date <= #" & DTPicker2.Value & "# "
'
Data1.Refresh
'Data1.Recordset.MoveLast

End Sub
Private Sub CMDSearch_Click()
On Error Resume Next
If CClientName.Text = "" Then CClientName.Text = "*"
DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value
'
TDTPicker1.Text "13/10/2016"
'TDTPicker2.Text = "10/13/2016"
'
TDTPicker1.Text Format(TDTPicker1"mm/dd/yyyy")
TDTPicker2.Text Format(TDTPicker2"dd/mm/yyyy")
'Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
'
Data1.RecordSource " select * from QInvoice where ClientName like '" CClientName.Text "*" "' and Date Between #" Format$(DTPicker1.Value"mm/dd/yyyy") & "# and #" Format$(DTPicker2.Value"dd/mm/yyyy") & "# and Date >= #" Format$(DTPicker1.Value"mm/dd/yyyy") & "# and Date <= #" Format$(DTPicker2.Value"dd/mm/yyyy") & "# "
Data1.RecordSource " select * from QInvoice where ClientName like '" CClientName.Text "*" "' and Date Between '" Format$(TDTPicker1.Text"dd/MMM/yyyy") & "' and '" Format$(TDTPicker2.Text"dd/MMM/yyyy") & "'"
 
     Data1.Refresh
      Data1
.Recordset.MoveLast
Data3
.RecordSource "select * from QCreditors where ClientName like '" CClientName.Text "*" "' and Date Between '" Format$(TDTPicker1.Text"dd/MMM/yyyy") & "' and '" Format$(TDTPicker2.Text"dd/MMM/yyyy") & "'"
 
  
      Data3
.Refresh
      Data3
.Recordset.MoveLast
Form_Activate
Me
.Textsum
Me
.refreshall
Me
.RefreshTDiccountTotal
TDifF
.Text Val(TTotalòSellingPrice.Text) - Val(TTotalCostPrice.Text) - Val(TDisccount.Text)
End Sub
Public Sub Textsum()
On Error Resume Next
If CClientName.Text "" Then CClientName.Text "*"
DTPicker1.Value Format(DTPicker1"dd/mm/yyyy")
DTPicker2.Value Format(DTPicker2"dd/mm/yyyy")
TDTPicker1.Text DTPicker1.Value
TDTPicker2
.Text DTPicker2.Value
TDTPicker1
.Text Format(TDTPicker1"dd/mm/yyyy")
TDTPicker2.Text Format(TDTPicker2"dd/mm/yyyy")
'Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# and Date >= #" & DTPicker1.Value & "# and Date <= #" & DTPicker2.Value & "# "
       Data1.Refresh
'            Data1.Recordset.MoveFirst
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "
*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
      Data1.Refresh
            Data1.Recordset.MoveLast
                Data4.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "
*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "# "
                Data4.Refresh
                Data4.Recordset.MoveFirst
Text_sum.Text = 0
TTotalCostPrice.Text = 0
TTotalòSellingPrice.Text = 0
           Data4.Recordset.MoveFirst
1
            If Not Data4
.Recordset.EOF Then
                On Error Resume Next
                        Text_sum
.Text CDbl(Text_sum.Text) + CDbl(Text3.Text)
 
                       TTotalCostPrice.Text CDbl(TTotalCostPrice.Text) + CDbl(TCostPrice.Text)
 
                       TTotalòSellingPrice.Text CDbl(TTotalòSellingPrice.Text) + CDbl(TotalSumSellingPrice.Text)
 
                    Data4.Recordset.MoveNext
GoTo 1
            End 
If
End Sub

Private Sub DTPicker1_Change()
On Error Resume Next
DTPicker1
.Value Format(DTPicker1.Value"dd/MMM/yyyy")
TDTPicker1.Text DTPicker1.Value

End Sub
Private Sub DTPicker2_Change()
On Error Resume Next
TDTPicker2
.Text DTPicker2.Value
End Sub
Private Sub Exit_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Print_Click()
On Error Resume Next
        CR1
.ReportSource 0
        CR1
.ReportFileName App.Path & ("\invoicesearchbyname.rpt")
 
       CR1.Action 1
End Sub
Private Sub SearchItemName_Change()
On Error Resume Next
Data2
.RecordSource " select * from QNewItem where ItemName = '" SearchItemName.Text "' order by ID"
Data2.Refresh
Me
.refreshall
Me
.RefreshTDiccountTotal
End Sub
Private Sub Command11_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Form_Resize()
'On Error Resume Next
DBGrid1.Width = Val(Screen.Width) - 290
DBGrid1.Height = Val(Screen.Height) - 2200
'
Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub Form_Load()
On Error Resume Next
DBGrid1.Width = Val(Screen.Width) - 290
DBGrid1.Height = Val(Screen.Height) - 2200
   DTPicker1.Value Day(Now) & "/" Month(Now) & "/" Year(Now)
 
   DTPicker2.Value Day(Now) & "/" Month(Now) & "/" Year(Now)
'    DTPicker1.Value = Format(DTPicker1, "dd/mm/yyyy")
    DTPicker2.Value = Format(DTPicker2, "dd/mm/yyyy")
    
    DTPicker1.Value = Month(Now) & "/" & Day(Now) & "/" & Year(Now)
   DTPicker2.Value Month(Now) & "/" Day(Now) & "/" Year(Now)
 
   DTPicker1.Value Format(DTPicker1"dd/mm/yyyy")
'    DTPicker2.Value = Format(DTPicker2, "mm/dd/yyyy")
    MB1.Text = Time()
        TInvoice.Text = Format(TInvoice.Text, "00000000")
            TClientID.Text = Format(TClientID.Text, "00000000")
                TItemID.Text = Format(TClientID.Text, "00000000")
                    TCompanyID.Text = Format(TCompanyID.Text, "00000000")
                        TMowaredID.Text = Format(TMowaredID.Text, "00000000")
                            TUnitPrice.Text = 0
                            TUnitPrice.Text = Format(TUnitPrice.Text, "00.00")
                                TTransportPrice.Text = 0
                                TTransportPrice.Text = Format(TTransportPrice.Text, "00.00")
                                    TMiscellaneousPrice.Text = 0
                                    TMiscellaneousPrice.Text = Format(TMiscellaneousPrice.Text, "00.00")
                                        TActualQuantity.Text = 0
'
sPath _
'"Sys.sys"
'
Set daoDB36 DBEngine(0).OpenDatabase(sPath)
'Set rs = daoDB36.OpenRecordset("QinvoiceTemp")
'
Set Data1.Recordset rs
Data1
.RecordSource " select * from QinvoiceTemp where InvoiceNo = 1111111111111+0+23006+0 order by ID "
Data1.Refresh

''************************************************************************
''Company Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
'        If rsitem2.State = 1 Then rsitem2.Close
                   If cn3.State 0 Then
'                    cn3.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
                   End If
'                    rsitem2.Open "select * from CompanyINFO ", cn3, adOpenDynamic, adLockOptimistic
'
1:
'                    If Not rsitem2.EOF Then
                   CCompanyName.AddItem rsitem2!CompanyName
'                     rsitem2.MoveNext
                   GoTo 1
'        End If
''************************************************************************
'
Client Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
'        If rsitem3.State = 1 Then rsitem3.Close
                   If cn4.State 0 Then
'                    cn4.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
                   End If
''                    rsitem3.Open "select * from ClientINFO "cn4adOpenDynamicadLockOptimistic
'                    rsitem3.Open "select distinct(ClientName)from Invoice ", cn4, adOpenDynamic, adLockOptimistic
'
2:
'                    If Not rsitem3.EOF Then
                   CClientName.AddItem rsitem3!ClientName
'                     rsitem3.MoveNext
                   GoTo 2
'        End If
''************************************************************************
''Type ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
       If rsitem4.State 1 Then rsitem4.Close
'                    If cn5.State = 0 Then
                   cn5.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
'                    End If
                   rsitem4.Open "select * from Type "cn5adOpenDynamicadLockOptimistic
'3:
                   If Not rsitem4.EOF Then
'                    CType.AddItem rsitem4!TypeName
                    rsitem4.MoveNext
'                    GoTo 3
       End If
''************************************************************************
''Mowared Name ÊÚÈÆÊå ÇáßæãÈæ ÈæßÓ ÇáÎÇÕ ÈÜ
'        If rsitem5.State = 1 Then rsitem5.Close
                   If cn6.State 0 Then
'                    cn6.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
                   End If
'                    rsitem5.Open "select * from InvoiceType ", cn6, adOpenDynamic, adLockOptimistic
'
4:
'                    If Not rsitem5.EOF Then
                   CCashType.AddItem rsitem5!InvType
'                     rsitem5.MoveNext
                   GoTo 4
'        End If
''************************************************************************
End Sub
Private Sub Form_Activate()
On Error Resume Next
With DBGrid1
               .Columns(0).Caption = "ID"
               .Columns(0).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(1).Caption "ÑÞã ÇáÝÇÊæÑÉ"
 
              .Columns(1).Visible False
               
.Columns(1).NumberFormat "00000000"
'---------------------------------------------------------------------------
               .Columns(2).Caption = "ÊÇÑíΠÇáÝÇÊæÑÉ"
              .Columns(2).Visible False
'---------------------------------------------------------------------------
               .Columns(3).Caption = "ßæÏ ÇáÚãíá"
               .Columns(3).Visible = False
               .Columns(3).NumberFormat = "00000000"
'
---------------------------------------------------------------------------
 
              .Columns(4).Caption "ÇÓã ÇáÚãíá"
 
              .Columns(4).Visible False
'---------------------------------------------------------------------------
               .Columns(5).Caption = "ßæÏ ÇáÕäÝ"
               .Columns(5).NumberFormat = "00000000"
               .Columns(5).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(6).Caption "ÇÓã ÇáÕäÝ"
'---------------------------------------------------------------------------
               .Columns(7).Caption = "ÇáãÓÇÍÉ ÇáãÑÈÚÉ"
'
---------------------------------------------------------------------------
 
              .Columns(8).Caption "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
 
              .Columns(8).Visible False
'---------------------------------------------------------------------------
               .Columns(9).Caption = "Çáßãíå"
'
---------------------------------------------------------------------------
 
              .Columns(10).Caption "ÓÚÑ ÇáÊßáÝÉ"
 
              .Columns(10).Visible False
'---------------------------------------------------------------------------
               .Columns(11).Caption = "ÓÚÑ ÇáÈíÚ"
'
---------------------------------------------------------------------------
 
              .Columns(12).Caption "ÇáÎÕã"
'               .Columns(12).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(13).Caption "ÇáÇÌãÇáì"
'---------------------------------------------------------------------------
               .Columns(14).Caption = "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
              .Columns(13).Visible False
'---------------------------------------------------------------------------
               .Columns(15).Caption = "æÞÊ ÇáÈíÚ"
               .Columns(15).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(16).Caption "ÇáãÓÊÎÏã"
 
              .Columns(16).Visible False
'---------------------------------------------------------------------------
               .Columns(17).Caption = "ÍÇáå ÇáÏÝÚ"
               .Columns(17).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(18).Caption "ãáÇÍÙÇÊ"
 
              .Columns(18).Visible False
'---------------------------------------------------------------------------
               .Columns(19).Caption = "ÇÌãÇáì ÓÚÑ ÇáÊßáÝÉ ÈÇáãÊÑ"
               .Columns(19).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(20).Caption "ÇÌãÇáì ÓÚÑ ÇáÈíÚ ÈÇáãÊÑ"
 
              .Columns(20).Visible False
'---------------------------------------------------------------------------
               .Columns(21).Caption = "ÇáäæÚ"
               .Columns(21).Visible = False
'
---------------------------------------------------------------------------
 
              .Columns(0).Width 0
               
.Columns(1).Width '"ÑÞã ÇáÝÇÊæÑÉ"
               .Columns(2).Width = 1200 ' "ÊÇÑíΠÇáÝÇÊæÑÉ"
 
              .Columns(3).Width ' "ßæÏ ÇáÚãíá"
               .Columns(4).Width = 0 ' "ÇÓã ÇáÚãíá"
 
              .Columns(5).Width ' "ßæÏ ÇáÕäÝ"
               .Columns(6).Width = 5900 ' "ÇÓã ÇáÕäÝ"
 
              .Columns(7).Width 1200 ' "ÇáãÓÇÍÉ ÇáãÑÈÚå"
               .Columns(8).Width = 1200 ' "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
 
              .Columns(9).Width 1200 ' "Çáßãíå"
               .Columns(10).Width = 1200 ' "ÓÚÑ ÇáÊßáÝÉ"
 
              .Columns(11).Width 1200 ' "ÓÚÑ ÇáÈíÚ"
               .Columns(12).Width = 700 ' "ÇáÎÕã"
 
              .Columns(13).Width 1500 ' "ÇáÇÌãÇáì"
               .Columns(14).Width = 1500 ' "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
 
              .Columns(15).Width ' "æÞÊ ÇáÈíÚ"
               .Columns(16).Width = 0 ' "ÇáãÓÊÎÏã"
 
              .Columns(17).Width ' "ÍÇáå ÇáÏÝÚ"
               .Columns(18).Width = 3000 ' "ãáÇÍÙÇÊ"
'---------------------------------------------------------------------------
               .Columns(1).Alignment = dbgCenter '"ÑÞã ÇáÝÇÊæÑÉ"
 
              .Columns(2).Alignment dbgCenter ' "ÊÇÑíΠÇáÝÇÊæÑÉ"
               .Columns(3).Alignment = dbgCenter ' "ßæÏ ÇáÚãíá"
 
              .Columns(4).Alignment dbgRight ' "ÇÓã ÇáÚãíá"
               .Columns(5).Alignment = dbgCenter ' "ßæÏ ÇáÕäÝ"
 
              .Columns(6).Alignment dbgRight ' "ÇÓã ÇáÕäÝ"
               .Columns(7).Alignment = dbgCenter ' "ÇáãÓÇÍÉ ÇáãÑÈÚå"
 
              .Columns(8).Alignment dbgCenter ' "ÇáÑÕíÏ ÈÇáßÑÊæäÉ"
               .Columns(9).Alignment = dbgCenter ' "Çáßãíå"
 
              .Columns(10).Alignment dbgCenter ' "ÓÚÑ ÇáÊßáÝÉ"
               .Columns(11).Alignment = dbgCenter ' "ÓÚÑ ÇáÈíÚ"
 
              .Columns(12).Alignment dbgCenter ' "ÇáÎÕã"
               .Columns(13).Alignment = dbgCenter ' "ÇáÇÌãÇáì"
 
              .Columns(14).Alignment dbgCenter ' "ÇáÑÕíÏ ÇáãäÕÑÝ ÈÇáßÑÊæäå"
               .Columns(15).Alignment = dbgCenter ' "æÞÊ ÇáÈíÚ"
 
              .Columns(16).Alignment dbgCenter ' "ÇáãÓÊÎÏã"
               .Columns(17).Alignment = dbgCenter ' "ÍÇáå ÇáÏÝÚ"
 
              .Columns(18).Alignment dbgRight ' "ãáÇÍÙÇÊ"
End With
On Error Resume Next
With DBGrid2
               .Columns(0).Caption = "ID"
               .Columns(0).Visible = False
               .Columns(0).AllowRowSizing = False
'
---------------------------------------------------------
 
              .Columns(1).Caption "ßæÏ ÇáãÕäÚ"
 
              .Columns(1).Visible False
               
.Columns(1).AllowRowSizing False
               
.Columns(1).NumberFormat "00000000"
'---------------------------------------------------------
               .Columns(2).Caption = "ÇÓã ÇáãÕäÚ"
               .Columns(2).Visible = False
               .Columns(2).AllowRowSizing = False
'
---------------------------------------------------------
 
              .Columns(3).Caption "ßæÏ ÇáÕäÝ"
'               .Columns(3).Visible = False
              .Columns(3).AllowRowSizing False
'---------------------------------------------------------
               .Columns(4).Caption = "ÇÓã ÇáÕäÝ"
'
---------------------------------------------------------
 
              .Columns(5).Caption "ÇáäæÚ"
'---------------------------------------------------------
               .Columns(6).Caption = "ÇáãÞÇÓ"
'
---------------------------------------------------------
 
              .Columns(7).Caption "ßæÏ ÇáãæÑÏ"
 
              .Columns(7).Visible False
'---------------------------------------------------------
               .Columns(8).Caption = "ÇÓã ÇáãæÑÏ"
               .Columns(8).Visible = False
               .Columns(8).AllowRowSizing = False
'
---------------------------------------------------------
 
              .Columns(9).Caption "ÓÚÑ ÇáãÕäÚ"
'---------------------------------------------------------
               .Columns(10).Caption = "ãÕÇÑíÝ äÞá"
'
---------------------------------------------------------
 
              .Columns(11).Caption "ãÊÝÑÞÇÊ"
'---------------------------------------------------------
               .Columns(12).Caption = "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
'
---------------------------------------------------------
 
              .Columns(13).Caption "ÇáÑÕíÏ ÇáÝÚáì"
'---------------------------------------------------------
               .Columns(14).Caption = "ÇáÑÕíÏ ÇáãäÕÑÝ"
              .Columns(14).Visible False
'               .Columns(14).AllowRowSizing = False
'
---------------------------------------------------------
 
              .Columns(15).Caption "ÇáÑÕíÏ ÇáãÊÈÞì"
'---------------------------------------------------------
               .Columns(16).Caption = "ãáÇÍÙÇÊ"
'
---------------------------------------------------------
 
              .Columns(0).Width 0
               
.Columns(1).Width 1000 '"ßæÏ ÇáãÕäÚ"
               .Columns(2).Width = 2500 ' "ÇÓã ÇáãÕäÚ"
 
              .Columns(3).Width 1500 ' "ßæÏ ÇáÕäÝ"
               .Columns(4).Width = 3000 ' "ÇÓã ÇáÕäÝ"
 
              .Columns(5).Width 1500 ' "ÇáäæÚ"
               .Columns(6).Width = 1300 ' "ÇáãÞÇÓ"
 
              .Columns(7).Width 900 ' "ßæÏ ÇáãæÑÏ"
               .Columns(8).Width = 2500 ' "ÇÓã ÇáãæÑÏ"
 
              .Columns(9).Width 1000 ' "ÓÚÑ ÇáãÕäÚ"
               .Columns(10).Width = 900 ' "ãÕÇÑíÝ äÞá"
 
              .Columns(11).Width 900 ' "ãÊÝÑÞÇÊ"
               .Columns(12).Width = 900 ' "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
 
              .Columns(13).Width 900 ' "ÇáÑÕíÏ ÇáÝÚáì"
               .Columns(14).Width = 900 ' "ÇáÑÕíÏ ÇáãäÕÑÝ"
 
              .Columns(15).Width 900 ' "ÇáÑÕíÏ ÇáãÊÈÞì"
               .Columns(16).Width = 2000 ' "ãáÇÍÙÇÊ"
 
              .Columns(1).Alignment dbgCenter '"ßæÏ ÇáãÕäÚ"
               .Columns(2).Alignment = dbgRight ' "ÇÓã ÇáãÕäÚ"
 
              .Columns(3).Alignment dbgCenter ' "ßæÏ ÇáÕäÝ"
               .Columns(4).Alignment = dbgRight ' "ÇÓã ÇáÕäÝ"
 
              .Columns(5).Alignment dbgRight ' "ÇáäæÚ"
               .Columns(6).Alignment = dbgCenter ' "ÇáãÞÇÓ"
 
              .Columns(7).Alignment dbgCenter ' "ßæÏ ÇáãæÑÏ"
               .Columns(8).Alignment = dbgRight ' "ÇÓã ÇáãæÑÏ"
 
              .Columns(9).Alignment dbgCenter ' "ÓÚÑ ÇáãÕäÚ"
               .Columns(10).Alignment = dbgCenter ' "ãÕÇÑíÝ äÞá"
 
              .Columns(11).Alignment dbgCenter ' "ãÊÝÑÞÇÊ"
               .Columns(12).Alignment = dbgCenter ' "ÓÚÑ ÇáÈíÚ ááãÓÊåáß"
 
              .Columns(13).Alignment dbgCenter ' "ÇáÑÕíÏ ÇáÝÚáì"
               .Columns(14).Alignment = dbgCenter ' "ÇáÑÕíÏ ÇáãäÕÑÝ"
 
              .Columns(15).Alignment dbgCenter ' "ÇáÑÕíÏ ÇáãÊÈÞì"
               .Columns(16).Alignment = dbgRight ' "ãáÇÍÙÇÊ"
End With
'Me.refreshall
End Sub
Private Sub TDisccount_KeyPress(KeyAscii As Integer)
On Error Resume Next
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub Text_sum_Change()
On Error Resume Next
TTotal.Text = Val(Text_sum.Text) - Val(Text_sumDisscount.Text)
'
Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub Text_sumDisscount_Change()
TTotal.Text = Val(Text_sum.Text) - Val(Text_sumDisscount.Text)
'
Me.refreshall
'Me.RefreshTDiccountTotal
End Sub
Private Sub TGiven_Change()
On Error Resume Next
TRemaining.Text = Val(Text_sum.Text) - Val(TGiven.Text) - Val(TDisccount.Text)
Me.refreshall
Me.RefreshTDiccountTotal
End Sub
Private Sub TGiven_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub TOutgoing_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim s As String
s = "1234567890." & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub 
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
#9
بارك الله فيك اخى الكريم/ احمد عبد العليم
جارى التجربه ان شاء الله.
وبارك الله فى الجميع وجعلها في ميزان حسناتكم
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem
#10
اخى العزيز احمد عبد العليم

بارك الله فيك اخى

بعد استبدالى جميع اكواد الفورم التى ارسلتها الى بما لدى من اكواد لتلافى الخطأ فى تنسيق التاريخ

ايضاً اخى لم تعمل

كما يظهر فى الصور المرفقه

فى الصورة رقم 1 يتم كتابه التنسيق التاريخ 11/01/2016 ( يعنى الشهر ثم الثوم ثم السنه ) تأتى النتائج مضبوطه جيدا.

اما فى الصورة رقم 2 يتم كتابه تنسيق التاريخ 01/1/2016 ( يعنى يوم ثم شهر ثم سنه ) تأتى كل عمليات البيع . وهذا خطأ.

ارجو الافادة

وللجميع الشكر و العرفان


جزاكم الله خيرا

   

   

ممكن اخوانى التعديل على المرفقات

و تغيير او حذف الخطأ به

حتى يتسنى لى معرفه خطئى به و عدم تكرارة مرة اخرى
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله بتشغيل مشروع فيجوال ع ويندوز7 32بت m_zwahreh 3 2,145 09-02-23, 10:34 PM
آخر رد: ahmed.m
  مشكله datareport فراس محي 1 1,074 02-12-21, 11:37 AM
آخر رد: ahmedabdelaliem
  [vb6.0] مشكله active report 2.5 على نظام 32 بت tempman 2 1,532 17-02-21, 10:49 PM
آخر رد: Ahmed_Mansoor
  اظهار نتيجة البحث في اكتيف ريبورت hannileo 0 1,383 20-03-20, 12:54 PM
آخر رد: hannileo
  [vb6.0] الاستعلام بين تاريخين (غير مكرر) hannileo 4 2,525 05-02-20, 11:55 AM
آخر رد: hannileo
Music [vb6.0] طلب : أريد كود البحث بمجرد كتابة الحرف الأول في مربع النص وظهور النتيجة على DBgrid hamada salah90 3 6,617 09-11-19, 08:48 PM
آخر رد: hnan
  [vb6.0] كيف يتم البحث بدون الهمزات ابوثامر الحامد 2 1,820 08-08-19, 01:55 PM
آخر رد: ابوثامر الحامد
  البحث عن شيئين بنفس مربع البحث hannileo 2 2,190 25-10-18, 09:04 AM
آخر رد: hannileo
  [سؤال] كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد ليبيا 1 3,114 16-01-18, 01:24 AM
آخر رد: Amir_Alzubidy
  [سؤال] استعلام بين تاريخين حمادة الزملكاوى 4 3,258 17-11-17, 02:44 PM
آخر رد: الاصيله

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


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