If rs.State = adStateOpen Then rs.Close
rs.Open "Select SUM(salary) as salary From tabel1 where da '" & Text2.Text & "' and '" & Text10.Text & "'", db, adOpenKeyset, adLockPessimistic
Text3.Text = rs![salary]
الرسالة run time error 94
invalid use of null
ارجو الافادة
السلام عليكم
- هذا كود زر البحث بعد التعديل :
كود :
Private Sub cmdFind_Click()
Dim d1, d2 As Date
d1 = Format(Me.DTPicker1.Value, "yyyy/MM/dd")
d2 = Format(Me.DTPicker2.Value, "yyyy/MM/dd")
If rs.State = adStateOpen Then rs.Close
rs.Open "Select SUM(salary) as salary From tabel1 where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If Not IsNull(rs![salary]) Then Text3.Text = rs![salary] Else Text3.Text = "0"
Else
Text3.Text = "0"
End If
If rs.State = adStateOpen Then rs.Close
rs.Open "Select SUM(salary) as salary From back where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If Not IsNull(rs![salary]) Then Label10.Caption = rs![salary] Else Label10.Caption = "0"
Else
Label10.Caption = "0"
End If
If rs.State = 1 Then rs.Close
rs.Open "select * from sel where da Between #" & d1 & "# and #" & d2 & "#", db, adOpenStatic, adLockPessimistic
If rs.RecordCount <= 0 Then
MsgBox "لايوجد أصناف", vbInformation, "تنبيه"
Else
Do While Not rs.EOF
I = I + 1
grid.Rows = I + 1
grid.TextMatrix(I, 0) = rs("na")
grid.TextMatrix(I, 1) = rs("qe")
grid.TextMatrix(I, 2) = rs("pr")
grid.TextMatrix(I, 3) = rs("to")
rs.MoveNext ' يجب ان تضيفها
Loop
End If
End Sub
- تحياتي .
ما استطيع ان اقول اي شي فقط كثر الله خيرك ووفقك لما يحب ويرضا
السلام عليكم ورحمة الله وبركاته
مبارك عليكم الشهر
انا مدير معرض وعندي سيارات مستخدمة وصممت برنامج بحيث اني احسب عدد السيارات اللى انا اشتريت بين التاريخين مع الشكر للجميع
لو سمحتم بعمل برنامج وعايز كود للبحث عن طريق الحروف
يعنى او كتبت حرف ال أ يفتح مربع عرض كل ما هو فى السجل يبدأ بال أ أو اكتب ال يعطينى كل ما هو فقاعده البيانات يبدأ بال
ويتغير مع كل حرف ازوده يعمل فلتر للمربع وهكذا
ارجو الرد لأنى عطلان عليها
تشكر ياغالي الله يحفظك ويسعدك