mostafazidani

طبعا لازم الجدول اللي راح يكون فيه البيانات يحتوي على نوع الهاتف وموديلة فإذا كان هكذا لفو افترضنا عندي الجدول اسمه T_MODELS ويحتوي على الحقول التالية PhoneType وPhoneModel حيث الكومبو الاول يحتوي على انواع الهواتف سواء كانت نوكيا او اي نوع اخر سيكون الكود كال…

البيانات من قاعدة بيانات ؟ ولا يتم اضافتها عن طريق الكود في الكومبو 2

الله يعطيك العافية اخي ناجي عذبتك معاي و اللي شارك بالحل بالفعل اخي ناجي كلامك صح مية مية واكتشفت الخطأ عند العميل حيث وضعت الكود وقمت بالتتبع .واكتشفت انو سبب هذه الرسالة هو من الerror handler عند اول جملة if rs.state=adstateopen then rs.close ولكن كان هناك م…

هذا هو كود زر الحفظ من خلاله يمكن حفظ وتعديل الفاتورة ويحتوي ايضا على Functions فرعية قمت بذكر الكود الخاص بها حتى تتضح جميع الجوانب Private Sub cmdsave_Click() On Error GoTo errsave Dim p As Integer Dim rs As New ADODB.Recordset Dim rsd As New ADODB.Recordset…

اولا شكرا على اقتراحك اخي الكريم ناجي تم عمل الاقتراح اخي ناجي ولكن مافي فايدة ارجو مساعدتك ومن الاخرين ايضا للمعلومية قاعدة البيانات sql 2000 والبرنامج يعمل على شبكة محلية اللي خلاني اعجز عن حل هالمشكلة انو ال exe الاول اللي جاي مع السيتب شغال زي الحلاوة كل ا…

سويت package لبرنامجي وعملت سيتب عند العميل وكل شي تمام التمام سويت فاتورة تم حفظها بشكل تمام وطباعة تمام .العميل طلب بعض التعديلات سويتها وخلصتها ورحت علشان احط ال exe الجديد بدل القديم .لما رحت اسوي الفاتورة وعند الحفظ تطلعلي رسالة operation is not allowed i…

يعطيك العافية اخي احمد راح احاول فيها

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

نعم تستطيع من خلال تحديد رقم الNode index مثلا Trrview1.nodes(1).forecolor=vbred سيتم تلوين اول نود باللون الاحمر

السلام عليكم : بصراحة احترت وين احط الموضوع هنا ولا في قسم قواعد البيانات .سؤالي ياجماعة انا عندي شبكة وقاعدة البيانات اس كيو ال .وعندي عدة موظفين لكل موظف شاشة خاصة في برنامجي انا.يعني موظفين الاستقبال لهم شاشة الاتستقبال وموظفين الفنين لهم شاشة .الاستقبال يس…

السلام عليكم بصراحة انا عانيت كثير من هالمشكلة والتي تم توقيف مشروعي عليها طبعا صممت قاعدة بيانات على sql 7 وكل شي تمام كنت اقدر احط كلمة سر واسم مستخدم واسوي الاتصال من داخل الفيجوال بيسك 6 بواسطة هذا الباسورد واسم المستخدم اللي حطيته حولت المشروع الى sql 200…

كيف يتم معالجة بطء فتح بعض شاشات البرنامج او الاسباب الموؤدية للبطء بشكل عام وكل جزيل الشكر

اولا هذه الشاشة عبارة عن شاشة مطعم بمعنى ان الازرار الموجودة سيكون عليها اسماء الاصناف وبمجرد الضغط على الزر يقوم باضافة الصنف الى قائمة الفاتورة للعميل ثانيا :قد يكون عندي اكثر من 50 طاولة في المطعم... عندما ياتي زبون لازم انا افتح طاولة(شاشة) له وخصوصا اذا ك…

مازالت المشكلة موجودة عزيزي عن جد جننتني ماني عارف من شو المشكلة

اخي مايكل نعم هي 270 اداة كلها عبارة ان ازرار وموضوعة على الفورم على شكل مصفوفة يعني انا عملت مصفوفة من الزر وهذا لايسبب اي مشلكة في العدد مادام انها مصفوفة ارجو لمن لديه الحل ان يتكرم به هنا وشكرا لك مايكل على التجاوب

انا عندي شاشة فيها مايقارب 270 زر هذه الازار هي الازرار العادية الموجودة في الفيجوال بيسك ..استطعت من خلال الكود ان اخذ نسخة من هذه الشاشة وفتح 25 شاشة ولكن عندما افتح اكثر من 25 شاشة يعطيني رسالة (( اوت اوف ميموري)) وانا مضطر انو افتح اكثر من 30 شاشة دون اغلا…

ههههههه الله يعطيك العافية جورج (هي البرمجة هبل) ولكن سؤالي موجه لصاحب السؤال لماذا تريد او مالغرض من نسخ قاعدة البيانات وهي قيد التشغيل انت ممكن تغلق قاعدة البيانات عن طريق الكود وبعدين تنسخها

انا عملت نفس الكود والقيمة المرتجعة هي بداية موقع الكلمة التي أبحث عنها private sub form_load() r.text="hello world" end sub private sub command1_click() p=r.find("world",0, ,rtfwholeword) msgbox p end sub

خليي خاصية ال ENABLED للتكست تساوي FALSE بالنسبة للتاريخ باستخدام دالة التاريخ المعروفة DATE txtentry.text=date اما بالنسبة للجزء التاني if TXTEXIT.TEXT<>"" AND TXTENTRY.TEXT="" THEN MSGBOX "تاريخ الخروج سابق على تاريخ الدخول" end if

تفضل اخي الكريم Private Sub Command1_Click() r.SelStart = r.Find("بحر") r.Span ("بحر") r.SelBold = True r.SelColor = vbRed End Sub Private Sub Form_Load() r.Text = "شركة بحر العرب لأنظمة المعلومات" End Sub