المبرمج أحمد

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: أبو صابرين :: كيف حالك ؟ ما عليك سوى استبدال قيمة الثابت HK_ALTZ ( مع أنني أفضل تغيير هذا الاسم أيضًا ) كما في المثال التالي : Const HK_ALTZ = &H64D وبهذا تكون قد جعلت الاختصار Ctrl + Alt…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: أبو عبير 2005 :: نصيحة : لا تستخدم أقراص CD-R في التجربة بل استخدم CD-RW الذي يمكنك من تسجيل ومسح البيانات من القرص على لا تتلف المزيد من الأقراص المضغوطة .

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... هل تقصد شكل المؤشر أو الفأرة ؟

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: أبو صابرين :: يبدو أنك تقصد تعيين Min و Max : ProgressBar1.Min = 0 ProgressBar1.Max = 100 أخبرني ما الذي تريد معرفته عن هذه الأداة والسلام عليكم ورحمة الله وبركاته ...

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي :: أبو صابرين :: هذا هو كود المثال الذي طلبته : Dim I As Byte For I = 1 To 100 If MsgBox("هذه هي الرسالة رقم " & I & " ، هل تريد المتابعة ؟", vbQuestion + vbYesNo) = vbNo Then Exit For ProgressBar1…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: أبو عبير 2005 :: جرب استبدال الكود التالي : ShockwaveFlash1.Movie = App.Path & "/" & "Aboabeer.swf" بهذا الكود : ShockwaveFlash1.Movie = App.Path & "\Aboabeer.swf" ووافني بالنتائج والسلام…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أما بالنسبة للسؤال الثاني فقد قمت بالتعديل على الكود الذي وضعته حتى أصبح كالتالي : sq = InputBox("بحث عن كلمة", , "أدخل الكلمة هنا") Data1.RecordSource = "Select * From [hesn] Where rtrt Like '*' & '" …

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... الخطأ يا أخي أنه لا توجد دالة بالاسم CopyFile ، أما الكود الصحيح بعد التعديل فهو : Dim Path As String Path = App.Path & "\Egaz" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub FileC…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته .. أخي العزيز :: HOMICRO :: وفقك الله كل الحلول التي طرحها إخواني الأعزاء كانت صحيحة بالفعل حيث طلبوا منك استخدام App.Path في تحديد مسار قاعدة البيانات . ضع هذا الكود في حدث تحميل النموذج Form Load : Data1…

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته .. بعد مراجعة الكود الثاني تبين لي أني نسيت وضع علامة = ، والكود الصحيح هو : 'في الــModule: public db as New ADODB.Connection 'وفي الــGeneral: Dim rscust As New ADODB.Recordset dim rsitem as New ADODB.Re…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: فهد علي :: لقد قمت بتجربة هذين الكودين قبل قليل فظهرت لي نفس رسالتي الخطأ السابقتين . فقمت بقليل من التعديلات عليهما حتى عملا : 1- الكود الأول ، قمت بحذف الكلمة º من الخاصية Provider فعمل…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: walled_aall@hot :: هذا الكود يقوم بإخفاء البرنامج من قائمة التطبيقات أما إذا فتحت قائمة العمليات فستجد البرنامج موجودًا هناك وغير مخفي ..

جزاك الله خيرًا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... المشرف العزيز newbie : يبدو أنك وضعت هذه المشاركة في المكان الخاطئ

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أخي العزيز :: olobnet :: قد تقصد إضافة عناصر إلى القائمة المنسدلة عند الضغط على الزر ، فأرجو أن يكون هذا ما تريده : Combo1.AddItem "olobnet" Combo1.AddItem "شمس الزناتي" Combo1.AddItem "المبرمج أحمد" و…

بارك الله فيك وجزاك الله خيرًا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... جزيت خيرًا أخي هاني ، وإلى الأفضل بإذن الله

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