کسی نیست کمک کنه
میبخشید بزارید کاملتر بگم
من تعدادی جدول دارم که هر کدام قسمتی از یک گزارشکار هستند
برای نشان دادن همه کارهایی که در یک روز ساخته شده برای هر کدوم از جدول یک کوئری ساختم که بر اساس تاریخی توی فرم هست کارهای انجام شده در یک تاریخ رو نشون میده
حالا مشکلم این بود که وقتی دکمه رو میزدم تمام کوئری ها باز میشن ولی من میخواستم فقط اونهایی باز شن که رکوردی در اون تارخ دارن برای همین هم از این کدها استفاده کردم
If DLookup("date", "Tbl_boiler_M") = Date Then DoCmd.OpenQuery "Q_boiler_M_today"
Else
End If
If DLookup("date", "Tbl_boiler_S") = Date Then
DoCmd.OpenQuery "Q_boiler_S_today"
Else
End If
If DLookup("date", "Tbl_chiller_M") = Date Then
DoCmd.OpenQuery "Q_chiller_M_today"
Else
End If
If DLookup("date", "Tbl_chiller_S") = Date Then
DoCmd.OpenQuery "Q_chiller_S_today"
Else
End If
If DLookup("date", "Tbl_Disel_M") = Date Then
DoCmd.OpenQuery "Q_Disel_M_today"
Else
End If
If DLookup("date", "Tbl_Disel_S") = Date Then
DoCmd.OpenQuery "Q_Disel_S_today"
Else
End If
If DLookup("date", "Tbl_exust_M") = Date Then
DoCmd.OpenQuery "Q_exust_M_today"
Else
End If
If DLookup("date", "Tbl_exust_S") = Date Then
DoCmd.OpenQuery "Q_exust_S_today"
Else
End If
If DLookup("date", "Tbl_Heat exchanger_M") = Date Then
DoCmd.OpenQuery "Q_Heat exchanger_M_today"
Else
End If
If DLookup("date", "Tbl_Heat exchanger_S") = Date Then
DoCmd.OpenQuery "Q_Heat exchanger_S_today"
Else
End If
If DLookup("tarikh", "Tbl_housekeeping") = Date Then
DoCmd.OpenQuery "Q_housekeeping_today"
Else
End If
If DLookup("date", "Tbl_Pump_M") = Date Then
DoCmd.OpenQuery "Q_Pump_M_today"
Else
End If
If DLookup("date", "Tbl_Pump_S") = Date Then
DoCmd.OpenQuery "Q_Pump_S_today"
Else
End If
If DLookup("date", "Tbl_Softener_S") = Date Then
DoCmd.OpenQuery "Q_Softener_S_today"
Else
End If
If DLookup("Date", "Tbl_split") = Date Then
DoCmd.OpenQuery "Q_Spilet_today"
Else
End If
If DLookup("date", "Tbl_Softener_M") = Date Then
DoCmd.OpenQuery "Q_Softener_M_today"
Else
End If
If DLookup("date", "Q_other_today") = Date Then
DoCmd.OpenQuery "Q_other_today"
Else
End If
حالا مشکل اینجاست که بعضی از کوئریها که مقدار هم دارن باز نمیشن و اینکار هم بر اساس هیچ قاعده ای نیست مثلا امروز باز میشن و فردا باز نمیشن!!
من احتمال میدم در طریقه نوشتن کد اشتباه شده باشه چون من زبان وژوال بیسیک رو یاد ندارم
در ضمن در اینجا Date همون تاریخی هست که توی فرم نوشته میشه
نوشته شده توسط mazoolagh
پاسخ با نقل قول
