ورود

View Full Version : آموزش: کد چک کردن خالی بودن یا نبودن یک query


pmoshir
سه شنبه 20 بهمن 1388, 10:05 صبح
همکاران عزیز سلام
کدی میخوام که خالی بودن یا نبودن یک Query (به غیر جداول و کوئریهای مرتبط با فرم) رو چک کنه.
با تشکر
kochekian
سه شنبه 20 بهمن 1388, 11:04 صبح
با این کد می تونی بفهمی چند تا رکورد داخل کوئری هست فکر کنم منظورتون همین باشه
دصورت خالی بودن صفر بر میگردونه


DCount("[fild]","Query1")
pmoshir
سه شنبه 20 بهمن 1388, 11:51 صبح
ممنون از همراهیتون
ولی این کد رو قبلا چک کردم جواب نگرفتم خطا میده
Private Sub Form_Open(Cancel As Integer)
Dim test As Integer
test = DCount("[SaleMali]", "qry_firstgood")
If test > 0 Then
Else
MsgBoxFa "", vbCritical, ""
End If
End Sub
alirezabahrami
سه شنبه 20 بهمن 1388, 12:04 عصر
ممنون از همراهیتون
ولی این کد رو قبلا چک کردم جواب نگرفتم خطا میده
Private Sub Form_Open(Cancel As Integer)
Dim test As Integer
test = DCount("[SaleMali]", "qry_firstgood")
If test > 0 Then
Else
MsgBoxFa "", vbCritical, ""
End If
End Sub
سلام
با همين كد جواب ميده ؛ ضمناً MsgBoxFa را بصورت MsgBox تايپ كن !
موفق باشيد
pmoshir
سه شنبه 20 بهمن 1388, 12:07 عصر
جناب بهرامی از کد

DCount("[SaleMali]", "qry_firstgood")
ایراد میگیره.چرا؟؟؟؟؟
kochekian
سه شنبه 20 بهمن 1388, 12:08 عصر
نمونه بزارید تا مشکلتون حل بشه
من این کد را هم امتحان کردم مشکلی نداشت
شاید نحوه استفاده شما فرق میکنه
pmoshir
سه شنبه 20 بهمن 1388, 12:09 عصر
درست شد مشکل جای دیگری بود با تشکر از شما