[مبرمج صغير 1]

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

لدي خانه من نوع 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 ولدي اكسس

[تركي الحلواني]

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

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

[مبرمج صغير 1]

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

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

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

[مبرمج صغير 1]

(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 


[مبرمج صغير 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 


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

[annagui]

(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 


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

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

PHP كود :

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