اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


rey360

الردود الموصى بها

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

        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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

جزاك الله خيرا اخى @محمد ابوعبد الله الشكر لله ثم لكم اخوانى واساتذتى فمنكم نتعلم كل يوم هل يوجد كتاب عربى يشرح بسلالسه 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;

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information