مشكور اخى الكريم على السماعدة زبط معى
لى استفسار اخير هل يمكن ان اجعل الصورة تطهر ويظهر عليها الكلام المستخرج فى التقرير اريدها مثل ما اهى فى الفيجول لان عند العرض تتختلف
ملاحظه لما عملت طباعه طلعت مزبوطه لكن فى العرض زى ما ترى هل فى شى اقدر اعملة بحيث يعمل طباعه مباشره بدون عرض نهائى
العفو اخي ،،
الأفضل ضع المثال نفسه الموجود به الصورة نشوف الحل المناسب بالنسبة للعرض ....
كما يوجد حل للطباعة المباشرة بدون عرض التقرير ،،،،
ارفع آخر نسخة ،،، وستجد ما يسرك ...
بالتوفيق للجميع
شكرا جزيلا لك مره اخرى وكن اعرف كلمه هى قليلة فى حق ما قدمته
النموذج الاخير
مقاس الصورة راح تتطبع على مقاس A5 والمقاس غلبنى صراحه اذا فى طريقة تتطبع المقاس بدون عرض مباشره منها للطباعه ونكون مشكورين لك
رابط السورس
وهل يوجد كود لمنع رقم الهوية يدخل وما يزيد عن 9 ارقام واذ دخل حرف او ذاد عن 9 ارقام تظهر مسج تحذرية
وشكرا لك
السوس فى الرابط
اخي شغلت التطبيق ولم افهم ماذا تريد بالضبط ؟
بخصوص رقم الهويه لا يقبل ارقام ولا يزيد عن 9 خانات كالتالي :
الصق هذي الاسطر في الفورم الموجود فيه تكست الهوية :
كود :
Private Sub IdTextBox_TextChanged(sender As Object, e As EventArgs) Handles IdTextBox.TextChanged
If IdTextBox.TextLength > 9 Then IdTextBox.Text = Mid(IdTextBox.Text, 1, IdTextBox.TextLength - 1) : IdTextBox.SelectAll() : MsgBox("تسعة ارقام فقط")
End Sub
Private Sub IdTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles IdTextBox.KeyPress
Select Case e.KeyChar
Case "0" To "9", ControlChars.Back
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
الأمور الأخرى وضح اكثر .. بذكر اسم الفورم واسم التقرير .....
العفو ،،
حدد التسكت الخاص بالعمر ومن الخصائص امسح التنسيق (Format) ،، انته جعلتها dd/MM/yyyy ،، امسح التنسيق اجعله فارغ .
ثم كلك يمين على التسكت الخاص بالعمر واختر (Expression)
وامسح الاسطر الموجود :
كود :
=First(Fields!age.Value, "DataSet1")
واستبدله بهذا :
كود :
=DateDiff(DateInterval.Year,Fields!age.Value,Today())
وجرب ،،
شكرا اخى الكريم وصلت للحل
شرحك رائع ولكن البينات الى جاية من خارج القاعدة
شكرا لك استاذى على المساعدة وشكرا ايضا للقائمين على الموقع
