Elsayed Bn Gemy

طب انا هعملك 5 حروف بالظبط وانت تكمل الباقى اتفقنا ؟؟

مقابلتنيش قبل كدا بس انا ممكن اساعدك ولو بفكرة انت عندك 28 حرف باللغة العربية هتحدد امام كل حرف ما يقابله فى اللغة الانجليزية وبشوية معادلات بسيطة كدا جمع الحروف واكسب الطبونة هههههههههه اتمنى تكون فكرتى وصلت

اخى الكريم انظر الى هذه الصوره وطبق ما بها 1 - مصدر عنصر التحكم الخاص بالحقل =1 2 - مجموع تراكمى اجعله مجموعة اضافية

غفر الله لى ما كان للعين ابدا ان تعلو على الحاجب شكرااااااا لك

Dim rs As Recordset Dim Criteria As String Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly) Criteria = "[UserName]='" & [txtUserName] & "' And [Department]='" & [cboDepartment] & "'" rs.FindFirst Criteria If rs.NoMatch = True Then MsgBox "يرجى الـتأكد من إسم المستخدم", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه" Me.txtUserName.SetFocus Exit Sub End If If rs!Password <> Me.txtPassword Then MsgBox "يرجى الـتأكد من كلمة السر", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه" Me.txtPassword.SetFocus Exit Sub End If هل تسمحون لى بالمشاركة معكم شرطين فى دالة البحث rs.FindFirst

الف مبروووووووووك وسدد الله خطاك

السلام عليكم اسمحولى بالمشاركة اخى الفاضل ابو عارف اكوادك كلها صحيحة الاول والثانى اما اخونا االفاضل احب ان اوضح توضيح بسيط لا يخفى عليكم If Conditional Expression ( الشرط أو التعبير الشرطى ) Then الأوامر التى يتم تنفيذها فى حالة تحقق الشرط Code نهاية جملة الشرط End If اى كما لاحظت فى اكواد اخونا ابو عارف اما الاختلاف بين كودك وبين كود اخونا ابو عارف لاحظ الملاحظة التى باللون الاحمر جملة If …..Then تتكون من If ثم يأتى بعدها (الشرط أو التعبير الشرطى) ثم كلمة Then وهذا كلة على سطر واحد فقط. يلى السطر الذى يحتوى على If …..Then مجموعة الأوامر المطلوب تنفيذها . إذا كانت قيمة الشرط أو التعبير الشرطى خطأ False يتم تنفيذ مجموعة الأوامر التى تلى End If ( أى باقى أوامر البرنامج ) . فى حالة تحقق الشرط أو عدم تحققة يتم تنفيذ ما بعد End If

تفضل اخى الكريم أستفسار حول عمل تقرير مقارن(1).rar اخى الكريم يمكنك مراجعة معايير الاستعلام الوقت والتاريخ من هذا الرابط من ميكروسوفت https://support.office.com/ar-sa/article/%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D9%85%D8%B9%D8%A7%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85-3197228c-8684-4552-ac03-aba746fb29d8#bm4

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

اعتذر لك اخى الكريم هذا خطاءى فمن البديهى ان تقوم الدالة باستدعاء اول قيمة تقابلها اذا وجدت اكثر من قيمة لرقم الهويه اخى الكريم عوضا عن دوال الاستدعاء ومشاكلها تم تعديل الكود واستخدام دوال التجميع استبدل الكود السابق بهذا الكود If IsNull(fid) Then MsgBox "برجاء كتابة هوية العميل" Exit Sub End If If IsNull(PayMony) Then MsgBox "برجاء كتابة المبلغ المدفوع" Exit Sub End If If IsNull(monthfild) Then MsgBox "برجاء كتابة شهر الدفع" Exit Sub Else Dim Y As Integer Y = Nz(DCount("[monthfild]", "databace", "monthfild=#" & Me.monthtext & "#"), 0) If Y >= 1 Then MsgBox "عفوا تم تسجيل هذا الشهر مسبقا لهذا العميل", vbInformation, "مكرر" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO databace " & "(id,monthfild,namee,WorkPlace,PayMony,Mountfild) VALUES " & "(fid, monthtext,fname, WorkPlace ,PayMony,Mountfild);" DoCmd.SetWarnings True MsgBox "تم سداد الشهر بنجاح" End If End If

السلام عليكم اخى الكريم قمت بعمل تعديلات بسيطة اولا انشات جدول لاسماء العملاء وارقام هويتهم حيث افترضت ان لكل عميل رقم هويه ثابت خاص به تقوم انت بادخاله عند توريد الشهر وفرت عليك كل هذا فعند اختيار اسم العميل يقوم البرنامج باستدعاء الرقم الخاص به (رقم الهويه) فائد رقم الهويه هى انه من خلاله استطيع البحث داخل جدول المدفوعات حيث افترضت ان لكل عميل رقم محدد يمكنك مشاهدة طريقة صورة خاصة تحركة بطريقة عمل برنامجك من هنا http://recordit.co/CKn9qm2Gfk استعملت الكود التالى حيث ان الكود لا ياخذ التاريخ كله من حقل الشهر فى الجدول بل ياخذ من التاريخ الشهر فقط ويقانه بالشهر الموجود فى النموذج مع الربط برقم هوية العميل If IsNull(fid) Then MsgBox "برجاء كتابة هوية العميل" Exit Sub End If If IsNull(PayMony) Then MsgBox "برجاء كتابة المبلغ المدفوع" Exit Sub End If If IsNull(monthfild) Then MsgBox "برجاء كتابة شهر الدفع" Exit Sub Else Dim Y As Date Y = Nz(DLookup("monthfild", "databace", "id=" & Me.fid), 0) If Month(monthtext) = Month(Y) Then MsgBox "عفوا تم تسجيل هذا الشهر مسبقا لهذا العميل", vbInformation, "مكرر" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO databace " & "(id,monthfild,namee,WorkPlace,PayMony,Mountfild) VALUES " & "(fid, monthtext,fname, WorkPlace ,PayMony,Mountfild);" DoCmd.SetWarnings True MsgBox "تم سداد الشهر بنجاح" End If End If المرفق الخاص بك maysoon.rar

حسنا اخى ان شاء الله خمس دقائق ارفقلك مرفقك جارى التعديل عليه

اخى الكريم هل لكل عميل كود محدد ثابت له انت تسجل به مدفوعات العميل ام بالاسم ؟؟

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

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

لا ولكن ارسل لى رسالة الخطأ

اخى الكريم جرب هذا Dim Rs_search As String Rs_search = "[t_name ] =" & F_name Rs_search = Rs_search & " Or "[t_mobile] =" & F_mobile Rs.FindFirst (Rs_search)

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

مشاركة مع استاذنا ابو خليل ولكن ضع فى حسبانك قاعدة بيانات انه يجب اغلاقها اولا قبل استعمال الكود حتى لا يتم فقد بياناتها او ماشابه 'اغلاق الجهاز Public Function TurnOff() Shell "shutdown -s -t 02", vbHide End Function 'اعادة تشغيل Public Function Reboot() Shell "shutdown -r -t 02", vbHide End Function 'تسجيل الخروج Public Function LogOff() Shell "shutdown -l -t 02", vbHide End Function 'اعادة التشغيل بالقوة Public Function ForceReboot() Shell "shutdown -r -f -t 02", vbHide End Function

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

Me.Text4 = Day(Text2) - Day(Text0) Me.Text6 = Month(Text2) - Month(Text0) Me.Text8 = Year(Text2) - Year(Text0) اخى الكريم اضف هذا الكود لزر احسب

تفضل اخى الكريم صورة من التقرير ولكن للكلينكر فقط أستفسار حول عمل تقرير مقارن(1).rar

ازل كلمة Not من الكود السابق واكتب القيم التى تريدها

وهل تريد للكلينكر فقط ؟؟

اخى الكريم اضف هذا المعيار فى الاستعلام حيث تريد الاستثناء Not In ("بيروت";"طرابلس";"بكفيا";"كسروان";"فتوح")