omani

تأكد من ان هناك طابعة مثبته في الجهاز المستخدم وارفق المكتبة التالية : MSDBRPTR.DLL MSSTDFMT.DLL علما بأن هذه الملفات تنزل على System32 وفي حالة الفشل قم بتثبيت اي اصدارة من اصدارات MSOFFICE تحياتي

هل لك أن ترفق مثال يوضح المشكلة واعتقد ان مشكلتك تكمن في الاتصال بقاعدة البيانات تحياتي

في توقيعي تجد طرق البحث في التواريخ تحياتي

نعم ممكن ذلك باستخدام Sub Report من خلال الاداة المستخدمة يمكن ادراج تقرير معد مسبقا كتقرير فرعي مع تقرير رئيسي تحياتي

فقط اكتب الكود التالي في المكان المناسب if combo1.listindex=-1 then msgbox "اختر من القائمة " combo1.setfocus Exit sub end if تحياتي

مراحب اخي العبدالله ستجد مبتغاك في الأمثلة الموجودة بتوقيعي تحياتي

استخدم جملة الاسكيوال التالية لتجميع الاصناف حسب نوع الصنف SQL = "Select * from Table1 Group By Item_Name"

اخي الكريم في حدث Format للتقرير اكتب الكود التالي لو فرضنا ان مربع النص الذي يحتوي على القيمة اسمه textbox1 textbox1.value=iif(textbox1.value=0,"",textbox1.value) هنا يقوم هذا الكود بتغيير القيمة الى فارغ إذا كانت القيمة تساوي صفر تحياتي

تفضل اخي الكريم انظر المرفقات تحياتي tests.rar

اخي الكريم : يجب تخزين القيم في جدول في قاعدة البيانات ويتم قراءاتها وعرضها بواسطة الكومبو تحياتي

السلام عليكم استخدم هذه الجملة لحل مشكلتك rs.Open "SELECT Table1.*, Table2.* FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID;", db تحياتي

'حافظ على اعدادات الشاشة الأصلية OldX = Screen.Width / Screen.TwipsPerPixelX OldY = Screen.Height / Screen.TwipsPerPixelY 'تغيير حجم الشاشة ChangeRes 800, 600 'End Sub DisableCloseWindowButton Me DisableWindowState = 2 'Skin1.ApplySkin Me.hWnd WindowState = vb…

هذا هي الطريقة SQL= " select * from MyTable where Date_Field( between #" & CDate( Mask1 ) & "# and #"& Cdate ( Mask2) & "#)" تحياتي وهنا تجد جميع طرق البحث بالتاريخ /index.ph...158&t=70644 تحياتي

اخي الكريم من هنا تستطيع تنزيل السيرفس باك 6 Service Pack 6 http://www.microsoft.com/downloads/details...;DisplayLang=en حجم الملف 26.5 mb بالنسبة للكود استخدم التالي : Datareport1.Orientation=rptOrientLandscape ' هذا لوضع التقرير أفقي DataReport1.Orientation=…

السلام عليكم SP6 هي اختصار لـ Service Pack 6 وهي تطوير للسيرفس باك السابقة المستخدمة من قبل الفيجوال وهي عبارة عن ملفات نظام Dll وأدوات OCX باصدارات حديثة تم معالجة بعض الاخطاء الواردة في لغة البرمجة وقامت بتنزيلها شركة ميكروسوفت تحياتي

أخي الكريم ضع قيمة التايمر 150000 Interval=150000 في التايمر كود اكتب التالي Rs= Movenext تحياتي

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

في هذه الحالة تحتاج الى اضافة Timer وتكتب الكود بداخلة بدون التكست بكس تحياتي

نعم ممكن ذلك باستخدام التالي statebar1.Pannel(1).text=me.name تحياتي

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