-
Posts
2,390 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
Community Answers
-
رمهان's post in كيف طريقة حل مشكلة دمج كودين تنبيه في حقل واحد؟ was marked as the answer
اخي الوجه الحسن !
هذا الكود المختصرالذي ذكرته سابقا !! وفي حدث قبل التحديث للنموذج !
Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table2", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("غير موجود") If DCount("*", "table1", "rkm_alktah=form!rkm_alktah") = 1 And (Me.NewRecord Or alktah.Value <> alktah.OldValue) Then Cancel = MsgBox("مكرر") End Sub وهذه فكرة اخرى
Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "table2", "rkm_alktah=form!rkm_alktah") = 0 Then Cancel = MsgBox("غير موجود") If DLookup("[id]", "table1", "rkm_alktah=form!rkm_alktah") <> ID Then Cancel = MsgBox("مكرر") End Sub ملاحظة : ان تلك الاكواد البسيطة هي درس كذلك في كيفية الخروج من الفخ او مصيدة الحدث قبل التحديث للنموذج لكشف المكرر ! حيث ان الفخ هو عبارة عن كيف تتجاهل قيمة السجل الحالي من التكرار !
تحياتي
-
رمهان's post in كود البحث was marked as the answer
عزيزي واخونا السيد
ظهر لي انه لابد من تحويل نوع البيانات الى عدد صحيح طويل او نص ! افضل نص . قم بالخطوات التالية:
1. احذف المفتاح الاساسي
2. غير نوع البيانات لنص
3.احذف السجلات التي تحتوي قيما خالية لان المفتاح الاساسي لايقبل ذلك
4.اعد وضعه مفتاح اساسي
تحياتي
اسف رفعتها قبل قراءة ردك !!
والحمدلله ان الخطأ لم يخرج من ما توقع رمهان وفي اول رد ! وفي الاحتمال رقم 2 بالتحديد !!
حياكم الله الاستاذ السيد الجوهري .. المبرمج والمحاسب .. جمعتم المجد من اطرافه .....
-
رمهان's post in كتابة ترتيب الطلبة تلقائيا was marked as the answer
تفضل !
افتح التقرير !!
بالتوفيق
نتيجة الطلبة11.rar
-
رمهان's post in مقارنة بين سنتين was marked as the answer
ضع هذا التعبير في اي مكان قابل للحساب ( عمود استعلام - مصدر عنصر التحكم مربع نص في النموذج او التقرير وطبعا مسبوقا بعلامة = )
([tot]-DLookUp("[tot]";"t1";"yearr=" & [yearr]-1))/DLookUp("[tot]";"t1";"yearr=" & [yearr]-1) بالتوفيق
-
رمهان's post in المساعدة في برنامج معمول بالاكسس لقراءة اوزان الشاحنات من الميزان الالكلتروني was marked as the answer
هذه الاكواد خلف كل زر وحسب اسمه وعند الحدث عند النقر
Private Sub أمر43_Click() Qty_Total = text1 Date_To = Now() End Sub Private Sub أمر44_Click() Qty_Spece = text1 Date_Sp = Now() End Sub بالتوفيق
-
رمهان's post in كيف طريقة تثبيت السجلات في النموذج؟ was marked as the answer
صباح الخير اخي
يمكنك تجربة الخاصية "دورة" من التبويب غيرذلك لخصائص النموذج الفرعي لتكون "السجل الحالي" بدلا من "كافة السجلات"
تحياتي
-
رمهان's post in مطلوب عرض بيانات أيام الأسبوع الحالي was marked as the answer
عزيزي اباخليل
ما رأيك بهذا المعيار بعمود التاريخ :
>=DateAdd("d";1-Weekday(Date());Date()) And <DateAdd("d";8-Weekday(Date());Date()) فالعملية هي : احسب لي من الاحد الى الاحد ! اي هذا الاسبوع!! وما لنا شغل في الاسبوع والشهر والسنة !!
تحياتي
-
رمهان's post in كيفية تفعيل التعديل في بيانات نموذج فرعي مبني علي استعلام فلتره من داخل نموذج رئيسي was marked as the answer
معلومة : سبب عدم قبول التعديل هو ان جميع خاصية تم تأمينه=نعم لجميع عناصر النموذج الفرعي !
بالتوفيق
-
رمهان's post in دمج المكرر في TextBox واحد بشرط was marked as the answer
تفضل مع ملاحظة انه يوجد خطأ في الصورة المرفقة غير متوافقة مع البيانات من ما توهنا شويتين . حيث يوجد في السطر الثالث بالصورة الاسم احمد والاصح نبيل .
لاحظ الاستعلام والدالتين بالوحدة النمطية العامة.
'رمهان 'abc_2_me@hotmail.com Public Function fn(p) Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Table1.Ch_Name FROM Table1 WHERE ((([Pr_Code] & [Start_Date] & [End_Date] & [Pr_Details])='" & p & "'));") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount xn = xn & rs(0) & " - " rs.MoveNext Next i fn = Left(xn, Len(xn) - 3) End Function Public Function fn2(p) Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Table1.Product_ID FROM Table1 WHERE ((([Pr_Code] & [Start_Date] & [End_Date] & [Pr_Details])='" & p & "'));") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount xn = xn & rs(0) & " & " rs.MoveNext Next i fn2 = Left(xn, Len(xn) - 3) End Function لاحظ انه تم عمل الدالتين ليصبح الحل مطبق على الاستعلام والتقارير !
هذا وان هو المطلوب تماما اخبرني بذلك ليتم الشرح !
بالتوفيق
ramhan.rar
-
رمهان's post in اريد تصميم برنامج على الاكسس (التكلفة المالية) was marked as the answer
اخي الكريم
اطرح الفكرة اولا لعل وعسى ان يكون هناك مثال قريب من ما تريد . ويكون فائدة للجميع!
بالتوفيق
-
رمهان's post in مربع نص بشرط ؟؟؟ was marked as the answer
اخي عبدالرحمن
الصق التعبير التالي كمصدر بيانات للعنصر rt3 ويمكن استخدامه كذلك في التقرير .
=IIf([rt2]>=400;400;[rt2]) بالتوفيق
-
رمهان's post in فصل بيانات عمود عن بعضها لعدة اعمدة عن طريق علامة مميزة was marked as the answer
عزيزي
اعمل استعلام للجدول واضف التعبيرين التاليين
Expr1: Left([name];InStr([name];"-")-1) Expr2: Right([Name];Len([Name])-InStr([Name];"-")) بالتوفيق
-
رمهان's post in ماهو كود تلوين سجلات بناء على شرط معين was marked as the answer
تفضل
اذهب الى عرض تصميم النموذج ثم حدد احد العناصر ثم التنسيق الشرطي من شريط القوائم لترى الشرط والتنسيق . تستطيع وضع التنسيق المناسب
بالتوفيق
pro.rar