rey360

أستاذ jjafferr الطريقة شغالة و تم اغلاق الثغرة شكرا لك

الكود شغال 100%

شكرا لك أستاذ @kha9009lid

فيما يخص الدالة dlookup استطعت بفضل الله أن أجد لها حل ولازلت أبحث حل بالنسبة ل recordset On Error GoTo errouu If Me.Texte3 = DLookup("passe", "test1", "login='" & Me.Texte1 & "'") Then DoCmd.OpenForm "test2", acNormal DoCmd.Close acForm, Me.Name, acSaveNo Else MsgBox "????" End If errouu : حتى المعادلة الخاصة بأستاذ jjafferr لا يمكن اخترقها بهذه الطريقة If DCount("*", "test1", "login='" & Me.Texte1 & "'" & " and passe='" & Me.Texte3 & "'") = 0 Then MsgBox "????" Else DoCmd.OpenForm "test2", acNormal DoCmd.Close acForm, Me.Name, acSaveNo End If

شكرا لك أستاذ jjafferr و أستاذ صالح حمادي على هذه المشاركة ولك كان سؤال هو عند كتابة في مربع login اسم المستخدم صحيح وفي الخانة pass رقم سري خاطئ مع اضافة 'or 1='1 ل login يقوم بدخول اليه كما هو موضح في صورة هل هناك حل لهذه المشكلة حتي وان ستعملنا الدالة dlookup If DLookup("id", "test1", "login='" & Me.Texte1 & " 'and passe='" & Me.Texte3 & "'") Then DoCmd.OpenForm "test2", acNormal DoCmd.Close acForm, Me.Name, acSaveNo Else MsgBox "????" End If

السلام عليكم أعضاء المنتدي الكرام في المثال أدناه طريقة فور لدخول المستخدم عن طريق recordset و sql ولكن هناك مشكلة في حالة وضع في login أو كلمة المرور كلمة مرور خاطئ ووضع أمامها 'or 1='1 يقوم بدخول الى الفورم وهذه المشكلة تدعى SQL injection هل هناك حل لها وشكرا test.accdb

بعد اذن أستذنا jjafferr أرد أن أشارك في الموضوع test.accdb

السلام عليكم أعضاء المنتدي الكرام أريد أن أرف ما هو الفرق بين recordset.clone و RecordsetClone و فيما يمكن أن نستعملهما ان أمكن وشكرا

أخ يوسف ابوسمره عدد الطلاب هو العدد الذي تريده في كل مجموع وليس العدد الاجمالي لطلاب الموجودين عندك

هذا ماأشار اليه الأستاذ jjafferr على ما أظن ssa.accdb

بحكم أني أستخدم نسخة فرنسية

أنا عندي يعمل عادي جرب هذا صلاح بلعلا القائمة والمربع.accdb

انشاء الله اكون المطلوب أخ صلاح بلعلا القائمة والمربع.accdb

تعديل بسيط لدالة التشفير لتقوم بقرأة الاحرف الكبيرة Function sedqtr(mott As String) Dim se As String se = "" For i = 1 To Len(mott) se = se & Format(Asc(Mid(mott, i, 1))+ Int(100 / 15), "000") Next sedqtr = se End Function

شكرا لك أستاذ صالح حمادي أدخلت format لتصبح كل أرقام تتكون من 3 أرقام عوض 1 أو 2 أو 3 فكرة أكثر من جيدة أنا كنت أفكر في عمل دالة عن طريق دوران تتحقق من الارقام ومع ذلك لم أكن اعرف اذا كانت ستنجح ومن هنا نستنتج أن تهكر الارقام السريال للبرامج و الالعاب ليس بأمر الهين أو السهل

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

السلام عليكم أريد عكس دالة لتشفير جدول اليوزر ان أمكن هي دالة بسيطة Function sedqtr(mott As String) Dim se As String se = "" For i = 1 To Len(mott) se = se & Asc(Mid(mott, i, 1)) + Int(100 / 15) Next sedqtr = se End Function

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

السلام عليكم الاخ الوميض الاحمر أرجوا أن يكون المطلوب wameed.accdb

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

شكرا لك أستاذ jjafferr دائما ما تكون تدخلاتك سلسة والمعادلات والاكود التى تقوم بها مفهومة ومدروسة بارك الله لك وزادك في علمك.

شكرا لكم جميعا أحمد الفلاحجى خالد سيسكو husamwahab على مجهدكم وأمثلة شكرا جزيلا لكم

السلام عليكم أستاذ husamwahab أرجو أن يكون لكم اقتراحات أخرى لان الكود الذي قمت به لم يعجبني وشكرا Nouveau Microsoft Access Base de données.accdb

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

السلام عليكم أعضاء المنتدى الكرام أريد وضع فاصل مابين الارقام والحروف في استعلام بطرق أخرى أفضل من طريقتي وشكرا Nouveau Microsoft Access Base de données.accdb