omani

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

اخي الكريم يمكن ذلك باستخدام if و elseif و end if مثال if text1.text = "S.N1" then msgbox "OK" elseif text1.text="s.N2" then msgbox "OK" elseif text1.text="s.N3" then msgbox "OK" elseif text1.text="s.N4" then msgbox "OK" else msgbox "Wrong Number" end if

اخي الكريم ارفق المثال لنراه وسنحاول بإذن الله في حل المشكلة تحياتي

تفضل مثالك بعد التعديل تحياتي sameer_athen.rar

السلام عليكم في توقيعي تجد طريقة للبحث المتعدد تحياتي

هذا الكود لتغيير نوع الورق على الطابعة ، ولكن تأكد من ان الطابعة الافتراضية تدعم النوع الذي ستختاره من الورق Printer.PaperSize = PrinterObjectConstants.vbPRPSB4

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

أشكرك جدا أستاذي الكريم على التوضيح تقبل تحياتي

السلام عليكم تفضل اخي هذا مثال اعددته على عجالة على شان خاطر عيوونك تقدر تقول انه مش مثال : سويت لك برنامج كامل تحياتي Duty.rar

استخدم التالي: dim M as string M=MsgBox( "", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "") If M= vbYes Then Unload Me Else Exit Sub End If

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

اختي الكريمة عليك بارفاق مثال للحصول\ على رد سريع . لاننا لن نتمكن من اعداد مثال لكل شخص . تحياتي

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

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

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

بما انك تتعامل مع الداتا بيس إذا قم بانشاء جدول في الداتا بيس يحفظ الباسوورد ويقوم بتغييرها كلما دعت الحاجة تحياتي

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

السلام عليكم اكتب الكود التالي في المكان المناسب msgbox Datediff("d","01/01/1946","31/12/2002")

تفضل اخي هذا مثال على ما طلبت تحياتي flexgrid.rar

اخي الكريم : المثال الذي ارفقته غير مكتمل . أي انك لم تقم بارفقال الفورم . عموما سأحاول ان اعمل لك مثالا حسب ما فهمت من طلبك تحياتي