Ahmedbakheet قام بنشر مايو 27 مشاركة قام بنشر مايو 27 عارض pdf بالمسار.accdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 27 مشاركة قام بنشر مايو 27 وعليكم السلام ورحمة الله وبركاته .. أهلا وسهلاً بك في مشاركتك الأولى أخي @Ahmedbakheet .. عليك بقراءة بعض قواعد وقوانين المنتدى كي تحصل على اجابة لطلبك . وضح المطلووووب منك بالشرح الوافي اذا سمحت 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 27 مشاركة قام بنشر مايو 27 (معدل) على العموم ، وآملاً منك الإلتزام بقوانين المنتدى مستقبلاً . هل هذا طلبك في هذا الكود ؟؟؟ Private Sub Command7_Click() Dim i As Integer Dim searchText As String Dim listItem As String Dim found As Boolean searchText = InputBox("اكتب الكلمة التي تريد البحث عنها", "مربع البحث") If searchText = "" Then MsgBox "تم الغاء العملية", vbExclamation Exit Sub End If found = False For i = 0 To Me.Text4.ListCount - 1 listItem = Me.Text4.ItemData(i) If InStr(1, listItem, searchText, vbTextCompare) > 0 Then found = True Me.Text4 = listItem DoCmd.Hourglass True [WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _ OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull [WebBrowser0].Object.Navigate2 listItem DoCmd.Hourglass False Exit Sub End If Next i If Not found Then MsgBox "لم يطابق البحث عن الكلمة التي بحثت عنها", , "" End If End Sub عارض pdf بالمسار.accdb تم تعديل مايو 28 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر مايو 28 الكاتب مشاركة قام بنشر مايو 28 شكرا لك استاذى رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 28 مشاركة قام بنشر مايو 28 (معدل) 4 ساعات مضت, Ahmedbakheet said: شكرا لك استاذى ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر Private Sub cmdBrowse_Click() Me.Text4.RowSource = "" Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing End Sub تم تعديل مايو 28 بواسطه Foksh تعديل كود في المشاركة الأصلية رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مايو 28 مشاركة قام بنشر مايو 28 مشاركة مع استاذ @Foksh تفضل استاذ @Ahmedbakheet محاولتي . Display images with all extensions from path or name.rar 1 رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر مايو 28 الكاتب مشاركة قام بنشر مايو 28 54 minutes ago, Foksh said: ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 شكرا استاذى ولكن زر البحث لايعمل على ما اتى به المسار وشكرا 38 minutes ago, kkhalifa1960 said: مشاركة مع استاذ @Foksh تفضل استاذ @Ahmedbakheet محاولتي . Display images with all extensions from path or name.rar 1.09 MB · 0 downloads مشكور يا استاذى رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 28 مشاركة قام بنشر مايو 28 20 دقائق مضت, Ahmedbakheet said: على ما اتى به المسار وشكرا 58 دقائق مضت, kkhalifa1960 said: مهو لو توضح أكثر صديقي العزيز ، وزودني بصورة لنتيجة البحث 😁 رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر مايو 30 الكاتب مشاركة قام بنشر مايو 30 On 5/28/2024 at 9:58 AM, Foksh said: ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر Private Sub cmdBrowse_Click() Me.Text4.RowSource = "" Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing End Sub مشكور على كود البحث واهلا وسهلا بحضرتك لكن زر البحث لا يعمل على المسار و pdf المستدعى للمسار وهناك مسار تقريبا يخص جهاز حضرتك مش بيختفى المفروض اللى يظهر المسار المستدعى واسف على الاطاله وعدم سرعه الرد رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 30 مشاركة قام بنشر مايو 30 13 ساعات مضت, Ahmedbakheet said: مشكور على كود البحث واهلا وسهلا بحضرتك لكن زر البحث لا يعمل على المسار و pdf المستدعى للمسار وهناك مسار تقريبا يخص جهاز حضرتك مش بيختفى المفروض اللى يظهر المسار المستدعى واسف على الاطاله وعدم سرعه الرد عملتهولك في هذه المشاركة في 28/5/2024 at 09:58, Foksh said: ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر Private Sub cmdBrowse_Click() Me.Text4.RowSource = "" Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing End Sub رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر يونيو 1 الكاتب مشاركة قام بنشر يونيو 1 On 5/31/2024 at 12:55 AM, Foksh said: عملتهولك في هذه المشاركة On 5/31/2024 at 12:55 AM, Foksh said: عملتهولك في هذه المشاركة شكرا لذوق حضرتك رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ahmedbakheet قام بنشر يونيو 1 الكاتب أفضل إجابة مشاركة قام بنشر يونيو 1 انا تعبت حضرتك معايا واخر طلب بجانب الصوره ان البحث يبقى بالعربى والانجليزى واسف على الطلبات الكتير عارض pdf بالمسار2.accdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يونيو 1 مشاركة قام بنشر يونيو 1 8 دقائق مضت, Ahmedbakheet said: انا تعبت حضرتك معايا واخر طلب بجانب الصوره ان البحث يبقى بالعربى والانجليزى واسف على الطلبات الكتير إزاي ممكن توضح ؟؟؟لأن نتيجة البحث بتكون حسب اسماء الملفات بتاعتك ، بص هنا رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر يونيو 1 الكاتب مشاركة قام بنشر يونيو 1 5 minutes ago, Foksh said: إزاي ممكن توضح ؟؟؟لأن نتيجة البحث بتكون حسب اسماء الملفات بتاعتك ، بص هنا تمام هو بيبحث فى المسار لكن احيانا البحث عربى و احيانا انجليزى وعند ايجاد النتيجه المطلوبه بالنجليزى يعطى الرساله بالصوره Just now, Ahmedbakheet said: تمام هو بيبحث فى المسار لكن احيانا البحث عربى و احيانا انجليزى وعند ايجاد النتيجه المطلوبه بالنجليزى يعطى الرساله بالصوره واعذرنى لعدم خبرتى الكافيه وتعبك معايا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يونيو 1 مشاركة قام بنشر يونيو 1 7 دقائق مضت, Ahmedbakheet said: تمام هو بيبحث فى المسار لكن احيانا البحث عربى و احيانا انجليزى وعند ايجاد النتيجه المطلوبه بالنجليزى يعطى الرساله بالصوره 7 دقائق مضت, Ahmedbakheet said: أحياناً .. دي بتكون مشكلة في الأوفيس ، لأني جربت البحث بالعربي وبالانجليزي على أكثر من مكان ، وما ظهرش مشكلة عندي انا بستعمل أوفيس 2016 نواة 64 بت رابط هذا التعليق شارك More sharing options...
Ahmedbakheet قام بنشر يونيو 1 الكاتب مشاركة قام بنشر يونيو 1 4 minutes ago, Foksh said: أحياناً .. دي بتكون مشكلة في الأوفيس ، لأني جربت البحث بالعربي وبالانجليزي على أكثر من مكان ، وما ظهرش مشكلة عندي انا بستعمل أوفيس 2016 نواة 64 بت مشكور لتعبك اخى هفحص الاوفيس عندى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان