[بسام محمدغانم]

السلام عليكم 
فكرتي اني عند ارسال استعلام الى القاعدة يبحث عن اكبر رقم في العمود=
واذا كانت القيمة خالية يعيد لي قيمة صفر و يضيف عليها واحد
و اذا كان هناك قيمة حقيقية يعيد لي هذه القيمة و يضيف واحد عليها

تقريبا نفس هذا الكود بس ما طبقت الفكرة 100%

SELECT IIf(IsNull(max(a_code)),+1)  AS a_co FROM Acc_Diff11;

حيث اذا كان خالية = 0 +1 =1
و اذا كانت قيمة افتراضية مثال 11+1=12
 و هكذا فكرتي  
Select nvl(Max(To_Number(a_code)),0) + 1 Code_No
في اوراكل شغالة 100%
ممكن كود زي كذا

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته 
اخي الكريم ماتريده يسمى Max Id

كود :

 '----------Public Function MaxID VB.Net With Access direct ----------
   Public Function MaxID() As DataTable
       Dim Query As String = "Select IIF(MAX(اسم العمود) IS Null,1,MAX(اسم العمود)+1) From اسم الجدول"
       Dim Cmd As New OleDbCommand()
       Dim dt As New dataTable()
       dt.Clear()
       Cmd = New OleDbCommand(Query, Con)
       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       Dim dr As OleDbDataReader = Cmd.ExecuteReader()
       dt.Load(dr)
       Con.Close()
       Return (dt)
   End Function
   ' ولاستدعاء الكود في بوتون تأتي الفيمة الى مربع نص
   Txt_Val_Id.Text = MaxId.Rows(0)(0)

اذا كنت تستخدم SQLserver فقط غير OleDbCommand الىٍSQlCommand و OleDbDataReader الى  ٍSqlDataReader 

[بسام محمدغانم]

(13-10-21, 09:54 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته 
اخي الكريم ماتريده يسمى Max Id

كود :

 '----------Public Function MaxID VB.Net With Access direct ----------
   Public Function MaxID() As DataTable
       Dim Query As String = "Select IIF(MAX(اسم العمود) IS Null,1,MAX(اسم العمود)+1) From اسم الجدول"
       Dim Cmd As New OleDbCommand()
       Dim dt As New dataTable()
       dt.Clear()
       Cmd = New OleDbCommand(Query, Con)
       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       Dim dr As OleDbDataReader = Cmd.ExecuteReader()
       dt.Load(dr)
       Con.Close()
       Return (dt)
   End Function
   ' ولاستدعاء الكود في بوتون تأتي الفيمة الى مربع نص
   Txt_Val_Id.Text = MaxId.Rows(0)(0)

اذا كنت تستخدم SQLserver فقط غير OleDbCommand الىٍSQlCommand و OleDbDataReader الى  ٍSqlDataReader 

الف الف الف شكر و تحية لك اخي برهووووووووووووووووووووووووووووووووم
هذا ما احتاجة بظبط
لو تدلني على موقع يشرح استعلامات الاكسس بكون ممتن لك

[ابراهيم ايبو]

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

اخي بسام ولك موفور الشكر

بالنسبة للاستعلامات لا اعرف ان كان يوجد موقع خاص بالاستعلامات ولكن اي موقع 

يتحدث عن قواعد البيانات من نوع اكسس مع الفيجوال بيسك نت

 سوف تجد دوال الاستعلام والحفط والتعديل والحذف وغبرها 

ان واجهتك مشكلة في استعلام معين

فالمنتدى واعضاء المنتدى الكرام جاهزون للمساعدة بإذن الله

[بسام محمدغانم]

(14-10-21, 02:04 PM)ابراهيم ايبو كتب :

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

اخي بسام ولك موفور الشكر

بالنسبة للاستعلامات لا اعرف ان كان يوجد موقع خاص بالاستعلامات ولكن اي موقع 

يتحدث عن قواعد البيانات من نوع اكسس مع الفيجوال بيسك نت

 سوف تجد دوال الاستعلام والحفط والتعديل والحذف وغبرها 

ان واجهتك مشكلة في استعلام معين

فالمنتدى واعضاء المنتدى الكرام جاهزون للمساعدة بإذن الله

الصراحة هذا القسم فعلا متفاعلين و لهم كل الشكر 

كمان سؤال استاذي معي قاعدة جداولها كثيرة اريد ان اتنقل بين الجداول و هي مفتوحة بطريقة سهله
اقصد نقس طريقة الوندوز عند التنقل بين الشاشات نضغط زر  alt+tab او نفس طريقة الاكسيل ورقة 1 ورقة 2 ورقه 3 وهكذا هل يوجد طريقة سهلة


كما سؤال أخير
هل استطيع تتبع البيانات في الاكسس يعين اعرف اين اخر بيانات وصلت للقاعدة
لأنه الجداول كثيرة و لا اعرف الشخص الذي صمم هذه الجداول او الذي صلح التطبيق 
كيف اتتبع هذه البيانات يعني فورم 1 مرتبط بجدول 1 و فور 2 مربط بجدول 2 وهكذا هل يتوفر طريقة ترتيب الجداول حسب اخر تعديل عليها





وشكررررررررررررررررررا لك

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم بسام
بالنسبة لسؤالك الاول حول كيف استعرض الجداول في نافذة واحدة  سيكون الامر عن طريق جملة استعلام البيانات
 لكن سيكون اسم الجدول هو مانختاره من الكومبو بوكس التي تحوي على اسماء الجداول .. المثال في المرفقات
اما سؤالك الثاني لم افهم ماتريد بالضبط

[بسام محمدغانم]

(14-10-21, 06:10 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم بسام
بالنسبة لسؤالك الاول حول كيف استعرض الجداول في نافذة واحدة  سيكون الامر عن طريق جملة استعلام البيانات
 لكن سيكون اسم الجدول هو مانختاره من الكومبو بوكس التي تحوي على اسماء الجداول .. المثال في المرفقات
اما سؤالك الثاني لم افهم ماتريد بالضبط

ممكن اخي اتواصل معك في خاص سويت لك رسالة للبريد تبع المنتدى