انا جربت هذا وكانت هذه النتيجه
لكن بدون تاريخ
a = "ابو ياسين "
DoCmd.OutputTo acOutputtabl, "جدول سجل التاشير", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد.rtf", False
انا جربت هذا وكانت هذه النتيجه
لكن بدون تاريخ
a = "ابو ياسين "
DoCmd.OutputTo acOutputtabl, "جدول سجل التاشير", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد.rtf", False
انسخ هذا واعمله في سكويل الاستعلام
UPDATE deg INNER JOIN [level] ON deg.std_id = level.std_id SET [level].sub_count = DCount("[pass]","deg")
WHERE (((deg.pass)=False));
انا في المبايل ولم اجرب الكود
جرب هذا
If Me.Text11 > 0 Then
[Text11].BackColor = vbRed
elseif Me.Text11 <0 Then
[Text11].BackColor = vbGreen
elseIf Me.Text11 =0Then
[Text11].BackColor = vbWhite
End if