Shivan Rekany

هل تريد بهذا الشكل او اعمل المطلوب بالورد او الاكسل لكي نعمل لك كما تريد

اتفضل amdee.rar

استخدم دالة if اي اذا اخترت الغاء بيعمل Exit Sub واذا اخترت نعم بيعمل عمله

لكي توصل للنتيجة المطلوبة يجب عليك ان ترفق نسخة مصغرة من قاعدة بياناتك وهناك سؤال مثلا اذا كان جغرافيات القارات مكررة و ايضا تدريس فنون اللغة العربية مكررة هل تريد ان يأخذ كل منهم لون محدد ام تريد جغرافيات القارات بلون محدد و تدريس الفنون اللغة العربية بلون اخر محدد

اذا كان ارفقت مثال توضيحي ماذا تريد بالضبط كان وصلت بالنتيجة بدون هدر الوقت

اهلا بك ممكن تتوضح اكثر تصدير من اي مكتان الى اتلنموذج الفرعي ؟

اضف حقل الثالث بهذا Expr1: DCount("[sit_no]";"[التوزيع التكراري]";"[التوزيع التكراري]![magmo]>=" & [magmo]) اي سيكون الاستعلام هكذا SELECT [التوزيع التكراري].magmo, Count([التوزيع التكراري].magmo) AS Countمنmagmo, DCount("[sit_no]","[التوزيع التكراري]","[التوزيع التكراري]![magmo]>=" & [magmo]) AS Expr1 FROM [التوزيع التكراري] GROUP BY [التوزيع التكراري].magmo HAVING ((([التوزيع التكراري].magmo)>=140)) ORDER BY [التوزيع التكراري].magmo DESC; tkrary.rar

تم تغيير مصدر الحقل المبيعات الى هذا =IIf([debit]=0;"";[debit_details]) و المشتريات الى هذا =IIf([credit]=0;"";[credit_details]) واليك القاعدة بعد تعديل Documents.rar

اتفضل استخدمت جملة شرطية Private Sub أمر11_Click() If Len(Me.aa1 & vbNullString) = 0 Then strcriteria = Replace(strcriteria, " Where ", "") 'DoCmd.OpenReport "تصفية البيع", acViewPreview, , strcriteria DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria Else Dim RName, FldCriteria As String RName = "تصفية البيع" FldCriteria = "[رقم الفاتورة]=" & Me![aa1] DoCmd.OpenReport RName, acViewNormal, , FldCriteria End If End Sub طباعة.rar

اتفضل تم استخدام فورمات في داخل الحقل في الاستعلام اي من هذا Rs: Nz(DSum("[madeen]-[daaen]";"r1";"[ID_r]<=" & [ID_r]);0) الى هذا Rs: Format(Nz(DSum("[madeen]-[daaen]";"r1";"[ID_r]<=" & [ID_r]);0);"Standard") استعلام رصيد.rar

اتفضل اليكم رابط قوالب للاكسل من شركة مايكروسوفت نفسه https://templates.office.com/ar-sa/templates-for-Excel

استاذن من استاذنا الغالي @صالح حمادي مهمة جدا اتفضل انسى طريقة التنسيق الشرطي واستخدم الكود في التقرير Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If Me.total = 0 Then Me.total.BackColor = vbRed Else Me.total.BackColor = vbWhite End Sub الاصلي.rar

نعم جربه او ارفق نسخة مصغرة من قاعدتك

اتفضل اليك هذا Private Sub Owner_Company_AfterUpdate() Me.Invoice_No = Nz(DMax("[Invoice_No]", "[New_Invoice]", "[Owner_Company]='" & Me.Owner_Company & "'"), 0) + 1 End Sub 13 - Copy.zip

افتح استعلامك في وضع التصميم ومن نافذة خصائص كنرال حدد فورمات و اختر ستاندرد ولكي لا يظهر بوينتات في حقل الاسفل الفورمات اختر رقم 0 كما مبينة في الصورة والنتيجة

القي نظرتا الى هذا استعلام SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser, Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4) AS Expr1 FROM TB_conform WHERE (((Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4)) Between [Forms]![FM_report]![Text55] And [Forms]![FM_report]![Text57])); هل هو المطلوب ؟ اذا لا اخبرني ماذا تريد ان يظهر في الاستعلام عند ادخال اي وقت واي تاريخ الى اي وقت والى اي تاريخ دمتم بخير * تستخدم صيغة الوقت الحالي NOW عند اضافة السجل سيكون من الاسهل اليك Database2.3.rar

احتمال ان يكون هنالك خلل فني تأكد من تنسيق التواريخ او ارفق نسخة مصغرة من قاعدة بياناتك

اخی وائل السلام علیکم ورحمە اللھ وبرکاتھ انا نزلت مرفقك و فتحت موضوعك وكان طلب هكذ اي قصدي بهذا قلت بدون بحث بالتواريخ !! لكن في هذه الموضوع يتم البحث بواسطة تاريخ و الوقت من الى بالساعة و التاريخ لذلك نحن نحتاج توضيح اكثر

اذا ارفق نسخة مصغرة من قاعدة بياناتك لكي يوضح لك

فرضنا ان اسم الكومبوبوكس اي القائمة عندك اسمه ( Hale ) واسم مربع مدة الاجازة = MidetALeCAZE و تاريخ البداية = DateSefer وتاريخ النهاية = DateRicoa قم بعمل الاتي في حدث بعد تحديث القائمة if me.hale = "مسافر" then me.MidetALeCAZE.visible = true me.DateSefer.visible = true me.DateRicoa.visible = true else me.MidetALeCAZE.visible = false me.DateSefer.visible = false me.DateRicoa.visible = false end if

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

اتفضل استخدم هذا لجمع اسم الحساب يساوي اسم الحساب و العملة يساوي يورو =DSum("[المبلغ المقبوض]";"العملاء";"[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='يورو'") وهذا للدولار =DSum("[المبلغ المقبوض]";"العملاء";"[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='دولار'") حوالات جديد (1).rar

اتفضل تم اضافة حقل رقم الموبايل و اسم الشركة لمصدر كومبوبوكس اسم الوكيل اي يعني تم تغير مصدر كومبوبوكس اسم الوكيل الى هذا الاستعلام SELECT [راس الشراء].[اسم الوكيل], [راس الشراء].[رقم الموبايل], [راس الشراء].[اسم الشركة], * FROM [راس الشراء]; وقمت بتغيير خصائص كومبوبوكس من عمود واحد الى 3 عمود وقمت بتغيير حجم كل عمود ... وتم استخدام هذا الكود بعد تحديث للكومبوبوكس Private Sub اسم_الوكيل_AfterUpdate() Me.رقم_الموبايل = Me.اسم_الوكيل.Column(1) Me.اسم_الشركة = Me.اسم_الوكيل.Column(2) End Sub اليك ملفك بعد تعديل w.rar

يمكن لكن اولا القي نظرتا الى هذا الكود وجربه وبعدين اذا ماتريد هذه الطريقة سنجرب الطريقة التانية Private Sub Command29_Click() With Application.FileDialog(4) .Title = "Uploading picture : Uploading Picture" .AllowMultiSelect = True .InitialFileName = "" If .Show = -1 Then For Each varFile In .SelectedItems Dim i As Integer Dim StMyPathPic As String DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Count - 1 StMyPathPic = Dir(varFile & "\" & Me.ID & ".*") If StMyPathPic = "" Then Me.swra = "" Else Me.swra = varFile & "\" & StMyPathPic End If DoCmd.GoToRecord , , acNext Next i Next Else MsgBox "لم يتم اختيار اي مجلد" End If End With End Sub Uploading Picture1.zip

نعم تم استخدام هكذا =DSum("[المبلغ المقبوض]";"العملاء"; "[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='" & [نوع العملة] & "'") عند تغيير النوع العملة سيتغير مبلغ المقبوض دور في المنتدى راح تشوف شروحات عن دالة dsum وايضا انت محتاج لهذا الرابط ايضا لاستاذنا @صالح حمادي حوالات جديد.rar