تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] للفائدة - كود كم عدد السجلات المدخلة في ادود - ولدي أسئلة
#1
Rainbow 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
[هدا كود كم عدد السجلات المدخلة في ...ادود


Private Sub DataGrid1_DblClick()
Dim dblSum As Double
  
  Me.Adodc1.Recordset.MoveFirst
  Do While Not Me.Adodc1.Recordset.EOF
    dblSum = dblSum + Me.Adodc1.Recordset.Fields(2)
    Me.Adodc1.Recordset.MoveNext
  Loop
  Me.Print "Total: " & dblSum
  Adodc1.Refresh
  Me.Adodc1.Recordset.MoveFirst
End Sub
هدا كود جمع العمود 

اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك مثلا كم عدد الذكور ... جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك adodce مثلا كم عدد الذكور ... او لا ايجابه
جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#3
أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .
الرد }}}
تم الشكر بواسطة:
#4
(19-05-16, 02:25 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .

احمد منصور الله يحفظ ولوالديك الجنة والاخوة المشاركين 


مجرد ان تدخل التاريخين
تعمل معك label 
جمع عدد الذكور وسعودي
جمع عدد الانات السعودين

كود التريخين كي يعمل معك adodc
كود عمل label في البيانات المحصورة في...الاعلى كما هو مبين.

(20-05-16, 06:26 PM)عمور2016 كتب :
(19-05-16, 02:25 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .

احمد منصور الله يحفظ ولوالديك الجنة والاخوة المشاركين 


مجرد ان تدخل التاريخين
تعمل معك label 
جمع عدد الذكور وسعودي
جمع عدد الانات السعودين

كود التريخين كي يعمل معك adodc
كود عمل label في البيانات المحصورة في...الاعلى كما هو مبين.


الملفات المرفقة
.docx   Doc1.docx (الحجم : 983.99 ك ب / التحميلات : 43)
.docx   Doc1.docx (الحجم : 983.99 ك ب / التحميلات : 35)
الرد }}}
تم الشكر بواسطة:
#5
أهلا أخي الكريم , لو أرفقت المثال كان أفضل , على العموم لنفترض أن إسم الجدول هو Table1 وإسم حقل التاريخ هو zDate وإسم حقل الجنسية هو Nat وإسم حقل نوع الجنس هو Gen إذا سيكون إستعلام وكود جلب المجاميع كالتالي :

PHP كود :
Private Sub Command1_Click()

Dim SQL_Saudi_Male As String
Dim SQL_Saudi_Female 
As String
Dim SQL_NoneSaudi_Male 
As String
Dim SQL_NoneSaudi_Female 
As String

SQL_Saudi_Male 
"(Select Count(*) From Table1 Where zDate>=#" DTPicker1.Value "# And zDate<=#" DTPicker2.Value "# And Nat='سعودي' And Gen='ذكر') as Saudi_Male_Total"
SQL_Saudi_Female "(Select Count(*) From Table1 Where zDate>=#" DTPicker1.Value "# And zDate<=#" DTPicker2.Value "# And Nat='سعودي' And Gen='انثى') as Saudi_Female_Total"
SQL_NoneSaudi_Male "(Select Count(*) From Table1 Where zDate>=#" DTPicker1.Value "# And zDate<=#" DTPicker2.Value "# And Nat='مقيم' And Gen='ذكر') as NoneSaudi_Male_Total"
SQL_NoneSaudi_Female "(Select Count(*) From Table1 Where zDate>=#" DTPicker1.Value "# And zDate<=#" DTPicker2.Value "# And Nat='مقيم' And Gen='انثى') as NoneSaudi_Female_Total"

Adodc1.RecordSource "Select (Select " SQL_Saudi_Male "," SQL_Saudi_Female "," SQL_NoneSaudi_Male "," SQL_NoneSaudi_Female " From Table1"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount 0 Then

   
If Not IsNull(Adodc1.Recordset.Fields("Saudi_Male_Total")) Then
      Label1
.Caption Adodc1.Recordset.Fields("Saudi_Male_Total").Value
   
Else
      
Label1.Caption "0"
   
End If
   
   If 
Not IsNull(Adodc1.Recordset.Fields("Saudi_Female_Total")) Then
      Label2
.Caption Adodc1.Recordset.Fields("Saudi_Female_Total").Value
   
Else
      
Label2.Caption "0"
   
End If
   
   If 
Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Male_Total")) Then
      Label3
.Caption Adodc1.Recordset.Fields("NoneSaudi_Male_Total").Value
   
Else
      
Label3.Caption "0"
   
End If
   
   If 
Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Female_Total")) Then
      Label4
.Caption Adodc1.Recordset.Fields("NoneSaudi_Female_Total").Value
   
Else
      
Label4.Caption "0"
   
End If
   
Else

   
Label1.Caption "0"
   
Label2.Caption "0"
   
Label3.Caption "0"
   
Label4.Caption "0"

End If

End Sub 

في هذا الكود الليبل1 سيكون لعدد الذكور السعوديين والليبل2 لعدد الإناث السعوديين والليبل3 لعدد الذكور المقيمين والليبل4 لعدد الإناث المقيمين وكل الأعداد بين تاريخين .
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أسئلة عن كيفية صنع الكثير من البرامج أرجو من كل من لديه جواب أن يتفضل بالمشاركة ليفيد جميع الأعضاء طارق 3 2,711 20-08-13, 02:09 PM
آخر رد: AGASHE
  كود التحقق من القيمة المدخلة smiley 3 4,860 25-07-13, 02:28 AM
آخر رد: اسلام الكبابى

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


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