مشکل در بانک اطلاعاتی اکسس

A

alipayande

New Member
سلام من یه مشکل با برنامم پیدا کردم

ارور ران تایم94 میده

برنامه با وی بی هستش

کسی می تونه کمکم کنه:rose:!!!
​
 
the_king

the_king

مدیرکل انجمن
alipayande گفت:
سلام من یه مشکل با برنامم پیدا کردم

ارور ران تایم94 میده

برنامه با وی بی هستش

کسی می تونه کمکم کنه:rose:!!!
​
کلیک کنید تا باز شود...

کد: 
Error 94 :
Invalid use of Null

Null is a Variant subtype used to indicate that a data item contains no valid data.
This error has the following cause and solution: 

You are trying to obtain the value of a Variant variable or an expression that is Null.
For example: 
MyVar = Null
For Count = 1 To MyVar
    . . .
Next Count

Make sure the variable contains a valid value.

من همان قدر کمکتان می کنم که شما در مورد کدتان اطلاعات داده اید :

یک متغیر یا فیلدی داشته اید که مقدار فعلی اش Null بوده است.
شما سعی به استفاده از مقدار آن داشته اید که به همین دلیل با این پیغام روبرو شده اید.

در حالی که شما پیش از استفاده از مقدار آن متغیر یا فیلد، با کمک تابعی مثل ()IsNull شرط وجود
یک مقدار غیر Null را بررسی کنید.

مثلا فرض کنیم که شما قصد دسترسی به متغیر MyVar را دارید. تنها در صورتی کدهای داخل
شرط If اجرا می شود، که مقدارش غیر از Null باشد (و دیگر خطا ایجاد نمی شود)

کد: 
    If IsNull(MyVar) = False Then
    
    End If
 
A

alipayande

New Member
سلام
من تو این زمینه (وی بی) مبتدی هستم در ضمن
تا دیروز درست کار می کرد یهو اینجوری شد:cry:
کد ارور اینه

Error 96 :
Invalid use of Null

من چک کردم

کل رکوردهام حدود 8000 تا هست و رکورد های بالای 6000 رو پاک می کنم درست می شه
در ضمن به این باگ میده [FONT=&quot] [/FONT]text2.Text = Adodc1.Recordset(1).Value
اینم کل کد فرمم

کد: 
    Option Explicit
  Dim strsearch As String
  Dim tarikhjo As Date
  Private Sub lockedfield[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]text1.Locked = True
  [FONT=&quot]    [/FONT]text2.Locked = True
  [FONT=&quot]    [/FONT]Text3.Locked = True
  [FONT=&quot]    [/FONT]Text4.Locked = True
  [FONT=&quot]    [/FONT]Text5.Locked = True
  [FONT=&quot]    [/FONT]Text6.Locked = True
  [FONT=&quot]    [/FONT]Text7.Locked = True
  End Sub
  [FONT=&quot] [/FONT]
  Public Sub unlockedfield[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]text1.Locked = False
  [FONT=&quot]    [/FONT]text2.Locked = False
  [FONT=&quot]    [/FONT]Text3.Locked = False
  [FONT=&quot]    [/FONT]Text4.Locked = False
  [FONT=&quot]    [/FONT]Text5.Locked = False
  [FONT=&quot]    [/FONT]Text6.Locked = False
  [FONT=&quot]    [/FONT]Text7.Locked = False
  End Sub
  [FONT=&quot] [/FONT]
  [FONT=&quot] [/FONT]
  [FONT=&quot] [/FONT]
  Private Sub cmdcancel_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Adodc1.Recordset.CancelUpdate
  [FONT=&quot]    [/FONT]Call hidebutton
  [FONT=&quot]    [/FONT]Call lockedfield
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmddelete_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Dim strp As Integer
  [FONT=&quot]    [/FONT]strp = MsgBox[FONT=&quot]("آيا مي خواهيد ركورد جاري را خذف كنيد؟", [/FONT]vbYesNo[FONT=&quot], "حذف")[/FONT]
  [FONT=&quot]    [/FONT]If strp = 6 Then
  [FONT=&quot]        [/FONT]Adodc1.Recordset.Delete
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]        [/FONT]Adodc1.Recordset.MovePrevious
  [FONT=&quot]        [/FONT]If Adodc1.Recordset.BOF Then
  [FONT=&quot]            [/FONT]Adodc1.Recordset.MoveNext
  [FONT=&quot]        [/FONT]End If
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdfirst_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Adodc1.Recordset.MoveFirst
  [FONT=&quot]    [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdlast_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Adodc1.Recordset.MoveLast
  [FONT=&quot]    [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdmain_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Form6.Hide
  [FONT=&quot]    [/FONT]Unload Form6
  [FONT=&quot]    [/FONT]Form2.Show
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdmodify_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Call unhidebutton
  [FONT=&quot]    [/FONT]Call unlockedfield
  [FONT=&quot] [/FONT]End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdnew_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Call unhidebutton
  [FONT=&quot]    [/FONT]Call unlockedfield
  [FONT=&quot]    [/FONT]text2.Text[FONT=&quot] = ""[/FONT]
  [FONT=&quot]    [/FONT]Adodc1.Recordset.AddNew
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdnext_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Adodc1.Recordset.MoveNext
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Adodc1.Recordset.MoveLast
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]     [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdok_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Dim X As Integer
  [FONT=&quot]    [/FONT]tarikhjo = CDate(text2.Text[FONT=&quot])[/FONT]
  [FONT=&quot]    [/FONT]Adodc1.Recordset(1).Value = CStr(tarikhjo[FONT=&quot])[/FONT]
  [FONT=&quot]    [/FONT]On Error Resume Next
  [FONT=&quot]    [/FONT]Adodc1.Recordset.Update
  [FONT=&quot]    [/FONT]If Err <> 0 Then
  [FONT=&quot]        [/FONT]X = MsgBox[FONT=&quot]("شماره پرونده وجود ندارد", , "خطا")[/FONT]
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Call hidebutton
  [FONT=&quot]    [/FONT]Call lockedfield
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdperivious_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Adodc1.Recordset.MovePrevious
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF Then
  [FONT=&quot]        [/FONT]Adodc1.Recordset.MoveFirst
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub cmdsearch_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Dim book1 As Variant
  [FONT=&quot]    [/FONT]book1 = Adodc1.Recordset.Bookmark
  [FONT=&quot]    [/FONT]Adodc1.Recordset.MoveFirst
  [FONT=&quot]    [/FONT]If optshomare.Value Then
  [FONT=&quot]        [/FONT]strsearch = InputBox[FONT=&quot]("لطفا شماره پرونده شخص مور نظر را وارد كنيد")[/FONT]
  [FONT=&quot]        [/FONT]If strsearch = "" Then
  [FONT=&quot]            [/FONT]Adodc1.Recordset.Bookmark = book1
  [FONT=&quot]            [/FONT]Exit Sub
  [FONT=&quot]        [/FONT]End If
  [FONT=&quot]            [/FONT]Adodc1.Recordset.Find "shomare_parvande=" & strsearch
  [FONT=&quot]            [/FONT]Command2.Enabled = True
  [FONT=&quot]            [/FONT]If Adodc1.Recordset.EOF Then
  [FONT=&quot]                [/FONT]Adodc1.Recordset.Bookmark = book1
  [FONT=&quot]                [/FONT]MsgBox[FONT=&quot] ("شخص مورد نظر وجود ندارد")[/FONT]
  [FONT=&quot]                [/FONT]Exit Sub
  [FONT=&quot]            [/FONT]End If
  [FONT=&quot]            [/FONT]text2.Text = Adodc1.Recordset(1).Value
  [FONT=&quot]    [/FONT]End If
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub Command1_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Dim bk
  [FONT=&quot]    [/FONT]bk = Adodc1.Recordset.Bookmark
  [FONT=&quot]    [/FONT]Adodc1.CommandType = adCmdText
  [FONT=&quot]    [/FONT]Adodc1.RecordSource = "select count(shomare_parvande) from moraje where shomare_parvande='" & text1.Text[FONT=&quot] & "'"[/FONT]
  [FONT=&quot]    [/FONT]Adodc1.Refresh
  [FONT=&quot]    [/FONT]Label3.Caption = Adodc1.Recordset.Fields(0).Value
  [FONT=&quot]    [/FONT]Adodc1.CommandType = adCmdText
  [FONT=&quot]    [/FONT]Adodc1.RecordSource = "select * from moraje[FONT=&quot]"[/FONT]
  [FONT=&quot]    [/FONT]Adodc1.Refresh
  [FONT=&quot]    [/FONT]Adodc1.Recordset.Bookmark = bk
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub Command2_Click[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Dim X As String
  [FONT=&quot]    [/FONT]cmdsearch.Enabled = False
  [FONT=&quot]    [/FONT]If Not Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Adodc1.Recordset.MoveNext
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.EOF Then
  [FONT=&quot]            [/FONT]X = MsgBox[FONT=&quot]("شخص مورد نظر پيدا نشد", , "جستجو")[/FONT]
  [FONT=&quot]            [/FONT]cmdsearch.Enabled = True
  [FONT=&quot]            [/FONT]Command2.Enabled = False
  [FONT=&quot]            [/FONT]Adodc1.Recordset.MoveFirst
  [FONT=&quot]            [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]    [/FONT]Adodc1.Recordset.Find "shomare_parvande=" & strsearch
  [FONT=&quot]    [/FONT]If Not Adodc1.Recordset.EOF Then
  [FONT=&quot]            [/FONT]text2.Text = Adodc1.Recordset(1).Value
  [FONT=&quot]    [/FONT]End If
  End Sub
  [FONT=&quot] [/FONT]
  Private Sub Form_Load[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]strsearch = no
  [FONT=&quot]    [/FONT]Call lockedfield
  [FONT=&quot]    [/FONT]Call hidebutton
  [FONT=&quot]    [/FONT]Calendar = vbCalHijri
  [FONT=&quot]    [/FONT]If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Exit Sub
  [FONT=&quot]    [/FONT]End If
  [FONT=&quot]     [/FONT]Adodc1.Recordset.Sort = "tarikh[FONT=&quot]"[/FONT]
  [FONT=&quot]     [/FONT]Adodc1.Recordset.Find "shomare_parvande=" & no
  [FONT=&quot]     [/FONT]If Adodc1.Recordset.EOF Then
  [FONT=&quot]        [/FONT]Adodc1.Recordset.MoveFirst
  [FONT=&quot]     [/FONT]End If
  [FONT=&quot]     [/FONT]text2.Text = Adodc1.Recordset(1).Value
  End Sub
  [FONT=&quot] [/FONT]
  Public Sub hidebutton[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]cmddelete.Visible = True
  [FONT=&quot]    [/FONT]cmdmodify.Visible = True
  [FONT=&quot]    [/FONT]cmdnew.Visible = True
  [FONT=&quot]    [/FONT]cmdsearch.Visible = True
  [FONT=&quot]    [/FONT]cmdlast.Visible = True
  [FONT=&quot]    [/FONT]cmdperivious.Visible = True
  [FONT=&quot]    [/FONT]cmdnext.Visible = True
  [FONT=&quot]    [/FONT]cmdfirst.Visible = True
  [FONT=&quot]    [/FONT]cmdcancel.Visible = False
  [FONT=&quot]    [/FONT]cmdok.Visible = False
  [FONT=&quot]    [/FONT]cmdmain.Visible = True
  End Sub
  [FONT=&quot] [/FONT]
  Public Sub unhidebutton[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]cmddelete.Visible = False
  [FONT=&quot]    [/FONT]cmdmodify.Visible = False
  [FONT=&quot]    [/FONT]cmdnew.Visible = False
  [FONT=&quot]    [/FONT]cmdsearch.Visible = False
  [FONT=&quot]    [/FONT]cmdlast.Visible = False
  [FONT=&quot]    [/FONT]cmdperivious.Visible = False
  [FONT=&quot]    [/FONT]cmdnext.Visible = False
  [FONT=&quot]    [/FONT]cmdfirst.Visible = False
  [FONT=&quot]    [/FONT]cmdcancel.Visible = True
  [FONT=&quot]    [/FONT]cmdok.Visible = True
  [FONT=&quot]    [/FONT]cmdmain.Visible = False
  End Sub
  [FONT=&quot] [/FONT]
  [FONT=&quot] [/FONT]
  Private Sub Text2_LostFocus[FONT=&quot]()[/FONT]
  [FONT=&quot]    [/FONT]Dim X As Integer
  [FONT=&quot]    [/FONT]If Not IsDate(text2.Text) Then
  [FONT=&quot]        [/FONT]text2.Text[FONT=&quot] = ""[/FONT]
  [FONT=&quot]        [/FONT]X = MsgBox[FONT=&quot]("لطفا يك تاريخ معتبر وارد كنيد.", , "خطا")[/FONT]
  [FONT=&quot]        [/FONT]text2.SetFocus
  [FONT=&quot]    [/FONT]End If
  End Sub


​
 
the_king

the_king

مدیرکل انجمن
من در مورد مقداری که در درون Value هست هیچ اطلاعی ندارم ولی اگه بخوام همینطور سریع و از سر واکنی جلوی ایجاد
خطای برنامه رو بیگیرم، در هر جای برنامه که مقدار را در درون Text2 قرار می دهید، سطر زیر را با پنج سطر بعدی
تعویض می کنم :

کد: 
text2.Text = Adodc1.Recordset(1).Value

کد: 
    If IsNull(Adodc1.Recordset(1).Value) = False Then
        text2.Text = Adodc1.Recordset(1).Value
    Else
        text2.Text = ""
    End If

یعنی اگر مقدار Null بود مقدار text2.Text را بجای مقدار دهی مستقیم که ایجاد خطا می کنه، صرفا خالی می کنم.
 
A

alipayande

New Member
آقا خیلی دمت گرم
مشکلم حل شد

فقط یه چیزی این کد چون خودتون گفتید از سر واکنی هستش بعد ها مشکل ساز نمی شه
 
the_king

the_king

مدیرکل انجمن
alipayande گفت:
آقا خیلی دمت گرم
مشکلم حل شد

فقط یه چیزی این کد چون خودتون گفتید از سر واکنی هستش بعد ها مشکل ساز نمی شه
کلیک کنید تا باز شود...

نه مشکل ساز نمیشه.
از سر وا کردن مشکل بود، از این جهت که بجای اینکه دنبال اون حالتی بگردیم که مقدار Null را در بانک اطلاعاتی نوشته اید
(که اصولا با منطق برنامه شما نبایستی چنین عملی انجام می شد)، فقط در لحظه نمایش اطلاعات مورد رو رفع کردیم.

مثل کارخونه ای می مونه که بعضی از محصولاتش معیوب هستند. بجای اینکه ببینیم کجای مرحله تولید ایراد داره و
اون رو رفع کنیم، موقع بسته بندی محصولات، موارد معیوب رو جدا کرده ایم. پس مشکل را اساسی حل نکردیم
و از سرمون وا کردیم ولی به هر حال محصول معیوب هم دست مشتری نمی دیم.
 
A

alipayande

New Member
سلام

من توی فرم دیگه باز با همون مشکل ربرو شدم همون ران تایم 94:cry:

نمی دونم این چه بلایی سر ما اومده
ممنونم که راهنماییم می کنید:rose:

کد باگ
کد: 
      Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value)

کد اصلی فرم:

کد: 
    Option Explicit
  Dim strreport As String, q As String
  Dim intamar(1 To 47) As Integer
  Dim strdate As String
  Dim i As Byte
  Dim k As Integer
  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
   
  Private Sub cmdmain_Click()
      form3.Hide
      Unload form3
      Form2.Show
  End Sub
   
  Private Sub Command1_Click()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
   
  'report for gender
      For i = 1 To 44
          intamar(i) = 0
      Next
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(gender), gender from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "' group by gender"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÐßÑ"
                          intamar(2) = Adodc1.Recordset.Fields(0).Value
                      Case "ãæäË"
                          intamar(1) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(3) = intamar(1) + intamar(2)
      'report for tahsilat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(modrak_tahsili),modrak_tahsili  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by modrak_tahsili"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÈíÓæÇÏ"
                          intamar(4) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎæÇäÏä æ äæÔÊä"
                          intamar(5) = Adodc1.Recordset.Fields(0).Value
                      Case "ÑÇåäãÇíí æÓíßá"
                          intamar(6) = Adodc1.Recordset.Fields(0).Value
                      Case "Ïíáã", "íÔ ÏÇäԐÇåí íÇ Ïíáã"
                          intamar(7) = intamar(7) + Adodc1.Recordset.Fields(0).Value
                      Case "ÏßÊÑÇ", "ÝæÞ áíÓÇäÓ", "áíÓÇäÓ", "ÝæÞ Ïíáã"
                          intamar(8) = intamar(8) + Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(9) = intamar(4) + intamar(5) + intamar(6) + intamar(7) + intamar(8)
      
    'report for vaseat tahol
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(v_taahole),v_taahole  from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by v_taahole"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÌÑÏ"
                          intamar(10) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÒÏæÇÌ ãÌÏÏ", "ãÊÇåá"
                          intamar(11) = Adodc1.Recordset.Fields(0).Value
                      Case "ãØáÞå íÇ ãÊÇÑßå"
                          intamar(12) = Adodc1.Recordset.Fields(0).Value
                      Case "åãÓÑ ÝæÊ ßÑÏå"
                          intamar(13) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(14) = intamar(10) + intamar(11) + intamar(12) + intamar(13)
     
   
     'report for shoghle
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(shoghle),shoghle  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by shoghle"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÏÇäÔ ÂãæÒ"
                          intamar(15) = Adodc1.Recordset.Fields(0).Value
                      Case "ÏÇäÔÌæ"
                          intamar(16) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäå ÏÇÑ"
                          intamar(17) = Adodc1.Recordset.Fields(0).Value
                      Case "ßæÏß", "ÈíßÇÑ"
                          intamar(18) = intamar(18) + Adodc1.Recordset.Fields(0).Value
                      Case "ÈÇÒäÔÓÊå"
                          intamar(19) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÏæáÊí"
                          intamar(20) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÎÕæÕí"
                          intamar(21) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(22) = intamar(15) + intamar(16) + intamar(17) + intamar(18) + intamar(19) + intamar(20) + intamar(21)
   
  'report for noe khadamat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(khadamat),khadamat  from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by khadamat"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÝÑÏí"
                          intamar(23) = Adodc1.Recordset.Fields(0).Value
                      Case "Ñæåí"
                          intamar(24) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäæÇÏå"
                          intamar(25) = Adodc1.Recordset.Fields(0).Value
                      Case "ÒæÌ"
                          intamar(26) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÏÏßÇÑí"
                          intamar(27) = Adodc1.Recordset.Fields(0).Value
                      Case "ßáÇÓ ÂãæÒÔí"
                          intamar(28) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑÎÏãÇÊ"
                          intamar(29) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(30) = intamar(23) + intamar(24) + intamar(25) + intamar(26) + intamar(27) + intamar(28) + intamar(29)
   
  'report for moshakhasat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(elat_maraje),elat_maraje  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by elat_maraje"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÇÎÊáÇáÇÊ ÑæÇäí", "ÇÝÓÑϐí", "ÇÖØÑÇÈ", "æÓæÇÓ"
                          intamar(31) = intamar(31) + Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÎÇäæÇϐí"
                          intamar(32) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÒäÇÔæíí"
                          intamar(33) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÞÊÕÇÏí æ ÔÛáí"
                          intamar(34) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÌÊãÇÚí æ ÈÒåßÇÑí"
                          intamar(35) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÌäÓí"
                          intamar(36) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ãÑÊÈØ ÈÇ ÑæíÏÇÏåÇí ÇÓÊÑÓ ÒÇí Òäϐí"
                          intamar(37) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÑÇÆå ÑÇåäãÇíí"
                          intamar(38) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÊÍÕíáí"
                          intamar(39) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÚÊíÇÏ"
                          intamar(40) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑ ãæÇÑÏ"
                          intamar(41) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ßæÏßÇä"
                          intamar(42) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔÇæÑå ÇÒÏæÇÌ"
                          intamar(43) = Adodc1.Recordset.Fields(0).Value
                  End Select
                             
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(44) = intamar(31) + intamar(32) + intamar(33) + intamar(34) + intamar(35) + intamar(36) + intamar(37) + intamar(38) + intamar(39) + intamar(40) + intamar(41) + intamar(42) + intamar(43)
     
     'report noeshoghl
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(noe_shoghle), noe_shoghle from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "' group by noe_shoghle"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "æ"
                          intamar(45) = Adodc1.Recordset.Fields(0).Value
                      Case "Û"
                          intamar(46) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(47) = intamar(45) + intamar(46)
   
      Call insertrecord1
         Adodc2.Refresh
         cr5.ReportFileName = "C:\RAVANPOYA\report\rcenter.rpt"
         cr5.RetrieveDataFiles
         cr5.SelectionFormula = "{report.f1}>=0"
         cr5.Action = 1
         Command1.Enabled = False
         Timer1.Enabled = True
    End Sub
   
  Private Sub Command2_Click()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
   
  'report for gender
      For i = 1 To 44
          intamar(i) = 0
      Next
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(gender), gender from moshtarydarmanjo  WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "' group by gender"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÐßÑ"
                          intamar(2) = Adodc1.Recordset.Fields(0).Value
                      Case "ãæäË"
                          intamar(1) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(3) = intamar(1) + intamar(2)
      'report for tahsilat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(modrak_tahsili),modrak_tahsili  from moshtarydarmanjo WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "'group by modrak_tahsili"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÈíÓæÇÏ"
                          intamar(4) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎæÇäÏä æ äæÔÊä"
                          intamar(5) = Adodc1.Recordset.Fields(0).Value
                      Case "ÑÇåäãÇíí æÓíßá"
                          intamar(6) = Adodc1.Recordset.Fields(0).Value
                      Case "Ïíáã", "íÔ ÏÇäԐÇåí íÇ Ïíáã"
                          intamar(7) = intamar(7) + Adodc1.Recordset.Fields(0).Value
                      Case "ÏßÊÑÇ", "ÝæÞ áíÓÇäÓ", "áíÓÇäÓ", "ÝæÞ Ïíáã"
                          intamar(8) = intamar(8) + Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(9) = intamar(4) + intamar(5) + intamar(6) + intamar(7) + intamar(8)
      
    'report for vaseat tahol
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(v_taahole),v_taahole  from moshtarydarmanjo  WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "'group by v_taahole"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÌÑÏ"
                          intamar(10) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÒÏæÇÌ ãÌÏÏ", "ãÊÇåá"
                          intamar(11) = Adodc1.Recordset.Fields(0).Value
                      Case "ãØáÞå íÇ ãÊÇÑßå"
                          intamar(12) = Adodc1.Recordset.Fields(0).Value
                      Case "åãÓÑ ÝæÊ ßÑÏå"
                          intamar(13) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(14) = intamar(10) + intamar(11) + intamar(12) + intamar(13)
     
   
     'report for shoghle
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(shoghle),shoghle  from moshtarydarmanjo WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "'group by shoghle"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÏÇäÔ ÂãæÒ"
                          intamar(15) = Adodc1.Recordset.Fields(0).Value
                      Case "ÏÇäÔÌæ"
                          intamar(16) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäå ÏÇÑ"
                          intamar(17) = Adodc1.Recordset.Fields(0).Value
                      Case "ßæÏß", "ÈíßÇÑ"
                          intamar(18) = intamar(18) + Adodc1.Recordset.Fields(0).Value
                      Case "ÈÇÒäÔÓÊå"
                          intamar(19) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÏæáÊí"
                          intamar(20) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÎÕæÕí"
                          intamar(21) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(22) = intamar(15) + intamar(16) + intamar(17) + intamar(18) + intamar(19) + intamar(20) + intamar(21)
   
  'report for noe khadamat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(khadamat),khadamat  from moshtarydarmanjo  WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "'group by khadamat"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÝÑÏí"
                          intamar(23) = Adodc1.Recordset.Fields(0).Value
                      Case "Ñæåí"
                          intamar(24) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäæÇÏå"
                          intamar(25) = Adodc1.Recordset.Fields(0).Value
                      Case "ÒæÌ"
                          intamar(26) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÏÏßÇÑí"
                          intamar(27) = Adodc1.Recordset.Fields(0).Value
                      Case "ßáÇÓ ÂãæÒÔí"
                          intamar(28) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑÎÏãÇÊ"
                          intamar(29) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(30) = intamar(23) + intamar(24) + intamar(25) + intamar(26) + intamar(27) + intamar(28) + intamar(29)
   
  'report for moshakhasat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(elat_maraje),elat_maraje  from moshtarydarmanjo WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "'group by elat_maraje"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÇÎÊáÇáÇÊ ÑæÇäí", "ÇÝÓÑϐí", "ÇÖØÑÇÈ", "æÓæÇÓ"
                          intamar(31) = intamar(31) + Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÎÇäæÇϐí"
                          intamar(32) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÒäÇÔæíí"
                          intamar(33) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÞÊÕÇÏí æ ÔÛáí"
                          intamar(34) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÌÊãÇÚí æ ÈÒåßÇÑí"
                          intamar(35) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÌäÓí"
                          intamar(36) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ãÑÊÈØ ÈÇ ÑæíÏÇÏåÇí ÇÓÊÑÓ ÒÇí Òäϐí"
                          intamar(37) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÑÇÆå ÑÇåäãÇíí"
                          intamar(38) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÊÍÕíáí"
                          intamar(39) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÚÊíÇÏ"
                          intamar(40) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑ ãæÇÑÏ"
                          intamar(41) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ßæÏßÇä"
                          intamar(42) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔÇæÑå ÇÒÏæÇÌ"
                          intamar(43) = Adodc1.Recordset.Fields(0).Value
                  End Select
                             
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(44) = intamar(31) + intamar(32) + intamar(33) + intamar(34) + intamar(35) + intamar(36) + intamar(37) + intamar(38) + intamar(39) + intamar(40) + intamar(41) + intamar(42) + intamar(43)
     
     'report noeshoghl
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(noe_shoghle), noe_shoghle from moshtarydarmanjo  WHERE tarikh_primary>='" & s & "'" & "AND tarikh_primary<='" & s1 & "' group by noe_shoghle"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "æ"
                          intamar(45) = Adodc1.Recordset.Fields(0).Value
                      Case "Û"
                          intamar(46) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(47) = intamar(45) + intamar(46)
      Call insertrecord1
         Adodc2.Refresh
         cr5.ReportFileName = "C:\RAVANPOYA\report\rcenter.rpt"
         cr5.RetrieveDataFiles
         cr5.SelectionFormula = "{report.f1}>=0"
         cr5.Action = 1
         Command2.Enabled = False
         Timer1.Enabled = True
  End Sub
   
   
   
   
   
  Private Sub Command6_Click()
      strreport = "C:\RAVANPOYA\report\rbd.rpt"
      q = "bedehkar"
      Call report
  End Sub
   
  Private Sub report()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
          cr5.ReportFileName = strreport
          cr5.RetrieveDataFiles
          cr5.SelectionFormula = "{" & q & ".tarikh}>= '" & s & "'" & "and {" & q & ".tarikh} <='" & s1 & "'"
          cr5.Action = 1
  End Sub
   
  Private Sub Command7_Click()
      Dim rdoctor(1 To 13) As String
      Dim HOUR1 As String, MINUTES1 As String
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
      Command7.Enabled = False
     'report for drdarmangar
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select name,sum(saat_kar),count(roz),sum(saat_class) from drdarmangar  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "' group by name"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
      Adodc1.Recordset.MoveFirst
      While Not Adodc1.Recordset.EOF
          Adodc3.Recordset.AddNew
          Adodc3.Recordset.Fields(1).Value = Adodc1.Recordset.Fields(0).Value
          HOUR1 = Str(Val(Adodc1.Recordset.Fields(1).Value) \ 60)
          MINUTES1 = Str(Val(Adodc1.Recordset.Fields(1).Value) Mod 60)
          If MINUTES1 < 10 Then
              MINUTES1 = "0" + MINUTES1
          End If
          Adodc3.Recordset.Fields(2).Value = HOUR1 + ":" + MINUTES1
          Adodc3.Recordset.Fields(3).Value = Adodc1.Recordset.Fields(2).Value
          Adodc3.Recordset.Fields(8).Value = Adodc1.Recordset.Fields(3).Value
          Select Case Adodc1.Recordset.Fields(0).Value
             Case "ÈÑÌÚáí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 160000 / 60))
              Case "ÇÕÛÑ äŽÇÏ"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 120000 / 60))
              Case "ÈÎÊíÇÑí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 60000 / 60))
              Case "ÓÚíÏí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 120000 / 60))
              Case "ÈÇÈÇíí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 45000 / 60))
              Case "ÚÇãÑí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 60000 / 60))
              Case "ÇÓãÇÚíáí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 120000 / 60))
              Case "ËÇÈÊ"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 80000 / 60))
              Case "ÚÏÇáÊí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 200000 / 60))
              Case "ãíÑÒÇíí"
                   Adodc3.Recordset.Fields(11).Value = CStr(Int(Val(Adodc1.Recordset.Fields(1).Value) * 45000 / 60))
          End Select
                  Adodc3.Recordset.Fields(4).Value = 0
                  Adodc3.Recordset.Fields(5).Value = 0
                  Adodc3.Recordset.Fields(6).Value = 0
                  Adodc3.Recordset.Fields(7).Value = 0
                  Adodc3.Recordset.Fields(9).Value = 0
                  Adodc3.Recordset.Fields(10).Value = 0
                  Adodc3.Recordset.Fields(12).Value = s
                  Adodc3.Recordset.Fields(13).Value = s1
           Adodc3.Recordset.Update
           Adodc1.Recordset.MoveNext
      Wend
      Sleep 2000
      'For k = 1 To 2000
      '    DoEvents
      'Next
      'adodc3.CommandType = adCmdTable
      'adodc3.RecordSource = "reportdoctor"
    'report for saat
          
      Adodc3.Refresh
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select darmangar,SUM(modate_moshavere),COUNT(shomare_parvande),SUM(hazine_daryafti_moshavere),SUM(hazine_daryafti_test),SUM(bedehkar),SUM(kol_daryafti) from fine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "' group by darmangar"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
     ' Adodc1.Recordset.MoveFirst
     'While Not Adodc1.Recordset.EOF
     '     If Not IsNull(Adodc1.Recordset.Fields(0).Value) Then
     '         List1.AddItem Adodc1.Recordset.Fields(0).Value
     '     Else
     '         List1.AddItem " "
     '     End If
     '     Adodc1.Recordset.MoveNext
     'Wend
      Adodc1.Recordset.MoveFirst
      Adodc3.Recordset.MoveFirst
      For i = 1 To Adodc1.Recordset.RecordCount
          If Not IsNull(Adodc1.Recordset.Fields(0).Value) Then
              Adodc3.Recordset.Find "f1='" & Adodc1.Recordset.Fields(0).Value & "'"
              If Adodc3.Recordset.EOF Then
                  DoEvents
              Else
                 'Adodc3.Recordset.Fields(4).Value = CStr(Adodc1.Recordset.Fields(1).Value)
                  Adodc3.Recordset.Fields(5).Value = CStr(Adodc1.Recordset.Fields(2).Value)
                  Adodc3.Recordset.Fields(6).Value = CStr(Adodc1.Recordset.Fields(3).Value)
                  Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value)
                  Adodc3.Recordset.Fields(9).Value = CStr(Adodc1.Recordset.Fields(5).Value)
                  Adodc3.Recordset.Fields(10).Value = CStr(Adodc1.Recordset.Fields(6).Value)
                  Adodc3.Recordset.Fields(4).Value = CStr(Adodc1.Recordset.Fields(6).Value - Adodc1.Recordset.Fields(5).Value)
                  If Adodc3.Recordset.Fields(1).Value = "ÈÇÈÇíí" Then
                      Adodc3.Recordset.Fields(11).Value = 55000 * Val(Adodc3.Recordset.Fields(5).Value)
                  End If
                  If Adodc3.Recordset.Fields(1).Value = "ãíÑÒÇíí" Then
                      Adodc3.Recordset.Fields(11).Value = 50000 * Val(Adodc3.Recordset.Fields(5).Value)
                  End If
                  Adodc3.Recordset.Update
                  Adodc3.Recordset.MoveFirst
              End If
          End If
          Adodc1.Recordset.MoveNext
          Adodc3.Recordset.MoveFirst
      Next
     '   For k = 1 To 2000
     '     DoEvents
     '    Next
     Sleep 2000
  '*****************
     If dc1.Text = "" Then
         cr5.ReportFileName = "C:\RAVANPOYA\report\rdoctor11.rpt"
         cr5.RetrieveDataFiles
         cr5.SelectionFormula = "{reportdoctor.row}>=0"
         cr5.Action = 1
      Else
         cr5.ReportFileName = "C:\RAVANPOYA\report\rdoctor11.rpt"
         cr5.RetrieveDataFiles
         cr5.SelectionFormula = "{reportdoctor.f1}='" & dc1.Text & "'"
         cr5.Action = 1
      End If
         'For k = 1 To 2000
         ' DoEvents
         'Next
         Sleep 2000
         Adodc3.Recordset.MoveFirst
          While Not Adodc3.Recordset.EOF
              Adodc3.Recordset.Delete
              Adodc3.Recordset.MoveNext
          Wend
          Sleep 2000
      Command7.Enabled = True
  End Sub
   
  Private Sub Form_Load()
      Unload Form2
          VBA.Calendar = vbCalHijri
          
  End Sub
   
   
  '******************************************************************
  '******************report for behzisti ****************************
  '******************************************************************
   
   
  Private Sub Command5_Click()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
   
  'report for gender
      For i = 1 To 44
          intamar(i) = 0
      Next
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(gender), gender from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "' group by gender"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÐßÑ"
                          intamar(2) = Adodc1.Recordset.Fields(0).Value
                      Case "ãæäË"
                          intamar(1) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(3) = intamar(1) + intamar(2)
      
      'report for tahsilat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(modrak_tahsili),modrak_tahsili  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by modrak_tahsili"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÈíÓæÇÏ"
                          intamar(4) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎæÇäÏä æ äæÔÊä"
                          intamar(5) = Adodc1.Recordset.Fields(0).Value
                      Case "ÑÇåäãÇíí æÓíßá"
                          intamar(6) = Adodc1.Recordset.Fields(0).Value
                      Case "Ïíáã", "íÔ ÏÇäԐÇåí íÇ Ïíáã"
                          intamar(7) = intamar(7) + Adodc1.Recordset.Fields(0).Value
                      Case "ÏßÊÑÇ", "ÝæÞ áíÓÇäÓ", "áíÓÇäÓ", "ÝæÞ Ïíáã"
                          intamar(8) = intamar(8) + Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(9) = intamar(4) + intamar(5) + intamar(6) + intamar(7) + intamar(8)
      
    'report for vaseat tahol
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(v_taahole),v_taahole  from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by v_taahole"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ãÌÑÏ"
                          intamar(10) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÒÏæÇÌ ãÌÏÏ", "ãÊÇåá"
                          intamar(11) = Adodc1.Recordset.Fields(0).Value
                      Case "ãØáÞå íÇ ãÊÇÑßå"
                          intamar(12) = Adodc1.Recordset.Fields(0).Value
                      Case "åãÓÑ ÝæÊ ßÑÏå"
                          intamar(13) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(14) = intamar(10) + intamar(11) + intamar(12) + intamar(13)
     
   
     'report for shoghle
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(shoghle),shoghle  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by shoghle"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÏÇäÔ ÂãæÒ"
                          intamar(15) = Adodc1.Recordset.Fields(0).Value
                      Case "ÏÇäÔÌæ"
                          intamar(16) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäå ÏÇÑ"
                          intamar(17) = Adodc1.Recordset.Fields(0).Value
                      Case "ßæÏß", "ÈíßÇÑ"
                          intamar(18) = intamar(18) + Adodc1.Recordset.Fields(0).Value
                      Case "ÈÇÒäÔÓÊå"
                          intamar(19) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÏæáÊí"
                          intamar(20) = Adodc1.Recordset.Fields(0).Value
                      Case "ÔÇÛá ÏÑ ÈÎÔ ÎÕæÕí"
                          intamar(21) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(22) = intamar(15) + intamar(16) + intamar(17) + intamar(18) + intamar(19) + intamar(20) + intamar(21)
   
  'report for noe khadamat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(khadamat),khadamat  from reportfine  WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by khadamat"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÝÑÏí"
                          intamar(23) = Adodc1.Recordset.Fields(0).Value
                      Case "Ñæåí"
                          intamar(24) = Adodc1.Recordset.Fields(0).Value
                      Case "ÎÇäæÇÏå"
                          intamar(25) = Adodc1.Recordset.Fields(0).Value
                      Case "ÒæÌ"
                          intamar(26) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÏÏßÇÑí"
                          intamar(27) = Adodc1.Recordset.Fields(0).Value
                      Case "ßáÇÓ ÂãæÒÔí"
                          intamar(28) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑÎÏãÇÊ"
                          intamar(29) = Adodc1.Recordset.Fields(0).Value
                  End Select
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(30) = intamar(23) + intamar(24) + intamar(25) + intamar(26) + intamar(27) + intamar(28) + intamar(29)
   
  'report for moshakhasat
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = "select count(elat_maraje),elat_maraje  from reportfine WHERE tarikh>='" & s & "'" & "AND tarikh<='" & s1 & "'group by elat_maraje"
      Adodc1.Refresh
      If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
          Exit Sub
      End If
          Adodc1.Recordset.MoveFirst
          While Not Adodc1.Recordset.EOF
              If IsNull(Adodc1.Recordset.Fields(1).Value) Then
                  DoEvents
              Else
                  Select Case Adodc1.Recordset.Fields(1).Value
                      Case "ÇÎÊáÇáÇÊ ÑæÇäí", "ÇÝÓÑϐí", "ÇÖØÑÇÈ", "æÓæÇÓ"
                          intamar(31) = intamar(31) + Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÎÇäæÇϐí"
                          intamar(32) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÒäÇÔæíí"
                          intamar(33) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÞÊÕÇÏí æ ÔÛáí"
                          intamar(34) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÇÌÊãÇÚí æ ÈÒåßÇÑí"
                          intamar(35) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÌäÓí"
                          intamar(36) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ãÑÊÈØ ÈÇ ÑæíÏÇÏåÇí ÇÓÊÑÓ ÒÇí Òäϐí"
                          intamar(37) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÑÇÆå ÑÇåäãÇíí"
                          intamar(38) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ÊÍÕíáí"
                          intamar(39) = Adodc1.Recordset.Fields(0).Value
                      Case "ÇÚÊíÇÏ"
                          intamar(40) = Adodc1.Recordset.Fields(0).Value
                      Case "ÓÇíÑ ãæÇÑÏ"
                          intamar(41) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔßáÇÊ ßæÏßÇä"
                          intamar(42) = Adodc1.Recordset.Fields(0).Value
                      Case "ãÔÇæÑå ÇÒÏæÇÌ"
                          intamar(43) = Adodc1.Recordset.Fields(0).Value
                  End Select
                             
              End If
              Adodc1.Recordset.MoveNext
          Wend
      intamar(44) = intamar(31) + intamar(32) + intamar(33) + intamar(34) + intamar(35) + intamar(36) + intamar(37) + intamar(38) + intamar(39) + intamar(40) + intamar(41) + intamar(42) + intamar(43)
      Call insertrecord
          Adodc2.Refresh
         cr5.ReportFileName = "C:\RAVANPOYA\report\rmainmain.rpt"
         cr5.RetrieveDataFiles
         cr5.SelectionFormula = "{report.f1}>=0"
         cr5.Action = 1
        'cr5.SelectionFormula = "{report.f1}>=0"
         Command5.Enabled = False
         Timer1.Enabled = True
          'Command5.Enabled = False
         ' adodc2.Recordset.MoveFirst
         ' adodc2.Recordset.Delete
          'adodc2.Recordset.MoveNext
  End Sub
   
  Private Sub insertrecord()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = Right(s1, 8) & "-" & Right(s, 8)
      Adodc2.Recordset.Fields(1).Value = intamar(1)
      Adodc2.Recordset.Fields(2).Value = intamar(2)
      Adodc2.Recordset.Fields(3).Value = intamar(3)
      Adodc2.Recordset.Fields(4).Value = intamar(4)
      Adodc2.Recordset.Fields(5).Value = intamar(5)
      Adodc2.Recordset.Fields(6).Value = intamar(6)
      Adodc2.Recordset.Fields(7).Value = intamar(7)
      Adodc2.Recordset.Fields(8).Value = intamar(8)
      Adodc2.Recordset.Fields(9).Value = intamar(9)
      Adodc2.Recordset.Fields(10).Value = intamar(10)
      Adodc2.Recordset.Fields(11).Value = intamar(11)
      Adodc2.Recordset.Fields(12).Value = intamar(12)
      Adodc2.Recordset.Fields(13).Value = intamar(13)
      Adodc2.Recordset.Fields(14).Value = intamar(14)
      Adodc2.Recordset.Fields(15).Value = intamar(15)
      Adodc2.Recordset.Fields(16).Value = intamar(16)
      Adodc2.Recordset.Fields(17).Value = intamar(17)
      Adodc2.Recordset.Fields(18).Value = intamar(18)
      Adodc2.Recordset.Fields(19).Value = intamar(19)
      Adodc2.Recordset.Fields(20).Value = intamar(20)
      Adodc2.Recordset.Fields(21).Value = intamar(21)
      Adodc2.Recordset.Fields(22).Value = intamar(22)
      Adodc2.Recordset.Fields(23).Value = intamar(23)
      Adodc2.Recordset.Fields(24).Value = intamar(24)
      Adodc2.Recordset.Fields(25).Value = intamar(25)
      Adodc2.Recordset.Fields(26).Value = intamar(26)
      Adodc2.Recordset.Fields(27).Value = intamar(27)
      Adodc2.Recordset.Fields(28).Value = intamar(28)
      Adodc2.Recordset.Fields(29).Value = intamar(29)
      Adodc2.Recordset.Fields(30).Value = intamar(30)
      Adodc2.Recordset.Fields(31).Value = intamar(31)
      Adodc2.Recordset.Fields(32).Value = intamar(32)
      Adodc2.Recordset.Fields(33).Value = intamar(33)
      Adodc2.Recordset.Fields(34).Value = intamar(34)
      Adodc2.Recordset.Fields(35).Value = intamar(35)
      Adodc2.Recordset.Fields(36).Value = intamar(36)
      Adodc2.Recordset.Fields(37).Value = intamar(37)
      Adodc2.Recordset.Fields(38).Value = intamar(38)
      Adodc2.Recordset.Fields(39).Value = intamar(39)
      Adodc2.Recordset.Fields(40).Value = intamar(40)
      Adodc2.Recordset.Fields(41).Value = intamar(41)
      Adodc2.Recordset.Fields(42).Value = intamar(42)
      Adodc2.Recordset.Fields(43).Value = intamar(43)
      Adodc2.Recordset.Fields(44).Value = intamar(44)
      Adodc2.Recordset.Update
  End Sub
   
   
   
  Private Sub Timer1_Timer()
          Adodc2.Refresh
          Command5.Enabled = True
          Command1.Enabled = True
          Command2.Enabled = True
         If Adodc2.Recordset.BOF And Adodc2.Recordset.EOF Then
              Exit Sub
          End If
          Adodc2.Recordset.MoveFirst
          Adodc2.Recordset.Delete
          Command5.Enabled = True
          Command1.Enabled = True
          Command2.Enabled = True
          Timer1.Enabled = False
  End Sub
   
  Private Sub insertrecord1()
      Dim s As String, s1 As String
      Dim d As Date, d1 As Date
      s = Text1 & "/" & Text2 & "/" & Text3
      s1 = Text4 & "/" & Text5 & "/" & Text6
      If Not IsDate(s) Or Not IsDate(s1) Then Exit Sub
      d = CDate(s)
      d1 = CDate(s1)
      s = CStr(d)
      s1 = CStr(d1)
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Fields(0).Value = Right(s1, 8) & "-" & Right(s, 8)
      Adodc2.Recordset.Fields(1).Value = intamar(1)
      Adodc2.Recordset.Fields(2).Value = intamar(2)
      Adodc2.Recordset.Fields(3).Value = intamar(3)
      Adodc2.Recordset.Fields(4).Value = intamar(4)
      Adodc2.Recordset.Fields(5).Value = intamar(5)
      Adodc2.Recordset.Fields(6).Value = intamar(6)
      Adodc2.Recordset.Fields(7).Value = intamar(7)
      Adodc2.Recordset.Fields(8).Value = intamar(8)
      Adodc2.Recordset.Fields(9).Value = intamar(9)
      Adodc2.Recordset.Fields(10).Value = intamar(10)
      Adodc2.Recordset.Fields(11).Value = intamar(11)
      Adodc2.Recordset.Fields(12).Value = intamar(12)
      Adodc2.Recordset.Fields(13).Value = intamar(13)
      Adodc2.Recordset.Fields(14).Value = intamar(14)
      Adodc2.Recordset.Fields(15).Value = intamar(15)
      Adodc2.Recordset.Fields(16).Value = intamar(16)
      Adodc2.Recordset.Fields(17).Value = intamar(17)
      Adodc2.Recordset.Fields(18).Value = intamar(18)
      Adodc2.Recordset.Fields(19).Value = intamar(19)
      Adodc2.Recordset.Fields(20).Value = intamar(20)
      Adodc2.Recordset.Fields(21).Value = intamar(21)
      Adodc2.Recordset.Fields(22).Value = intamar(22)
      Adodc2.Recordset.Fields(23).Value = intamar(23)
      Adodc2.Recordset.Fields(24).Value = intamar(24)
      Adodc2.Recordset.Fields(25).Value = intamar(25)
      Adodc2.Recordset.Fields(26).Value = intamar(26)
      Adodc2.Recordset.Fields(27).Value = intamar(27)
      Adodc2.Recordset.Fields(28).Value = intamar(28)
      Adodc2.Recordset.Fields(29).Value = intamar(29)
      Adodc2.Recordset.Fields(30).Value = intamar(30)
      Adodc2.Recordset.Fields(31).Value = intamar(31)
      Adodc2.Recordset.Fields(32).Value = intamar(32)
      Adodc2.Recordset.Fields(33).Value = intamar(33)
      Adodc2.Recordset.Fields(34).Value = intamar(34)
      Adodc2.Recordset.Fields(35).Value = intamar(35)
      Adodc2.Recordset.Fields(36).Value = intamar(36)
      Adodc2.Recordset.Fields(37).Value = intamar(37)
      Adodc2.Recordset.Fields(38).Value = intamar(38)
      Adodc2.Recordset.Fields(39).Value = intamar(39)
      Adodc2.Recordset.Fields(40).Value = intamar(40)
      Adodc2.Recordset.Fields(41).Value = intamar(41)
      Adodc2.Recordset.Fields(42).Value = intamar(42)
      Adodc2.Recordset.Fields(43).Value = intamar(43)
      Adodc2.Recordset.Fields(44).Value = intamar(44)
      Adodc2.Recordset.Fields(45).Value = intamar(45)
      Adodc2.Recordset.Fields(46).Value = intamar(46)
      Adodc2.Recordset.Fields(47).Value = intamar(47)
      Adodc2.Recordset.Update
  End Sub

​
 
the_king

the_king

مدیرکل انجمن
alipayande گفت:
سلام

من توی فرم دیگه باز با همون مشکل ربرو شدم همون ران تایم 94:cry:

نمی دونم این چه بلایی سر ما اومده
ممنونم که راهنماییم می کنید:rose:

کد باگ
کد: 
      Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value)

​
کلیک کنید تا باز شود...

مشکل اینکه که شما در بعضی از فیلد های بانک اطلاعاتی تان Null ذخیره کرده اید، و در کدتان اصرار دارید که این Null ها
را بصورت یک String نمایش دهید. این تبدیل Null به یک نوع داده عادی مثل String یک فرایند خودکار نیست.

کد یک سطری زیر را با کد پنج سطری بعدی تعویض کنید :

کد: 
        Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value)

کد: 
    If IsNull(Adodc1.Recordset.Fields(4).Value) = False Then
        Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value)
    Else
        Adodc3.Recordset.Fields(7).Value = ""
    End If
 
A

alipayande

New Member
آقا ممنون- این برنامه رو من ننوشتم یه بنده خدا 10 سال پیش نوشته من هیچی سر در نمی یارم چطور می شه این
null
را تبدیل به
string
کرد

بازم ممنونم.
​
 
A

alipayande

New Member
راستی اون کد رو تغییر دادم ولی ارور ران تایم زیر ر.و داد

run-time eror '-2147217887(80040e21)':
multiple-teo operation generated errors. check each status value.
 
the_king

the_king

مدیرکل انجمن
alipayande گفت:
آقا ممنون- این برنامه رو من ننوشتم یه بنده خدا 10 سال پیش نوشته من هیچی سر در نمی یارم چطور می شه این
null
را تبدیل به
string
کرد

بازم ممنونم.
​
کلیک کنید تا باز شود...

باید بانک اطلاعاتی را در مایکروسافت Access باز کنید و در تعریف جداول، در مشخصه فیلد ها مقدار Required را True نمایید.
فیلدی که Required اش True باشد هیچگاه Null نخواهد شد.
 
the_king

the_king

مدیرکل انجمن
تابع زیر را به کد های فرم تان اضافه کنید :

کد: 
Private Function ToString(ByVal Value As Variant) As String
    If IsNull(Value) Then
        ToString = ""
    Else
        ToString = CStr(Value)
    End If
End Function

حالا هر جا که از عبارت )CStr = در کدتان استفاده کرده اید با )ToString = تعویض کنید.
مثلا :

کد: 
                Adodc3.Recordset.Fields(5).Value = CStr(Adodc1.Recordset.Fields(2).Value)

به کد زیر تغییر کند :

کد: 
                Adodc3.Recordset.Fields(5).Value = ToString(Adodc1.Recordset.Fields(2).Value)

موقعیت آن خطا روی کدوم سطر است؟
 
the_king

the_king

مدیرکل انجمن
این متن مربوط به تشریح خطا در MSDN مایکروسافت است :

کد: 
[B]SYMPTOMS[/B]
If you use ADO to insert a new record through a client-side recordset into a SQL
 Server table that has a non-nullable datetime field with a default value,
 you receive the following error message if you do not supply a value for the datetime field: 

Run-time error '-2147217887 (80040e21)': Multiple-step operation generated errors. Check each status value. 

This error occurs whether you use the OLE DB Provider for SQL Server 
or the OLE DB Provider for ODBC Drivers.
 The error message may differ when you use
Microsoft Data Access Components (MDAC) version 2.5 Service Pack 1 (SP1) or earlier.
This error does not occur with a server-side cursor.

[B]RESOLUTION[/B]
There are several ways to work around this problem: 

Use a server-side cursor for the recordset.
Remove the default value that is specified for the field in the database.
Always specify a value for the field when you add a new record.

در سطر آخر توصیه شده که وقتی یک رکورد جدید را ایجاد می کنید، مقدار تمامی فیلد ها را مشخص نمایید تا
مقدار Null در آنها ذخیره نشود. البته اگر در مشخصه فیلدی Required برابر با True باشد هیچگاه Null در آن ذخیره نخواهد شد.
 
A

alipayande

New Member
سلام

تو اون فرمی که به جای :
text2.Text = Adodc1.Recordset(1).Value
این رو عوض کردم:

If IsNull(Adodc1.Recordset(1).Value) = False Then
text2.Text = Adodc1.Recordset(1).Value
Else
text2.Text = ""
End If
ارور خطا وجود نداشتن پرونده رو می ده به گمونم کد زیر باید تصحیح بشه ولی نمی دونم چطوری


Private Sub cmdok_Click[FONT=&quot]()[/FONT]
Dim X As Integer
tarikhjo = CDate(text2.Text[FONT=&quot])[/FONT]
Adodc1.Recordset(1).Value = CStr(tarikhjo[FONT=&quot])[/FONT]
On Error Resume Next
Adodc1.Recordset.Update
If Err <> 0 Then
X = MsgBox[FONT=&quot]("شماره پرونده وجود ندارد", , "خطا")[/FONT]
Exit Sub
End If
Call hidebutton
Call lockedfield
End Sub
 
A

alipayande

New Member
تو اون فرمی که به جای :
text2.Text = Adodc1.Recordset(1).Value
این رو عوض کردم:

If IsNull(Adodc1.Recordset(1).Value) = False Then
text2.Text = Adodc1.Recordset(1).Value
Else
text2.Text = ""
End If
ارور خطا وجود نداشتن پرونده رو می ده به گمونم کد زیر باید تصحیح بشه ولی نمی دونم چطوری


Private Sub cmdok_Click[FONT=&quot]()[/FONT]
Dim X As Integer
tarikhjo = CDate(text2.Text[FONT=&quot])[/FONT]
Adodc1.Recordset(1).Value = CStr(tarikhjo[FONT=&quot])[/FONT]
On Error Resume Next
Adodc1.Recordset.Update
If Err <> 0 Then
X = MsgBox[FONT=&quot]("شماره پرونده وجود ندارد", , "خطا")[/FONT]
Exit Sub
End If
Call hidebutton
Call lockedfield
End Sub
 
the_king

the_king

مدیرکل انجمن
کدتون یکجور هایی اشکال منطقی داره، وقتی کاربر دکمه cmdok را فشار داد، تابع cmdok_Click اجرا میشه.
در داخل این تابع متد Adodc1.Recordset.Update وجود داره در حالی که قبل از اون در کد نه رکورد جدیدی
ساخته میشه (Adodc1.Recordset.AddNew) و نه رکوردی ویرایش میشه (Adodc1.Recordset.Edit)
برای همین هم احتمالا خطای Update بی مورد رخ میده و نه خطای دیگری.

ولی در ادامه روتین تمامی پیغام های خطا را توسط یک پیغام کلی "شماره پرونده وجود ندارد" نمایش داده شده.
پیشنهاد می کنم قبل از هر چیز روتین cmdok_Click را با کد زیر تعویض نمایید تا متوجه پیغام خطای اصلی بشویم :

کد: 
Private Sub cmdok_Click()
    Dim X As Integer
    tarikhjo = CDate(text2.Text)
    Adodc1.Recordset(1).Value = CStr(tarikhjo)
    On Error Resume Next
    Adodc1.Recordset.Update
    If Err <> 0 Then
        MsgBox "Error " & Err.Number & " :" & vbNewLine & Err.Description
'        X = MsgBox("ÔãÇÑå ÑæäÏå æÌæÏ äÏÇÑÏ", , "ÎØÇ")
        Exit Sub
    End If
    Call hidebutton
    Call lockedfield
End Sub
 
A

alipayande

New Member
آقا ممنون که به درد ما بی سوادا می رسید!!!

الان چک کردم بدون دخالت کد خودش خود به خود درست شد

بازم مچکرم
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا