slhslm

السلام عليكم تقديري لك اخوي blackice انت 100% استخدمت الكود التالي وشغال هدا بفضل الله ثم بارشادك Public WithEvents btn As VB.CommandButton Private Sub Form_Load() Set btn = Me.Controls.Add("VB.CommandButton", "btn") btn.Caption = "HI slhslm" btn.Visible = Tru…

السلام عليكم عندي فورم واريد انشاء cotrols (ازرار)على هدا الفورة برمجيا فكتبت هدا الكود اولا اعلنت عن المتغيرات التالية في declartion section dim withevents btn as VB.commandbutton هنا تم تعريف المتغير btn على انه زر ولكن لم يضاف الى الفورم ارجو من اخواني الكو…

السلام عليكم شكرا اخواني على الافادة الاخ blckice الكود تبعك 100% لكم تقديري(f)

slhslm@hotmail.com

السلام عليكم اخي شكرا على الرد بس اعتقد مافهمت المقصد ---- انا عندي procedure للالوان اريد عند ما اذهب الى اي فورم ارسل فقط اسم الفورم وهدا ال procedure يقوم بالمهمة بدلا ما انشأ لكل فورم نفس الحالة اختصارا للكود اذن في الحالة هده يتطلب ان تمرر اسم الفورم وقد …

السلام عليكم ارجو من اخواني افادتي الله يجزيكم خير كيف ممكن تمرير اسم فورم الى procedure اخر مثال private sub main() form2 me.name endsub --------------- private form2(frm as form) print frm المفروض هنا يطبع اسم الفورم main endsub وشكرا لكم (f)

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

لا مؤاخده اخوي محمد ترى تعبتك معاي ايش رائيك تعطيني الاميل تبعك ارسلك البرنامج يكون قريب جدا منك تقدر تجرب هو جاهز بس انك تغير في الكود وتجرب وبرضه تعطيني رائيك لمبتدئ وشكرا

السلام عليكم اخوي محمد شكرا لمجهوداتك ولكن يوجد خطأ ايضا في مكان ثاني من البرنامج عند rs.close رسالة الخطأ opreation is not allowed in this context على فكرة نفس الكود الذي انت كتبته نزلته عندي بعدين على الطري كيف ممكن مشاهدة member تبع الكائن لاجل الواحد يخلي …

السلام عليكم شكرا اخوي محمد على الكود لكن ظهرت رسالة جديدة الخطأ التالي method or data member not known لك تقديري (f)

السلام عليكم اذا ممكن الاميل تبعك لارساله هو بسيط من ناحية عدد اسطر الاكواد واعتقد انه حيكون ابسط لك ولا مؤاخده شكرا

شكرا اخوي حمود عدلت البرنامج الى text لان الحقل text ولكن نفس المشكلة ونفس الرسالة الخطأ type mismatch وياتي على السطر التالي Set rs = Adodc1.Recordset.Clone لو كلفت عليك البرنامج عندك وقبل كده ارسلته لك وانت ما قصرت وحنتعبك معانا ولكن هدا العشم في الناس الطيب…

السلام عليكم شكرا اخوي ستراوي لابداء التعاون (وكلنا ننسى ) بس اعتقد الكود واضح اذا خرجت من رقم الصنف عايز افحص هل يوجد سجل مشابه بمعنى هل الرقم المدخل جديد موجود في الملف او لا اذا كان موجود يرجع الى نفس الحقل المشكله هي في السطر هدا Set rs = Adodc1.Recordset.…

السلام عليكم عندي كود دائما يظهر رسالة missmatch رقم الخطا 13 Private Sub Text1_LostFocus(Index As Integer) Dim tmpvar As String If Index = 0 Then If Not IsDate(Text1(Index).Text) Then Text1(Index).SetFocus ElseIf Index = 1 Then If Text1(Index).Text = "" Then …

شكرا اخوي محمد لقد افتيت فافدت بس عملية seek لايقبلها جانب السيرفر فقط ممكن تكون شغالة على جانب العميل والا انا مخطئ مع العلم انها اسهل واسرع ولك كل التقدير (f)

السلام عليكم ماهي مهام cursor location - cursor type في الكائن recordset اذا امكن التوسع في الشرح لتعم الفائده وشكرا (gift)

شكرا اخوي حمود اعتقد يحتاج تختار cursor location client side هل هدا صحيح لانه يظهر رسالة تقول لايمكن استخدام الطريقة الا وانت على client side mode لك كل تقديري على الاهتمام (f)

السلام عليكم ارجو من اخواني كود للطريقة التالية عندي فورم لادخال البيانات على طريقة data bound اريد عند ادخال البيانات ان يقوم البرنامج بفحص الملف عن السجل المراد ادخاله حيث ان الحقل الرئيسي برميري كي دون تكرار لتفادي التكرار او لتفادي ظهور خطأ يوجد سجل مشابه …

شكرا اخوي حمود كان شرحك في طريقة سرد البرنامج ممتازه وقد نجحت الطريقة ارجو لك كل توفيق وعلى الله نرد الجميل تقديري (f)

السلام عليكم شكرا اخواني حمود:سترواي: ابودلال --------- ارسلت البرنامج لكم ارجو مع الشكر ان يكون الرد قريب --------- اخوي ابودلال شكرا على الرد ولكن نفس الكود كتبته وصار يخفظ السجل بس ما يزيد على الملف سجل جديد يلغي واحد سبق موجود ويضيف سجل فاضي اذا تريد ارسلك…