ابو ياسين المشولي

طيب ليه ماتخلي الاحاق من النموذج

استخدم هذا المعيار عند التاريخ Not In (SELECT t2.xdate FROM t2;) عدم التكرار (1).accdb

لم تفهم قصدي 1- لإضاف كلمة مرور جديدة يجب ترك مربع كلمة السر القديمة فارغا و كتابة الكلمة الجديدة فقط ثم الضغط على زر الأمر 2- لتعديل كلمة المرور نكتب الكلمة القديمة و نكتب الكلمة الجديدة ثم الضغط على زر الأمر 1- لحذف كلمة المرور نكتب الكلمة القديمة ونترك مربع كلمة السر الجديدة فارغا ثم الضغط على زر الأمر اترك كلمه السر القديمه واكتب كلمه سر جديد لا يعمل اذا كان فيها حروف واعطيني خبر بعتذر على سوى الفهم انا كنت فاقر انه اذا يوجد رقم سري تخلي كلمه السر القديمه فاضي الان استوعبت انه اذا كانت بدون كلمه سر اعتذر عن سو الفهم

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

اليوم صالح حمادي فتح موضوع بهذا الشان تغير كلمه السر وفي برامج تعطيك كلمه السر برنامج يعطي كلمه السر حق mdb اي اذا صيغطته accdb رجعها mdb

جاري عنده نظام سحب بالبطاقة بحاول اشوف الطريقه

ابشر بعد الصلاه باذن الله

وللامانه عملت ضبط في ساعه الجوال وكان الفرق 3 او 4 جزءمن الثانيه فلك الف شكر

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

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

للرفع

ايوه اخي صالح بس كلمه المرور كانت مكونه من حروف وارقام لازم تعملها على الحروف والارقام

عند كتابه الرقم السري القديم يتم التغير

بعد التجربة

اخر سجل hrk_sh = Nz(DLast("Price", "HRR", "Nwaha='11'"), 0) اول سجل hrk_sh = Nz(First("Price", "HRR", "Nwaha='11'"), 0)

هههههههههههههههههههه حلوة منك يا ابا جودي

انا عامل حمايه بالهاردسك وهو ماعندي غير برنامج واحد وهو تبع الخياطه لسه يادوب كل شوي واعمل فيه حاجه امين يارب ولك بالمثل ولمن حضر الف تحيه وتقدير للجميع

والله مشغول اخ محمد الى الان لم اشوف اي شي توصلتم اليه ولكن اوعدك اذا كملت مايشغلني اتابع معكم

حبيبي محمد عصام ابا جودى ربي يحفظك ادفع لك كل يوم في صمت بان ربي يحفظك وينفع بك المسلمين

اخي نفس الكود احذفه من حدث عند التغير وخليه في حدث بعد الحدث If Nz(CusName.Text, "") = "" Then CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind;" Me.CustomerFind_subform.Requery Else ' CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind WHERE CusName Like'*" & Me.CusName.Text & "*';" ' Dim vSearchString As String ' Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind1;" ' vSearchString = Me.txtSearch.Text ' Me.CusName1.Value = vSearchString ' Me.CustomerFind_subform.Requery ' '' Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind1;" '' Me.CustomerFind_subform.Requery Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind WHERE CusName Like '*" & PartOfName(Me.CusName.Text, 1) & "*" & PartOfName(Me.CusName.Text, 2) & "*" & PartOfName(Me.CusName.Text, 3) & "*" & PartOfName(Me.CusName.Text, 4) & "*" & PartOfName(Me.CusName.Text, 5) & "*" & PartOfName(Me.CusName.Text, 6) & "*'" _ & " Or CusNum Like '*" & Me.CusName.Text & "*'" _ & " or custel Like '*" & Me.CusName.Text & "*'" _ & " or cusmob Like '*" & Me.CusName.Text & "*'" _ & " or cuscity Like '*" & Me.CusName.Text & "*';" End If adv find test.rar

متابع بصمت ولكم مني كل الشكر لما تبذلوه من جميع النواحي تحياتي للجميع

للرفع

اتفضل استاذ jjafferr jjafferr.accdb

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

يسعدني مرورك استاذي القدير ابوخليل فعلا الدوال بطيئة