بسم الله
عندي سؤالان :-
س1 : -
طريقة عمل جدول سواء بالاكسس او الفجول استوديو 2010 يحتوي علي عمود ترقيم تلقائي يبداء من بداية العام وينتهي معها ؟
مثال :-
2013/001
2013/002
الي مثلاً
2013/510
ثم يبدائ من جديد
2014/001
2014/002
وهكذا
س2 :-
طريقة وضع ارتباط مسار ملف ؟
مثال :-
C:/1.jpg مسار داخل قاعدة البيانات
الي
"C:/1.jpg"
وشكراً جزيراً
تم تعديل هذه المشاركة بواسطة as_as200310 في 19 ديسمبر 2012 في 00:39
قد يفيدك هذا الكود
If cn.State = ConnectionState.Closed Then cn.Open()
Dim s As String = "SELECT Max(Mid([cal1],6)) as x FROM tab1 WHERE Left(cal1,4)=Year(Date());"
Dim sw As New OleDbCommand(s, cn)
Dim dr As OleDb.OleDbDataReader 'كود العداد التسلسلى
dr = sw.ExecuteReader
If dr.Read = True Then
If IsDBNull(dr!x) = True Then
TextBox8.Text = Date.Now.Year & "/001"
Else
TextBox8.Text = Date.Now.Year & "/" & Format((dr(0) + 1), "000")
End If
End Ifسبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); KARIMSOFT كتب:قد يفيدك هذا الكود
If cn.State = ConnectionState.Closed Then cn.Open() Dim s As String = "SELECT Max(Mid([cal1],6)) as x FROM tab1 WHERE Left(cal1,4)=Year(Date());" Dim sw As New OleDbCommand(s, cn) Dim dr As OleDb.OleDbDataReader 'كود العداد التسلسلى dr = sw.ExecuteReader If dr.Read = True Then If IsDBNull(dr!x) = True Then TextBox8.Text = Date.Now.Year & "/001" Else TextBox8.Text = Date.Now.Year & "/" & Format((dr(0) + 1), "000") End If End If
قمت بتجربتة ولكن لم يفلح و في المرفقات مثال بسيط لما اريد
شاهد المثال تم اضافة زر جديد في BindingNavigator
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); KARIMSOFT كتب:شاهد المثال تم اضافة زر جديد في BindingNavigator
شكراً جزيرا اخي الكريم وجزاك الله كل خير
لا شكر علي واجب
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…