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

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

اتفضل اتمنى يكون المطلوب مقارنه السعر بين موردين.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

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

جرب هذا If MsgBox("سيتم الحذف", vbOKCancel, "تنبيه") = vbOK Then Kill Me.z Me.z = "" Kill CurrentProject.Path & "\" & InStrRev(z, ".") & ".pdf" Me.Refresh End If

اخي الله يرضى عليك قلنا ارفع مثال وليس ارفع صورة المثال يطبق عليه الحل

ارفق مثال