rey360

السلام عليم أعضاء المنتدي الكرام هل هناك طريقة لستخراج 4 قيم كبرى أو صغرى مثل الدالة large و small في اكسل test.accdb

شكرا لك أخي Ali Sadiq على تعديل بما يناسب أخ حلبي

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

أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم

شكرا لك أستاذ أحمد الفلاحجى ولكن أردتها على هذا الشكل like "*" & [Forms]![f_listeclients]![Texte51].[Texte] & "*" الا أنها لم تعمل معي لانني أرد أن تعمل تعديث أتوماتكي كلما زدت حرف أو انقصته حرف .

السلام عليكم أعضاء المنتدى الكرام أريد طريقة للبحث بحيث عند كتابة الحرف يعطيني جميع اسماء التى يكون ظمنها هذا الحرف مع أنني أعرف الطريقة الا أنها لا تشتغل في هذا النموذج أريد معرفة السبب وشكرا test2.accdb

السلام عليكم أعضاء المنتدى الكرام أذكر طريقة تكملة البيانات تلقائيا في الفورم انطلاقا من نفس الجدول بحيث هناك طريقتين: طريقة الاولى عن طريق ما يسمى recordset Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clients WHERE idClient= " & Me.nomClien, dbOpenDynaset) Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.Ville = rs!Ville rs.Close Set rs = Nothing أما الطريقة الثانية فهية عن طريق Dlookup If DLookup("idClient", "Clients", "idClient=" & Me.nomClien) Then Me.Ville = DLookup("Ville", "Clients", "idClient=" & Me.nomClien) Me.Societé = DLookup("Societé", "Clients", "idClient=" & Me.nomClien) Me.Adresse = DLookup("Adresse", "Clients", "idClient=" & Me.nomClien) Me.Tel = DLookup("Tel", "Clients", "idClient=" & Me.nomClien) Me.Email = DLookup("Email", "Clients", "idClient=" & Me.nomClien) End If سأرفق الملف لفهم أكثر كما أطلب من أساتذتنا الكرام هل هناك طريقة أخرى تقوم بهذا العمل بغرض التعلم لان هناك دائم طرق كثير للوصل الى الهدف في أكسس وشكرا لكم . test.accdb

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

شكرا لك أستاذ ابا جودى فأنتم كلكم أساتذتي وكل يوم أتعلم منكم

أشكر أستاذ kha9009lid على الرد السريع

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

بعد اذن الاستذتنا والخبراء أقدم مقترحي لانه يريد البحث ب الحرف و لله أعلم test.accdb

السلام عليكم أعضاء المنتدي الكرام أريد أن أسأل عن الفرق بين recordset و query في اضافة أو الحذف أو التعديل و ما يميز احداهما عن الاخر وشكرا جزيلا.

السلام عليكم هل يمكن شرح هذه الوحدة النمطية ان أمكن كما أنها للاستاذ ابا جودى وشكرا لكم Function NoSpaces(InName As String) As String Dim NewName As String, ThePrevStr As String, TheStr As String Dim I As Integer InName = Trim(InName) For I = 1 To Len(InName) TheStr = Mid(InName, I, 1) If TheStr = " " And ThePrevStr = " " Then TheStr = "" If TheStr <> "" Then ThePrevStr = TheStr NewName = NewName & TheStr Next NoSpaces = NewName

السلام عليكم هل يمكن شرح هذه الوحدة النمطية ان أمكن كما أنها للاستاذ ابا جودى وشكرا لكم Function NoSpaces(InName As String) As String Dim NewName As String, ThePrevStr As String, TheStr As String Dim I As Integer InName = Trim(InName) For I = 1 To Len(InName) TheStr = Mid(InName, I, 1) If TheStr = " " And ThePrevStr = " " Then TheStr = "" If TheStr <> "" Then ThePrevStr = TheStr NewName = NewName & TheStr Next NoSpaces = NewName End Function

شكرا لك أستاذ Khalf على الشرح شكرا جزيلا.

شكرا لك أستاذنا ابو عارف على التدخل وحل المشكل الذي يظهر لي دائما عندما يكون الملف مكتوب بالعربي

هذا الملف قمت بعمل عن طريق معطيات الموجودة في الملفك exemple.accdb

جرب هذا عندي مشكل في الجهاز مع اللغة العربية مثال (1).rar

السلام عليكم هذا ما تريده مثال.accdb

بحثت ووجد طريقتين عن طريق expression في حالة القيم موجبة =Int(Expr)+IIf(Expr-Int(Expr)>0,1,0) في حاالة القيم سالبة =(Int(Abs(Expr))+IIf(Abs(Expr)-Int(Abs(Expr))>0,1,0))*IIf(Expr>=0,1,-1) كما يمكن القيام بها عن طريق vba Public Function RoundUp(X As Double, Optional I As Integer) As Double If IsMissing(I) Then RoundUp = -Int(-X) Else RoundUp = -Sgn(X) * Int(-Sgn(X) * X * 10 ^ I) / 10 ^ I End If End Function

السلام عليكم أعضاء المنتدي الافاضل أريد طريقة لعمل RoundUp في التقرير وشكرا

السلام عليكم أعضاء المنتدى الكرام أريد أن اعرف الفرق بين KeyDown و KeyPress في الفورم وشكرا

شكرا لكم أساتذتي الافاضل على الرد الشافي والواضح

السلام عليكم أعظاء المنتدى الكرام أريد أن اسئلكم بصفتكم خبراء هل هناك فرق بين أن تصصم برنامجك بالاكسس أو بلغة #c وهل صحيح أن هناك حدود لاكسس بحث هناك أشياء يمكن أن تعملها با #c ولا تستطيع عملها بالاكسس وشكرا لكم و سؤالي هذا لاتحقق من شىء لغير .