mrnooo2000

حل اخر بدون كود حتى يكون لديك خيارات اكثر استخدم هذا الاستعلام SELECT s1.[no], IIf([cost]<[cost2],IIf([cost3]<[cost],[seller3],[seller]),IIf([cost3]<[cost2],[seller3],[seller2])) AS Lseller, IIf([cost]<[cost2],IIf([cost3]<[cost],[cost3],[cost]),IIf([cost3]<[co…

هذا يتوقف على بناء قاعدة البيانات لديك و من الواضح انك تستخدم جدول واحد للاسماء و العناوين معا لذلك كل عنوان سيتم التعامل معه على انه حالة جديدة الافضل هنا أن تقوم بتقسيم الجدول الى جدول الحالات و يتم وضع البيانات الثابته مثل الاسم و الجنس و يتم اضافة جدول فرع…

الملف من مشاركة أخرى لك حتى لا يبقى الموضوع مفتوحا archive.rar

استخدم هذا الكود CurrentDb.Execute "UPDATE PayRecv SET PayRecv.check_status = IIf([maturity]> Date() ,3,2);" تنبيه : يرجى عدم تكرار الموضوع بلا داعى

ضع هذا الكود فى النموذج الفرعى Private Sub PIC_Click() Dim Path As String Path = GetImageFolder If IsEmpty(Me!PIC) Or IsNull(Me!PIC) Then Me.Parent.DBPixMain.ImageViewBlob (Null) Else Me.Parent.DBPixMain.ImageViewFile (Path & Me!PIC) End If End Sub Private Fun…

نعم ممكن أخى هناك طرق كثيرة لوضع حلقة تكرار for ......next For a_counter = 1 to 10 j = a_counter msgbox "The value of the counter in the last loop was " & a_counter Next a_counter do.....until Dim x,Z As Integer Z = 1 Do x = Z msgbox x Z = Z + 1 Loop Until Z >…

جرب المرفق db1.rar

ياريت توضيح اكثر

اخى الكريم الحقول المحسوبة لا تحتاج الى الاحتفاظ بها فى جدول لانك تستطيع الحصول عليها فى أى وقت بدون زيادة حجم البيانات عموما اذا اردت ان تضعه فى جدول ضع الكود فى حدث فى الحالى للنموذج Me.[Newdate of grade] = DateAdd("yyyy", IIf([grade] < 10, 4, IIf([grade] > …

اعتذر لتأخرى فى الرد للانشغال أخى الكريم البرنامج يعمل بكفاءة و بدون مشاكل لدى اعتقد ان المشكلة فى نسخة الاكسس لديك

حقل تاريخ الدرجة القادمة حقل محسوب لذلك لا تحتاج الى وضعه فى الجدول ضع هذا الكود فى مصدر مربع النص الخاص بتاريخ الترقية القادمة =DateAdd("yyyy";IIf([grade]<10;4;IIf([grade]>10;6;5));[date of grade])

استخدم هذا الكود If Val(HRID1 & "") = 0 Then MsgBox ("Enter Agent 1") ElseIf Val(HRID2 & "") = 0 Then MsgBox ("Enter Agent 2") ElseIf Project1.Value <> Project2.Value Then MsgBox ("The 2 Agents must be at the same project") Else Dim id As Integer id = Nz(DMax(…

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة نود تنبيهك أن العنوان غير مناسب. الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية. وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!! ق…

اعتذر لتأخرى فى الرد لانشغالى تفضل أخى جرب المرفق هذا تعديل سريع لما تريد Copy of استعلامات_2013-11-14.rar

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

جرب هذا الكود If Me.month = 1 Then Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=12 AND [year]=" & Me.year - 1), "") Else Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=" & Me.month - 1 & " AND…

تفضل أخى AboYossof_Monthly.rar

ضع هذا الكود فى حدث عند الفتح للتقرير Me.ControlBox = False

ضع هذا الكود فى حدث عند الفتح للتقرير Me.ControlBox = False

ضع مثالك للتطبيق عليه