omani

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

اخي الكريم : افتح الجدول الثاني باستخدام الاسكيو ال التالية Rs.OPen "Select SUM(fielName) from Table2 Where Kashf_ID= 1" Table1.fieldTotal =Rs.field(0)

عملك جيد فقط عند استدعائك للمكتبة استخدم الكود التالي للحصول على النتيجة Dim m As New HS.MyClass Dim n As Long n = m.HS(380, 100 ) تحياتي

اخي يوفي لم افهم بالضبط ماذا تريد . إن امكن ارفق مثال . واعتقد إن لك اكن مخطئاً سوف تقوم بتحريك وزيادة حجم الخانات بناءً على حجم الصفحة . تحياتي

اذهب لقسم التقارير في الاعلى . ستجد امثلة على ذلك عموما انت تحتاج الى SP6 السيرفس باك 6 لترقية الفيجوال لديك ومن ثم تجد خاصية Oriantion تحدد منها ما تريد مثال DataReport1.Oriantion = adlandScape تحياتي

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

هل تستخدم صلاحيات معينه على المستخدمين . يبدو انك تستخدم ملفات معينه مثل winsock فهذه يجب تصريحها في البوليسى الخاص بالسيرفر . تحياتي

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

شكرا على المعلومة تحياتي

موجود عندي وسأحاول ان ارفعه في احد المواقع خلال الاسابيع القادمة . عبارة عن 2 سيدي تحياتي

اخي الكريم اجعل جداولك كالتالي اولا جدول العيادات . يكون به كود العيادة وايضا كود للمالك . في الجدول الثاني يجب تحديد كود العيادة مع الايصال , أي ان ايصال هذه الضريبة يخص العيادة الفلانية بغض النظر عن مالكها . الجدول الثالث : بيانات الدكتور ورقم الكود الخاص به…

اخي الكريم : في الخصائص تجد خاصية امسه ForcePageBreak اجعلها = 2 أي ان القيمة rptPageBreakAfter تحياتي

لا داعي لكل هذه الزوبعد فقط ضع هذا السطر في حدث Detailssection_format للتقرير Set Picture1.FormattedPicture = LoadPicture(Rs!PicField.value) حيث ان Rs!PicField هو اسم الحقل في الجدول الذي يحمل المسار هذا كل شي تحياتي

اخي الكريم 'لتغغير شكل الماوس الى الساعة الرملية MousePointer = 11 'الاتصال بقاعدة البيانات db.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\db1.mdb" 'تم حجز متغغير مسبقا في الجنرال باسم cm وهو من نوع Com…

اخي الكريم . لا داعي لكل ذلك فبإمكانك مناداة الفيلد مباشرة . مثال لو لدينا في التقرير مربع نص اسمه Text1 نرغب بتعبئته من التكست الموجودة في الفورم فقط نكتب الكود التالي : Crystalreport.text1.setText Text1.text حيث ان Text1.text هو محتوى التكست الموجودة في الفو…

اخي الكريم : ان كنت تملك السيرفس باك 6 SP6 فما عليك الا ان تكتب الكود التالي قبل اظهار التقرير . DataReport1.Oriantion=adlandScape إما اذا كنت لا تملك النسخه فانصحك بتنزيل السيرفس باك من موقع ميكروسوفت او انظر في توقيعي ستجد مثال لكيفة التعامل مع التقارير بعرض…

ماهي تقنية الاتصال التي تعمل بها . لو فرضنا انك تعمل على تقنية ADO فاستخدم الكود التالي في حدث Form_Unload if con.state=1 then con.close end if أو للاختصار استخدم الكود التالي if con.state=1 then con.close تحياتي

المثال يعمل بشكل جيد رغم انه بطيئ نوعا ما ولكنه يعمل بدون مشاكل تحياتي

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

عدل هذا السطر t.FindFirst "[wanted] ='" & Trim(N) & "';" تحياتي