الفريد

الأخ الفاضل : الحل مرفق .. و هناك ملاحظتين الأولى هنا لابد من وجود ملف الصورة With DataReport1 Set .DataSource = rs Set .Sections("Section1").Controls("Image1").Picture = LoadPicture(App.Path & "\TempImg.jpg") .Show End With الثانية هنا نستطيع حذف الصورة و تحم…

تفضل Example.rar

العفو يا غالي

لماذا لا تجرب الطريقة Dim La, Na, Ma, Oa Na = Val(Text1.Text) La = Right(Na, 1) If La <= 9 And La >= 7 Then Oa = Mid(Na, Len(Na) - 1, 1) Ma = Mid(Na, 1, Len(Na) - 2) & (Oa + 1) & "0" ElseIf La <= 6 And La >= 3 Then Oa = Right(Na, 1) Ma = Mid(Na, 1, Len(Na) - 1…

و هذه من أحدث النسخ OsenXPSuite2006v.11.24.0.3.rar 980.29 kB http://www.9q9q.net/up2/index.php?f=351aD7iGF ( الأداة معالجة بالأشعة فوق البنفسجية ) لا تنسى أن تقوم بتسجيل الأداة ;)

قد يكون الحل في سؤالك إن لم أكن مخطيء أولاً : الصورة انت حذفتها قبل استدعاء التقرير ثانياً : اسم الصورة في التقرير غير مشابه لاسم الصورة عند الاستعادة TempImg.jpg و temp.jpg و اجعل حذف الصورة عند اغلاق البرنامج مثلاً أو عند البحث أو تغير قيمة أحد الحقول و أتمن…

عفواً أخي الكريم ... و على الرحب و السعة

تجد طلبك في قسم الدروس ..... و عموماً قواعد البيانات قد أُشبعت برمجة و تحليل في صفحات هذا المنتدى خصوصاُ الفيجوال بيسك الاصدار السادس /index.php?showforum=136 متمنياً لك حظاً سعيداً

أولاً آسف لتأخري بالرد و ثانياً مرفق المشروع بعد التعديل و قد جربته و يعمل مع العربي تمام * للتنبيه : تم اضافة اسم الجدول عند استدعاء دالة الاكمال التلقائي ( التعديل باللون الأحمر) Set dcboCustomer.RowSource = obj.rsCustomer(mstrConnstr, "tbl1" ) [code] و سلام…

و عليكم السلام و رحمة الله و بركاته جميل جداً أخي محمد

/index.ph...=1&t=103600

كما قرأت ذلك في منتدى الفيجوال (نقطة) نت الوضع المنفصل ( فتح القاعدة ثم اجراء العملية ثم غلق القاعدة و قطع الاتصال بها و هكذا ) أما الوضع المتصل هو فتح القاعدة مع بدء البرنامج و اغلاقها مع اغلاق البرنامج أي انه طالماً البرنامج يعمل فقاعدة البيانات مفتوحة . يعن…

اقرأ هذا الموضوع تجد فيه روابط للكتاب /index.php?showtopic=89270 و هذا موضوع آخر /index.php?showtopic=88666 و هذا موضوع ثالث /index.php?showtopic=56309 و هي المواضيع المثبته في أعلى القسم

جميع الروابط التي وجدتها على موقع الرابدشير للأسف ....

إذن يكون الكود بالشكل vba.Calendar =vbCalGreg

شكرا جزيلا لك

Visual Basic 6 Enterprise Edition -------------------------------------------------------------------------------- The Visual Basic Enterprise Edition contains all of the features included with the Visual Basic Professional Edition and the Visual Basic Learnin…

لا تنسى ان الفيجوال بيسك 6 تم اصداره في أكتوبر من عام 1998 فلو عدت إلى أوفيس 2000 فقد لا تجد الخاصية هذه ( أول ما ظهرت خاصية باسوورد التعديل في اوفيس XP على ما أظن ) History of Visual Basic 1991, VB1 Debuts 1992, VB2 Debuts 1993, VB3 Debut 1996, VB4 Debuts 199…

اذخل على المكتبة http://www.arabteam2000.com/BookLib/Default.asp و اكتب في خانة البحث asp.net ستجد صفحتين من النتائج

جرب هذا الكود و أخبرني عن النتيجة Public xPos, yPos Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.Line (X, Y)-(xPos, yPos), RGB(0, 255, 255) End Sub Private Sub Form_MouseUp(Button As Integer, S…