abulyaman

السلام عليكم ورحمة الله وبركاته الحمد لله أن المثال أعجبك ورد على سؤالك وصدّق قولى حين أخبرتك أنها بسيطة لا تنسانا من الدعاء ولو عندك أى شئ فى الفليكس جريد أو خلافه يا ليت نتشارك فى حله سوا وأسأل الله أن ييسر لك الصعب ويوسع عليك فى العلم والرزق الحلال

السلام عليكم ورحمة الله وبركاته أخى الحبيب عندى فكرة يمكن تضيئ لنا طريق الحل لمشكلة البطء ضع رسائل عند محطات معينة لمعرفة الجزء المتسبب فى التأخير هل هو تهيئة النموذج - الاتصال بقاعدة البيانات - تحميل البيانات بـ Do Loop أم ماذا، وعندها نحصر تفكيرنا فى جزء من …

أخى عرفة هذا ما أعاننى الله عليه خلال هذه الساعة من العمل على عجالة - والبركة فى النسخ واللصق. ولكنى أضفت لك العديد من الأشياء التى قد تفيدك منها 1- التصدير للإكسل 2- الطباعة من الجريد مباشرة 3- إمكانية نقل الأعمدة 4- إظهار عدد ومجموع الخلايا المظلله 5- إمكاني…

أخى عرفة هذا ما أعاننى الله عليه خلال هذه الساعة من العمل على عجالة - والبركة فى النسخ واللصق. ولكنى أضفت لك العديد من الأشياء التى قد تفيدك منها 1- التصدير للإكسل 2- الطباعة من الجريد مباشرة 3- إمكانية نقل الأعمدة 4- إظهار عدد ومجموع الخلايا المظلله 5- إمكاني…

أخى العزيز سأطلع على المثال وإن شاء الله أساهم فى حل المسأله على قدر استطاعتى والله من وراء القصد وهو يهدى السبيل

السلام عليكم أنا أعرف تشغيل ملفات Wave ومن خلال دوال الـ API ''''*** In the General Declaration ***** '''''''**** To Play Wave File ********* Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Lo…

أخى عرفة إضافة قد تفيدك بصورة أو بأخرى Sql="SELECT Distinct BluckType FROM TypeStokePrice Order By BluckType" Dim R as Long Combo1.Clear Set RS = Cn.Execute(SQL) If Rs.RecordCount>0 then Rs.MoveLast: Rs.MoveFirst For R=0 To Rs.RecordCount -1 Combo1.AddItem Rs!…

السلام عليكم ورحمة الله وبركاته ممكن نقول ببساطة أن ScaleWidth هى مساحة العمل على النموذج أو الصورة أو الصفحة الطباعة أو أو ... يعنى لكى تتضح الصورة أعطيكى مثال إذا كبرنا النموذج Maximize فإن ScaleWidth مساحة العمل عليه ستتغير أما Width عرضه فلن يتغير لأنه سيع…

بارك الله فيك يا أخ عرفة وجعلك من الذين يستمعون القول فيتبعون أحسنه حقيقة أنا أشعر أن هناك شئ وفقود فى شرحك للمسأله أولا أطمئنك بأن المسألة بسيطة - بس لو عرفناها. إذا كنت تحاول الوصول لسجل محدد ، فلابد لك أن تصل إليه من خلال مفتاحه _ أقصد القيمة الفريدة Unique…

السطر الثانى أجاب على السؤال الأول، وأذكرك بأن تضغطى Crtl + I وأنت فى السطر لتعرفى المعاملات بالكامل هنا سبب الفاصلتين لحجز خانتين لم نعطى لهما قيم لأن هذا البند Node بند جذرى فهو ليس تابع لبند آخر والفاصلة الثانية لتحدد أنه أبن أو تالى أو أو ... لست متذكر الب…

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

أخى العزيز على عجالة عدلت لك هذا الكود الذى يفترض وجود أداة اختيار تشغل وتفصل حركة الهبوط ولم استخدم أداة التايمر ولكن وضعت الزمن من خلال الكود وحددته بعشر ثانية كفاصل زمنى للهبوط أرجو أن يكون ما تريده أو قريب منه Sub ScrollIt() Me.Label1.Top = 0 Dim A As Long…

أخى arafa أولا يا ليت تعدل توقيعك لتجعله حسب الآية 114 سورة طه وَقُل رَّبِّ زِدْنِي عِلْماً {114} بدون ياء ثانيا على حسب ما فهمت من كلامك أنك تريد كل الأكواد التى ضمن مقاس محدد، ولكنه يعطيك الأول فقط أعتقد أنك نسيت أن تتحرك للآخر لتمكنه من قراءة كل البيانات فه…

اكتشفت أن هناك بعض الخطوات لا داعى لها فألغيتها Private Sub AddNodes() On Error GoTo ErrFound Me.MousePointer = vbHourglass Dim I As Long, L As Integer, L1 As Long, SqlStr As String Dim Rs1 As Recordset With TV1 ''''****** TreeView Name ********* .Nodes.Clear …

السلام عليكم ورحمة الله وبركاته أود أن أساعدك على قدر الإمكان ولكنى أفتقر لملكات الكتابة - معلهش فى المثال التالى أحاول تحميل الشجرة ببيانات من قاعدة بيانات لدليل محاسبى تعمدت فيه أن يكون هناك حقلين حقل لمستوى البند فى الشجرة Levl وحقل به اسم الأب التابع له ال…

أخى العزيز هذه الطرق فى المثال الذى عرضته كلها واحده ولكن عندما يكون اسم الحقل به مسافة أو كلمة محجوزة أو بالعربى مثلا لن تنفع معك Rst!اسم حقل ولكن لابد أن تكتبها Rst![اسم حقل] أو Rst.("اسم حقل") مع الممارسة قد تجد أنك محتاج لإحداها دون الآخرين فقد صادفنى مرة …

الحمد لله الذى هداك للحل لقد أشرت إليك بهذا الحل فى مشاركة سابقة والآن لمنع تأخير التحميل لك منى نصيحتان 1- ابتعد عن حدث التحميل عندما تقرأ بيانات كثيرة لأنك تمنع النموذج من الظهور حتى يتم التحميل ولو حدث أى خطأ سيفشل ظهور النموذج - إلا إذا تصيدته أو تخطيته. 2…

أخى العزيز Azhar3 والله حقك على غلطتى أنى لما بدخل المنتدى لا أتجاوز الصفحة الأولى- ما عدا النهارده بالصدفة الحمد لله أن رأيى لقى هوى عندك الفكرة سهله جدا أن كل فليكس جريد لها صورة يمكنك التعامل معها كما تشاء كأن تضعها فى صورة فى التقرير مثلا بهذا الشكل Set My…

السلام عليكم ورحمة الله وبركاته أعتقد أن إجابة الأخ alshmary ليست هى ما يريده الأخ MSraheib لأنها ستزيل قيمة الاختيار عند الضغط عليه مهما كانت قيمته 1 أو 0 كل ما فى الأمر أنى أقترح إضافة خطوة على ردك وهى الإعلان عن متغير فى قسم الإعلانات وجعله Integer مثلا MyC…

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