نجوم المشاركات

وعليكم السلام احد الطرق الاسهل هو: الباركود عبارة عن: *رقم* فتستطيع عمل حدث "قبل التحديث" على جميع حقول النموذج ، انه اذا كان الرقم الُمدخل يبدأ بـ * وينتهي بـ * ، فاجعل الرقم داخل حقل الباركود جعفر

شكرا أخي صالح على الملاحظة ، لما شفت ان مصدر بيانات النموذج الفرعي عبارة عن استعلام ، اعتقدت بأن المعيار موجود هناك اخي محمد ، اليك الكود المعدل ، والمرفق Private Sub Change_to_this_AfterUpdate() mySQL = "UPDATE Q1" mySQL = mySQL & " SET [الحالة] = '" & Me.Change_to_this & "'" mySQL = mySQL & " Where [id] = " & Me.id1 DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.SUB.Form.Requery End Sub جعفر 683.test120.mdb.zip

واضح من معناها اذهب الى 86 والرقم ما هو الا رقم يمكن استبداله باي رقم اخر او كلمة تستطيع التجربة بنفسك كل ما في الامر هو تخطى الترحيل والذهاب الى الخطوة التالية داخل الحلقة التكرارية اذا تحقق الشرط وهو ايجاد التكرار فيقوم باضافة عدد واحد كل مرة للمتغير اكس حتى نهاية الكود ويتم عرضهم في اخر الكود اما بخصوص Goto بعد تحقق الشرط ووجود التكرار يقوم بالذهاب الى النقطة المحددة كما بالصورة وهي next الخاصة بالحقلة التكرارية للترحيل فيقوم بتخطى الترحيل والذهاب الى التالي حتى انتهاء الحلقة التكرارية اتمنى ان اكون قد اوضحت المطلوب تحياتي

وعليكم السلام أخي أحمد جرب الدالة المعرفة التالية علها تفي بالغرض Function Initials(str As String) As String Dim sTemp() As String Dim i As Long sTemp = Split(str) For i = 0 To UBound(sTemp) If sTemp(i) Like "[أ-ي]*" Or UCase(sTemp(i)) Like "[A-Z]*" Then Initials = Trim(Initials & "" & UCase(Left(sTemp(i), 1))) End If Next i End Function لاستخدام الدالة في ورقة العمل =Initials(A1)

تفضل التعديل يعطى رسالة في نهاية الترحيل بعدد المكرر ان لم يجد تكرار يعطى تم الترحيل بدون تكرار تحياتي اصنافform - Copy.rar

تفضل المرفق به الحل للموضوع السابق والحالي تحياتي Book1.rar

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

اخي حامد انا اعتذر منك على المعلومة الخاطئة ، بينما لواقع هو عند طباعة الباركود يجب ان يكون الحقل بصيغة *رقم الباركود* ، وليس عند قراءته واحد الحلول هي كما ذكرت انت: وبالتالي تستطيع استعمال طريقتي التي ذكرتها في البداية جعفر

انا لا اتكلم عن ارقام الباركود ، انا اتكلم عن جهاز الباركود تجربه: اعمل حقل رقمي في الجدول ، والان ضع التركيز على هذا الحقل ، ومن جهاز الباركود اقرأ اي باركود ، ستجد انه لا يقبل ويعطيك خطأ ، لأن المعلومة التي ادخلتها ليست رقم بينما اعمل حقل نص في الجدول ، وضع التركيز على هذا الحقل ، ومن جهاز الباركود اقرأ اي باركود ، ستجد انه يدخل الباركود جعفر

ربنا يبارك فيك استاذ ياسر العربي

اتفضل غيرت حقل اي دي من نوع ترقيم تلقائي الى الرقم وبعدين في نموذج الفرعي في حدث بعد تحديث لحقل سنة كتبت هذا الكود Private Sub elyear_AfterUpdate() Me.id = Nz(DMax("[id]", "raseed", "[nationalty]=" & [Forms]![person]![nationalty]), 0) + 1 End Sub واليك مرفقك بعد تعديل اكتب رقم قومي جديد و اكتب السنة في نموذج فرعي راح تجد التغيير بعد تحديث الاجازات - Copy_2.rar

السلام عليكم ورحمة الله أضيف إلى حل أخي العزيز أبو البراء، جازاه الله خير الجزاء، ثلاثة حلول اثنين منها بالمعادلات (واحدة مباشرة والأخرى غير مباشرة) والحل الثالث عبارة عن توجيه إلى خاصية جديدة في إكسيل 2013 و 2016... بن علية حاجي استخراج آوائل حروف كلمات في خلية.rar

وفي حال عدم امكنية الجهاز القارئ الباركود لقراءة احد باركودات بسبب من الاسباب , شو تعمل حينئذ ؟ لذلك حسب فهمي من الاحسن ان تستخدم كلا مع البعض وتقدر تتقيد بعض الشروط لكي يكمل العملية مثلا يجب الرقم مكون من .... الارقام او عند ادخال الباركود وذلك الباركود ليس موجود في برامجك ان لا يقبل الادخال وهكذا والله يعلم @jjafferr

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

السلام عليكم ورحمة الله وبركاته اخي الكريم اذا استخدمت خاصية فورمات Percent لا يحتاج ان تضرب النتيجة في 100 فقط عليك ان تعمل تقسيم الحقل الاول على الثاني ويعطيك النتيجة =[نص580]/[نص582] لكن اذا ما تستخدم الخاصية فورمات Percent واستخدمت مثلا كينرال نمبر حينئذ يجب عليك ان تعمل تقسيم الحقل الاول على الثاني بين قوسين وتضربه في 100 =([Text585]/[Text587])*100 نسبة الفرق بين رقمين متغيرين.rar

جزاك الله كل خير وبارك فيك .. المعلومه مفيده جدا وخاصه لامثالي

شكرا لك حلت المشكله

السلام عليكم ورحمة الله وبركاته مشاركة مع استاذي القدير جعفر الحبيب على الرعم ان تم الوصول الى النتيجة لكن اريد ان اشارك معكم بطريقة اخرى اتفضل اليك هذا سطر من الكود لكي تعطيه بعد تحديث حقل التاريخ Private Sub date1_AfterUpdate() If Len(Me.Seq & "") = 0 Then Me.Seq = Nz(DMax("[Seq]", "tb1", Left(DMax("[Seq]", "tb1"), 2) = Right(Year([date1]), 2)), Right(Year([date1]), 2) & 0) + 1 Else Exit Sub End Sub 679.ترقيم جديد كل سنة جديدة.rar

تفضل الحل لعله المطلوب وياريت تبقي تخلي بالك ان الملف محمي بكلمة مرور تحياتي اصنافform - Copy.rar

حبيبي ابوالبراء ياغالي نعمل ايه بقي الركنة وحشة والمخ بدأ يصدى ودا مينفعش يتركن لازم يفضل شغال وحشنا ياغالي تقبل فائق احترامي

نورت المنتدى أعربي وعوداً حميداً .. والله زماااااااااااااااان يا عربي

يمكن ذالك عن طريق اتباع الشرح الخاص باستاذنا الجليل ياسر خليل بالاعلى او كما يمكن ذالك عن طريق وضع الكود الحالى بثلاث صيغ والدلاله واحده بالنهاية Private Sub UserForm_Initialize() 'الطريقة الاولى If Label1.Caption <> "" Then Label1.Caption = Sheets(1).Range("a1").Value End If 'الطريقة الثانية Label2.Caption = Range("b1") 'الطريقة الثالثة Label3.Caption = Range("c1").Value 'CommandButton 'الطريقة الاولى If Label1.Caption <> "" Then CommandButton1.Caption = Sheets(1).Range("a2").Value End If 'الطريقة الثانية CommandButton2.Caption = Range("b2") 'الطريقة الثالثة CommandButton3.Caption = Range("c2").Value End Sub ومرفق ملف لتوضيح الامر 1010.rar كما بالامكان البحث بالموضوعات القديمة وستجد كل ما ترغب به ان شاء الله ومثال على ذالك الرابط التالى

أستاذ جعفر هذا الكود سوف يقوم بتغيير القيمة في الجدول كاملا و ليس النموذج الفرعي فقط لذلك اسمح لي بهذا التعديل الطفيف في السطر الأول من الكود الذي وضعته mySQL = "UPDATE Q1 SET [ÇáÍÇáÉ] = [Forms]![test1]![Change_to_this] where id=Forms![test1]![id1] " DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.SUB.Form.Requery

السلام عليكم Me.SUB.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To [SUB].Form![nombre] Me.SUB.SetFocus [SUB].Form![work] = Me.نص36 DoCmd.GoToRecord , , acNext Next i Me.نص36.SetFocus جرب هذا المثال البسيط فهو يفي بالغرض test120.rar

وعليكم السلام انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ، ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه: Private Sub Change_to_this_AfterUpdate() mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this] DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.SUB.Form.Requery End Sub جعفر

انظر الى هذا المرفق طبعا يمكن الاضافة والحذف والتعديل حسبما يتطلب العمل مشتريات.rar

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

الحمد لله توصلت للإجابة ونضعها للأخوة لتعميم الفائدة ( التطبيق على اكسس 2007 ) للاخوة المبتدئين مثلي : 1- لجعل حقل معين يتلون الي اللون الاحمر عندما يتبقى 7 ايام لانتهاء التاريخ : يجب اختيار الريبورت في وضع التصميم واختيار جميع الحقول ( طبعا في هذا الوضع تكون اسماء حقول وليت الحقول نفسها) الذهاب لقائمة Design تحت Report Design tool واختيار Expression ثم غير المربع الاول الى Expression is وضع الكود حسب المدة الزمنية المحددة اعتمادا على حقل تاريخي سابق ( عندي هنا InsuaranceEnd ) وهذا هو الكود : [InsuranceEnd]<=Date()+7 ويمكن تغيير الرقم .أما اذا تركته خالي من أي رقم فهذا يعني تاريخ اليوم Date() واترككم مع الصور : 1- الصورة الأولى : 2- الصورة الثانية ملاحظة : امتداد الملف هو نفس امتداد اكسس 2007 و 2010 لكني غيرته الى Mde لتغيير شكل ايقونة الاكسس ( المشاركة التالية ستكون لتعطيل Click right من اجل حماية الفورم من التعديل والسيطرة على واجهة الاكسل ) ____________________________ صور الشرح مرفقة وكذلك مرفق قاعدة بيانات تم فيها تمكين زر الماوس الايمن لتطلعوا على تأثير التنسيق المشروط هذا بتاريخ 29/12/2011 طبعا بعد هذا التاريخ لفترة يجب على كل من ينزل المرفق ان يغير تاريخ الحقل ( InsuaranceEnd ) DataBase with format condition.rar