[حريف برمجة]

في فورم 2

استبدل السطر التالي :

كود :

Me.testTableAdapter.Fill(Me.testDataSet.test)

بالتالي :

كود :

        Me.testTableAdapter.FillBy(Me.testDataSet.test, Form1.NameTextBox.Text)

بالتوفيق للجميع

[issamsaidd]

مشكور اخى الكريم على السماعدة زبط معى

لى استفسار اخير هل يمكن ان اجعل الصورة تطهر ويظهر عليها الكلام المستخرج فى التقرير اريدها مثل ما اهى فى الفيجول لان عند العرض تتختلف

ملاحظه لما عملت طباعه طلعت مزبوطه لكن فى العرض زى ما ترى هل فى شى اقدر اعملة بحيث يعمل طباعه مباشره بدون عرض نهائى

[حريف برمجة]

العفو اخي ،،

الأفضل ضع المثال نفسه الموجود به الصورة نشوف الحل المناسب بالنسبة للعرض ....

كما يوجد حل للطباعة المباشرة بدون عرض التقرير ،،،،

ارفع آخر نسخة ،،، وستجد ما يسرك ...


بالتوفيق للجميع

[issamsaidd]

شكرا جزيلا لك مره اخرى وكن اعرف كلمه هى قليلة فى حق ما قدمته 

النموذج الاخير 

مقاس الصورة راح تتطبع على مقاس A5 والمقاس غلبنى صراحه اذا فى طريقة تتطبع المقاس بدون عرض مباشره منها للطباعه ونكون مشكورين لك

رابط السورس 

وهل يوجد كود لمنع رقم الهوية يدخل وما يزيد عن 9 ارقام واذ دخل حرف او ذاد عن 9 ارقام تظهر مسج تحذرية

وشكرا لك 

السوس فى الرابط 

http://www.mediafire.com/file/0i9ztkvoe5...W.rar/file 

[حريف برمجة]

اخي شغلت التطبيق ولم افهم ماذا تريد بالضبط ؟

بخصوص رقم الهويه لا يقبل ارقام ولا يزيد عن 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

الأمور الأخرى وضح اكثر .. بذكر اسم الفورم واسم التقرير .....

[issamsaidd]

مشكور جدا اخى الكريم على المساعدة زبطت المقسات عبر الفتو شوب وطبعت بنجاح بس فى عندى العمر. TextBox1فى فورم 1 وغير مربوط بقاعدة البينات فقط هو لطرح تاريخ اليوم من تاريخ الميلاد وعرض العمر هل يمكن عرضة فى التقرير بطريقة ما وكلمة شكرا قليلة عليك 

[حريف برمجة]

العفو ،،

حدد التسكت الخاص بالعمر ومن الخصائص امسح التنسيق (Format) ،، انته جعلتها dd/MM/yyyy ،، امسح التنسيق اجعله فارغ .

ثم كلك يمين على التسكت الخاص بالعمر واختر (Expression)

وامسح الاسطر الموجود :

كود :

=First(Fields!age.Value, "DataSet1")

واستبدله بهذا :

كود :

=DateDiff(DateInterval.Year,Fields!age.Value,Today())

وجرب ،،

[issamsaidd]

شكرا اخى الكريم وصلت للحل 

شرحك رائع ولكن البينات الى جاية من خارج القاعدة 

شكرا لك استاذى على المساعدة وشكرا ايضا للقائمين على الموقع 

[حريف برمجة]

العفو ،،

بالتوفيق للجميع