(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)ابراهيم ايبو كتب :

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

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

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

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

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

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

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

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