ابو ياسين المشولي

واذا ماضبط لازم ترفق ملف هنا مع التنصيص IIf(IsNull([Amount]);"0";[Amount])

جرب هكذا Amountt: Nz([Amount];"0")

حاول تفتح قاعده جديدة واستورد جميع الكانات من الاولى

اتفضل اتمنى يكون المطلوب مقارنه السعر بين موردين.accdb

الحل الاخير والاكيد حسب مافهمت واظنه حسب طلبك شوف المرفق مع الصور Ex9-5 (5).accdb

جرب هذا او ارفع مثال مصغر db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n ='" & i & "'" and empdepart =" & k)

اتفضل Ex9-5.accdb اتفضل

جرب هكذا Me.HdihSr = Nz(DSum(" [PriceSB] ", "00KashfTodayRsdCkdm", "[Movement] = 'هدية' or 'تالف' or 'مفقود' and [ItemAAID] = 110 and [OutDate] Between forms!KashfToday_F!Date1 And forms!KashfToday_F!Date2"), "0") 'Private Declare Sub apiZeroMemory Lib "kernel32" _

فقط غيرت طريقه الربط من واحد الى 2 شوف الصورة

جرب هذا تعديل استعلام.accdb

جرب هذا za-font style and align-LAST.mdb

شوف عملت لك توسط وحفظ لون الخط كمل الباقي لان وقتي والله مايسمح هي نفس الفكرة za-font style and align-LAST.mdb

اتفضل اتمنى يكون المطلوب za-font style and align-LAST.mdb

حسب مافهمت وما استطعت فعله شوف المرفق Ex8-30.accdb

Forms![form1]![n1] = Forms![form1]!form2!txtSearch Forms![اسم النموذج الرئيسي]![اسم الحقل في النموذج الرئسي] = Forms![اسم الحقل في النموذج الرئسي]![النموذج الفرعي]![الحقل بالنموذج الفرعي]

شوف التعديل الجديد

جرب هذا SELECT ExpenseName_T.ExpID, ExpenseName_T.ExpenseName, IIf(Nz(DLookUp("[Stype]","Sand_T","[ExpenseID]=" & [SnID] & "")),Nz(DLookUp("[Stype]","Sand_T","[ExpenseID]=" & [SnID] & "")),IIf(Nz(DLookUp("[Stype]","Sand_T","[OwnerID]=" & [SnID] & "")),Nz(DLookUp("[Stype]","Sand_T","[OwnerID]=" & [SnID] & "")),IIf(Nz(DLookUp("[Stype]","Sand_T","[EmployeeID]=" & [SnID] & "")),Nz(DLookUp("[Stype]","Sand_T","[EmployeeID]=" & [SnID] & "")),IIf(Nz(DLookUp("[Stype]","Sand_T","[CustomersID]=" & [SnID] & "")),Nz(DLookUp("[Stype]","Sand_T","[CustomersID]=" & [SnID] & "")),IIf(Nz(DLookUp("[Stype]","Sand_T","[SnID]=" & [SnID] & "")),Nz(DLookUp("[Stype]","Sand_T","[SnID]=" & [SnID] & "")),[ExpenseType]))))) AS ExpenseType2, Nz(DSum("[Amount]","Sand_T"),"0") AS SumAmount, IIf(Nz(DSum("[Amount]","Sand_T","[ExpenseID]=" & [ExpID] & "")),Nz(DSum("[Amount]","Sand_T","[ExpenseID]=" & [ExpID] & "")),IIf(Nz(DSum("[Amount]","Sand_T","[OwnerID]=" & [ExpID] & "")),Nz(DSum("[Amount]","Sand_T","[OwnerID]=" & [ExpID] & "")),IIf(Nz(DSum("[Amount]","Sand_T","[EmployeeID]=" & [ExpID] & "")),Nz(DSum("[Amount]","Sand_T","[EmployeeID]=" & [ExpID] & "")),IIf(Nz(DSum("[Amount]","Sand_T","[CustomersID]=" & [ExpID] & "")),Nz(DSum("[Amount]","Sand_T","[CustomersID]=" & [ExpID] & "")),IIf(Nz(DSum("[Amount]","Sand_T","[SuppliersID]=" & [ExpID] & "")),Nz(DSum("[Amount]","Sand_T","[SuppliersID]=" & [ExpID] & "")),"0"))))) AS Amount2 FROM Sand_T, ExpenseTybe_T INNER JOIN ExpenseName_T ON ExpenseTybe_T.Id = ExpenseName_T.ExpenseTybeID;

جرب هذا Public Function Lang_Selection() On Error GoTo err_Form_Load mySQL = "Select * From tbl_Controls_Properties" mySQL = mySQL & " WHERE Form_Name='" & Forms.FM_1.Name & "'" mySQL = mySQL & " AND Language='" & Forms!frm_Main!Lang & "'" Dim rst As DAO.Recordset Dim X() As String Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst iTwips = 576 '576 twips/cm , 1440 twips/inch For i = 1 To rst.RecordCount Forms.FM_1(rst!Ctl_Name).Caption = rst!ctl_Caption Forms.FM_1(rst!Ctl_Name).Left = rst!ctl_Left * iTwips If Len(rst!ctl_Style & "") <> 0 Then X = Split(rst!ctl_Style, "|") With Forms.FM_1(rst!Ctl_Name) .FontName = X(0) .FontSize = X(1) .FontWeight = X(2) .FontItalic = X(3) .FontUnderline = X(4) .ForeColor = X(5) If rst!Language = "A" Then '0=General '1=Left '2=Center '3=Right '4=Distribute .TextAlign = 3 Else .TextAlign = 1 End If End With End If rst.MoveNext Next i Exit Function err_Form_Load: If Err.Number = 438 Or Err.Number = 13 Then 'ignor, Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function

اتفضل sa.rar

اعمل ضخط واصلاح للقاعدة

العفو اخي ازهر عبد العزيز

جرب هذا =IIf([Forms]![lsh]![combo1]="M",[Qavilable]-[Q],[Q]-[Qavilable])*[Y]

DoCmd.OpenReport "هنا اسم التقرير", acViewPreview

اخي العزيز لازم يكون الملف بنفس مسار البرنامج وباسم مسار البرنامج