صالح حمادي

هذه الشفرة لم تنفذ الأمر فقمت بالتعديل عليها و أصبح الكود يغير الخاصية بشكل جيد و هذا شكل الكود بعد التعديل: Dim WD As Object Set WD = Me.WebBrowser4.Document For i = 0 To WD.links.length - 1 WD.all.Item(i).target = "_self" Next i بقي الحدث المناسب فهذا الحدث WebBrowser0_DocumentComplete لا يظهر دائما أحيانا ينفذ الأكواد و أحيانا أخرى لا يعني لا أدري ما هو السبب وراء ذلك

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

لقد نجحت في تطبيق هذا الجزء و إلغاء فتح النافذة الجديدة بقي إصطياد اللينك الآن و هذا هو الكود: Private Sub WebBrowser4_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True End Sub

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

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

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

السلام عليكم عند استخدام أداة webbrowser في التصفح. عوض ظهور نافذة جديدة في الأداة. يقوم البرنامج بفتح صحفة في متصفح أنترنت أكسبلورر المطلوب هو هل يمكن فتح الصفحة الجديدة على نفس الأداة دون فتح الأنترنت أكسبلورر كما يوضح هذا المثال: ويب.accdb

إذنك معك أخي شكرا

العفو أخي

تفضل لقد أضفت زرا آخر يقوم بإختبار حالة القاعدة هل هي مفتوحة أم مغلقة التحكم في نماذج قاعدة بيانات خارجية.accdb

على راسي أستاذنا الغالي التحكم في نماذج قاعدة بيانات خارجية.accdb

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

الموضوع قديم. يغلق

هههههه الحمد لله على كل حال عزيزي هل يعني أنه يتوجب علينا حمل أغراضنا و الرحيل إلى قسم VB.NET. ما هي لغة تستخدمها في الدوت نت. هذا واجبنا صديقي

؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم أولا: حياك الله صديقي على السلسلة الرائعة من الأعمال الجميلة التي تقدمها و قد قمت بإجراء تجربة و إرسال أحد مواضيعي في المنتدى. ثانيا: لقد ذكرت في العنوان تطبيق عملي لقراءة ملفات التكست أونلاين و لكن لم تذكر أي شيء بخصوصه في الشرح. ثالثا: هل تمكنت من الوصول إلى الحل أم إستخدمت البريد الإرلكتروني كوسيط أخيرًا: لقد عودتنا على إنشاء برامجك بالأكسس و لكنك الآن استخدمت بيئة الدوت نت هل هنالك سبب معين أم ماذا. شكرا جزيلا مجددا صديقي على الموضوع الرائع

السلام عليكم إطلع على هذه المواضيع بها ما تريد و هناك العديد من الأمثلة في المنتدى تستطيع الإستفادة منها فقط استخدم خاصية البحث:

هل أضفت مسار قاعدة البيانات للكود في مكان Full_path_2database

السلام عليكم لفتح قاعدة من قاعدة أخرى تستطيع استخدام هذا الكود: Application.FollowHyperlink Full_path_2database

هذه ليست مشكلة أنا وضعت مثالا للتوضيح فقط قم بتغيير كلمة أوفيسنا باسم مربع النص لديك Me.h

أخي الكريم @sandanet حسب علمي هناك طريقتن للتعديل على قواعد البيانات إحداهما الطريقة التي تفضلت بها أنت و الطريقة الثانية هي باستخدام أوامر sql و قد تناولت موضوعين شرحت فيهم هذه الدوال: في المثال الذي تقدم به السائل لدينا هذا السطر أو أمر سكيول هو الذي يقوم بكل شيء: ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x فالأمر Alter يسمح لنا بالتعديل على الجدول و Alter الثانية تعطينا إمكانية التعديل على الحقل الموجود في هذا الجدول

لتبديل القيمة الإفتراضية إلى تاريخ تجعل الكود هذا مع مراعاة نوع الحقل: Dim x As Date x = Date CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [h] date DEFAULT " & x DoCmd.Close DoCmd.OpenForm "FASASE" لتبديل القيمة الإفتراضية إلى نص تجعل الكود هذا: Dim x As String x = "officena" CurrentProject.Connection.Execute "ALTER TABLE tblORQA1 ALTER [c] string DEFAULT " & x DoCmd.Close DoCmd.OpenForm "FASASE" أخي المثال واضح و يعمل بشكل جيد

السلام عليكم جرب هذا الرابط:

السلام عليكم في الكثير من الأحيان نحتاج إلى معرف مصدر اختصارات سطح المكتب أو إلى معرفة هل هذا البرنامج لديه اختصار على سطح المكتب أم لا؟ نستطيع استخراج مصدر اختصارات سطح المكتب و ملفها من خلال هذا الكود: Dim strFolder As String Dim strDesktop As String Dim typefiche As String Dim strtxt As String typefiche = "\*.lnk" strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") strFolder = Dir(strDesktop & typefiche, vbDirectory) Do While strFolder <> "" If Not (strFolder = "." Or strFolder = "..") Then strtxt = "Full Path: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).TargetPath & vbCrLf strtxt = strtxt & "Path Folder: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).WorkingDirectory & vbCrLf MsgBox strtxt End If strFolder = Dir() Loop مصدر اختصارات من سطح المكتب.rar

ألف مبروك للخبيرين يستاهلو أكثر ننتظر منكم المزيد إن شاء الله