منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

لدي خانه من نوع textbox وضعتها لعرض التاريخ وحفظة ووضعتها في قاعدة البيانات من نوع

اكسس وتم إعطائها خيار تاريخ او وقت في قاعدة البيانات وتم اختيار تنسيق تاريخ قصير

وتم إعطائها هذا الكود في زر الادخال

كود :

time_mr.Text = Format(Date.Today, "dd/MM/yyyy")

وتم تجربة هذا الكود ايضا

كود :

time_mr.Text = Now.ToString("dd/MM/yyyy")

ولكن عند طباعتها من الداتا قريد فيو يظهر التاريخ مع الوقت

نفس مشكلة اخونا في هذا الموضوع

http://vb4arb.com/vb/thread-31402.html

وجد الحل ولكن قاعدة البيانات لديهsql ولدي اكسس

ما المقصود بعند طباعتها
هل تقصد العرض في الداتا جريد
ام الطباعة في الداتا ريبورت
ام ماذا

اذا كان في الطباعة لم لا تحدد تنسيق الحقل في التقرير بالتاريخ القصير

في الداتا قريد فيو يظهر بشكل ممتاز ولكن عند الطباعه تظهر المشكله

ولكن المشكلة عند الطباعة

تم ارفاق مثال للتعديل عليه

(17-01-24, 11:19 PM)3sem كتب : [ -> ]
(17-01-24, 10:00 PM)مبرمج صغير 1 كتب : [ -> ]
في الداتا قريد فيو يظهر بشكل ممتاز ولكن عند الطباعه تظهر المشكله

ولكن المشكلة عند الطباعة

تم ارفاق مثال للتعديل عليه

بعض الاضافات على اداة JbsaDataGridViewPrintPraviewXT أرجو ان تنال إعجابكم .

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

وللاسف تلخبط معاي الكود

عدل هذا في Module DataGridViewPrinter للطباعة

PHP كود :

 If i = 5 Then
                                e.Graphics.DrawString(Format(oCell.Value, "dd/MM/yyyy"), oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
                            Else
                                e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

                            End If 

(18-01-24, 12:48 PM)تركي الحلواني كتب : [ -> ]

عدل هذا في Module DataGridViewPrinter للطباعة

PHP كود :

If i = 5 Then e.Graphics.DrawString(Format(oCell.Value, "dd/MM/yyyy"), oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat) Else e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat) End If

الف شكر استاذنا القدير ولكل من حل مشكلتي وارسل الحل وحاول الحل شكرا

(18-01-24, 01:55 PM)مبرمج صغير 1 كتب : [ -> ]
(18-01-24, 12:48 PM)تركي الحلواني كتب : [ -> ]

عدل هذا في Module DataGridViewPrinter للطباعة

PHP كود :

If i = 5 Then e.Graphics.DrawString(Format(oCell.Value, "dd/MM/yyyy"), oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat) Else e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat) End If

الف شكر استاذنا القدير ولكل من حل مشكلتي وارسل الحل وحاول الحل شكرا

السلام عليكم لحل هذه المشكل جرب هذا الكود عند امر تحديث البانات او ادخال البيانات وراح تتحل مشكلتك Wink

PHP كود :

"',date_validation ='" & DateTimePicker2.Value.ToString("dd/MM/yyyy") & 