تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن كود اضافة ترقيم تلقائي +السنة الحالية
#1
ممكن كود اضافة ترقيم تلقائي +السنة الحالية بدون دخول السنة في الترقيم مثل 2019-1و2019-2و2019-3 وهكذا
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم اخي الكريم

بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها

لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:


ضع هذا الفنكشن في الكلاس
كود :
   '----------Public Function MaxID----------
   Public Function MaxID_Table() As DataTable

       Dim Query As String = "Select IIF(MAX(ID) IS Null,1,MAX(ID)+1 ) From Table"
       Dim Cmd As OleDbCommand
       Dim dt As New DataTable
       dt.Clear()
       Cmd = New OleDbCommand(Query, con)
       Dim da As New OleDbDataAdapter(Cmd)
       da.Fill(dt)
       Return (dt)
   End Function

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       ' وفي زر جديد استخدم هذا الفنكشن مع اضافة السنة
       Dim DD As Date = Now ' تعريف متغير من نوع تاريخ يساوي التاريخ الحالي
       Txt_ID.Text = MaxID_Table.Rows(0)(0).ToString & "-" & DD.ToString("yyyy") 'اضافة السنة الى الرقم المجلوب
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
(31-08-19, 03:26 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم

بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها

لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:


ضع هذا الفنكشن في الكلاس
كود :
   '----------Public Function MaxID----------
   Public Function MaxID_Table() As DataTable

       Dim Query As String = "Select IIF(MAX(ID) IS Null,1,MAX(ID)+1 ) From Table"
       Dim Cmd As OleDbCommand
       Dim dt As New DataTable
       dt.Clear()
       Cmd = New OleDbCommand(Query, con)
       Dim da As New OleDbDataAdapter(Cmd)
       da.Fill(dt)
       Return (dt)
   End Function

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       ' وفي زر جديد استخدم هذا الفنكشن مع اضافة السنة
       Dim DD As Date = Now ' تعريف متغير من نوع تاريخ يساوي التاريخ الحالي
       Txt_ID.Text = Prd.MaxID_Personal.Rows(0)(0).ToString & "-" & DD.ToString("yyyy") 'اضافة السنة الى الرقم المجلوب
   End Sub

بارك الله فيك على وجعله في ميزان حسناتك . تم بعون الله الحل وهذا الحل لكي يستفيد منه الجميع
Nogeneral.Text = Format(CODE_GENE() + 1 & "-" & Year(Exdate.Value.ToString))
'الترقيم التلقائي ........................................................

Public Function CODE_GENE() As Integer
CODE_GENE = 0
Dim DT As New DataTable
Dim SQL = "select * from Exporting "
Dim DA As New SqlClient.SqlDataAdapter(SQL, SQLcon)
'Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM " & TBLNAME & " ORDER BY " & FLDID & "", SQLcon)
DA.Fill(DT)
If DT.Rows.Count <> 0 Then
Dim I = DT.Rows.Count - 1
CODE_GENE = Val(DT.Rows(I).Item("Nogeneral"))

End If
End Function
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
Sad ممكن حل لهذا المشكل melad2002 0 240 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  ممكن تعديل في كود التفقيط للارقام melad2002 2 334 01-01-24, 08:47 PM
آخر رد: melad2002
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  احتاج كود اعادة الترقيم في السنة الجديدة ranosh 3 456 27-11-23, 01:25 AM
آخر رد: justforit
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 621 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,578 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 8 2,758 04-11-23, 01:42 PM
آخر رد: الحزين اليماني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم