SEMO.Pa3x

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

@Yaool حياك الله عزيزي واهلا وسهلا بك في أي وقت. حسنين

السلام عليكم , تحية طيبة لإدارة المنتدى. كما واضح في العنوان اقترح انشاء قسم للـ C# / VB.NET خصوصا لانني من عشاق هذه اللغة ومن روادها. حسنين

@Yaool هل حُلت مشكلتك نهائياً ؟ حسنين

@Yaool ولماذا تستخدم Tag ؟ اكتفي فقط بكتابة txt_title = searchtext حسنين

@Yaool استخدم حقل ثاني, عند الكتابة في الحقل الاول تبقى الكتابة كما هي لا تتغير لكنها سوف تكتب في الحقل الثاني وتكون مفرغة من الحركات وو.الخ وهذا الحقل سوف يكون مخفي Visible = False ثم الاستعلام سوف يأخذ معيار البحث من الحقل الذي قمنا بأخفاءه وبالتالي سوف يكون لديك حقل يعمل في الكواليس. حسنين

استخدم الدالة Replace عند الحدث After_Update لإستبدال الهمزة والتاء..الخ حسنين

تقصد حل للحقل الذي ستكتب به عبارة البحث؟ حسنين

عليكم السلام, ارفق القاعدة لكي نتمكن من مساعدتك. حسنين

حسنا جداً، بهذا الأمر يجب ان نستخدم العتاد الثقيل وهو الـ VBA قم بإنشاء وحدة نمطية واعطها اي اسم مثلا ( Clear_Text ) وقم بألصاق هذا الفنكشن بداخلها Public Function ReplaceString(tshkeel As String) Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = tshkeel i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop ReplaceString = wr End Function ثانياُ: قم بعمل استعلام وضع بداخله الحقل الذي يتضمن الاسماء التي تحتوي على الحركات الهمزة والكسرة والضمة.. الخ ثم قم بإنشاء حقل جديد في الاستعلام لكي نقوم بمناداة الوحدة النمطية كالاتي: Clearing_Text: ReplaceString( [اسم الحقل الذي يتضمن الاسم] ) اذا واجهت مشكلة ارفق القاعدة, لكي نقوم بمساعدتك. حسنين

طيب, قم بعمل استعلام يقوم بإستبدال جميع الهمزات والحركات للنصوص المسجلة في القاعدة وريح راسك حسنين

Like "*" & Forms!frm_Main!txt_search & "*"

استخدم الدالة Like للبحث.

@Khalf عزيزي الموضوع ابسط مما تتخيل، يكفي فقط ان تضع وسوم الـ HTML في مصفوفة من نوع String ثم تقوم بعمل Loop لفلترة الـ RitchTextBox وتفريغها من الوسوم بإستخدام الدالة Replace بحيث تقوم الدالة بإستبدال الوسوم بألاعتماد على الوسوم التي وضعناها سابقا في المصفوفة,, ثم يخزن القيم الفارغة من الوسوم في متغير لكي يتم حفظها في الجدول. حسنين

نعم يمكنك ذلك بإستخدام الدالة Replace لإستبدال وسوم الـ HTML وحفظ المخرجات الفارغة من الوسوم في حقل اخر في الجدول. حسنين

وعليكم السلام ورحمة الله وبركاته.. تفضل Option Compare Database ' لتسجيل عدد الضغطات Dim Number_Click As Integer Private Sub Form_KeyPress(KeyAscii As Integer) ' اذا تم الضغط على مفتاح Enter If KeyAscii = vbKeyReturn Then Number_Click = Number_Click + 1 ' اذا كانت عدد الضغطات اثنان If Number_Click = 2 Then Number_Click = 0 ' ضع اسم النموذج الذي تريده ان يفتح DoCmd.OpenForm "Form_Name" End If End If End Sub حسنين