تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 186 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  ممكن من الاخوه شرح كود فى الvb.net خالد كامل1 1 118 12-10-21, 01:52 PM
آخر رد: Jounior_P
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 162 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [سؤال] ممكن عمل الكود فجول بيسك بنفس الطريقة بسام محمدغانم 0 137 07-10-21, 09:12 AM
آخر رد: بسام محمدغانم
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 194 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 0 112 06-10-21, 07:07 PM
آخر رد: saramustafa182
  السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟ AhmedRamadan 13 605 03-10-21, 08:01 PM
آخر رد: asemshahen5
  ممكن مساعدة بخصوص كويري معين حدتت به اخطاء Alanwalker 8 730 02-10-21, 01:52 PM
آخر رد: mahmoud_f
  اضافة اداة التاريخ والوقت الى داتا جريد فيو خالد20 4 285 30-09-21, 10:52 PM
آخر رد: خالد20
Question [سؤال] listview اضافة عمود مخفى alims 2 214 29-09-21, 07:11 AM
آخر رد: ماشي

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


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