عمل استعلام اظافة للاصناف

[rey360]

السلام عليكم أعضاء المنتدي أريد عمل استعلام اضافة للاصناف في النموذج f_nouvelcategorie 

وشكرا

test.accdb

[أبوبسمله]

وعليكم السلام

اتفضل اخى هل هذا طلبك

 

testInsert.accdb

[rey360]

شكرا لك أخ أحمد الفلاحجى ولكن أنا اردت اضافة الصنف بمجرد كتابة اسم الصنف فقط و البرنامج هو يعطي رقم id من عنده

استطعت عملها عن طريق 

INSERT INTO Categories ( IdCategorie, LibCategorie )
SELECT DCount("[IdCategorie]","[Categories]")+1 AS id, [Formulaires]![f_nouvelcategorie]![txtcategorie] AS cat;

ولكن أرد طرق أخر لعملها 

وشكرا جزيلا لك 

[أبوبسمله]

العفو الشكر لله ولاساتذتنا جزاهم الله خيرا

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

ان شاء الله احد الاساتذه يساعد بافكار اخرى

وسوف احاول من ناحيتى فمازلت مبتدىء واحاول لاتعلم معكم

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

 

[محمد أبوعبدالله]

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

بالاضافة الى ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر

تفضل اخي الكريم الكود التالي

        If IsNull(txtcategorie) Then
            MsgBox "la case est vide", vbCritical
            Me.txtcategorie.SetFocus
        
        Else
    
            Dim db As DAO.Database
            Dim Rs As DAO.Recordset
    
            Set db = CurrentDb
            
            Set Rs = db.OpenRecordset("SELECT Categories.*FROM Categories;")
            
            Rs.AddNew
            Rs("IdCategorie") = DMax("[IdCategorie]", "Categories") + 1
            Rs("LibCategorie") = Me.txtcategorie
            

            Rs.Update
            Rs.Close
        End If

testInsert.accdb

تحياتي

[rey360]

شكرا لك أستاذ محمد ابوعبد الله ولكن أردتها عن طريق sql ان أمكن بطريقة أخرى غير التى تتطرقت لها أنا

[أبوبسمله]

جزاك الله خيرا اخى @محمد ابوعبد الله الشكر لله ثم لكم اخوانى واساتذتى فمنكم نتعلم كل يوم هل يوجد كتاب عربى يشرح بسلالسه DAO

اخى الفاضل @rey360 بكود الاستاذ محمد تلاحظ استخدام داله DMax استعملها بدل DCount ب Sql

وما اعتقد انه يوجد داله اخرى تساعدك فى هذا الموضوع غير هذه الدالتان فداله Dmax سوف تعيد اعلى رقم مسجل وتجمع عليه 1

وداله DCount  هتعد العمود وتجمع عليه 1

اذا اردت استعمال Dmax غير Dcount بـ Dmax

INSERT INTO Categories ( IdCategorie, LibCategorie )
SELECT DMax("[IdCategorie]","[Categories]")+1 AS id, [forms]![f_nouvelcategorie]![txtcategorie] AS cat;

تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم