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

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام
أما بعد
كيف يمكنني إجبار التكست بوكس على كتابة رقم id
مثلا عوض أن يكتب 01 يكتب 000001 ومن ثم حفظها في قاعدة البيانات بهذا الشكل 000001

كود :

Private Sub NemID()

        Dim N As Integer

        cn.Open()

        cmd.CommandText =

        <oledb>

                    SELECT 

                        Nem                     

                    FROM 

                        EmpEmp;

                </oledb>.Value

        DtR = cmd.ExecuteReader

        While DtR.Read

            N = DtR(0)

        End While

        TextBoxNem.Text = (N + 1).ToString

        cn.Close()

    End Sub

ومشكورين مسبقا

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

أستخدم MaskedTextBox بدل TextBox

MaskedTextBox أحداث وخصائص الأداة

https://youtu.be/9pBlYH0AJFo

السلام عليكم ورحمة الله وبركاته
تم الحل فيما يخص إجبار التيكست بوكس على كتابة 0000001 بدلا من 01
وذلك كمايلي

كود :

Private Sub NemID()

        Dim N As Integer

        cn.Open()

        cmd.CommandText =

        <oledb>

                    SELECT 

                        Nem                     

                    FROM 

                        EmpCcp;

                </oledb>.Value

        DtR= cmd.ExecuteReader

        While DtR.Read

            N = DtR(0)

        End While

        N += 1

        TextBoxNem.Text = N.ToString("000000")

        cn.Close()

    End Sub

شكرا على الردود

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

ahmedfa71

سعود الشامان

ahmedfa71