DoCmd.RunSQL "DROP INDEX orderId ON table1"
هذا الكود يقوم بتغيير المفهرس الى الى "لا" في الحقل orderid في الجدول table1
اريد التعديل عليه لجعل المنازل العشرية من "تلقائي" الى الرقم "3"
اتعبني كثير امل منكم التعديل فيه وشاكر لكم حسن تعاونكم
اريد التعديل في هذا الكود ليتوافق مع التعديل في المنازل العشرية
امل المساعدة وشكرا لحسن تعاونكم
ياخوان وجدت هذا الكود ولكن يعدل فقط على "ثابت" امل التعديل علية
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set db = CurrentDb
Set tdf = db.TableDefs("s11")
Set fld = tdf.Fields("a1")
With fld
' Set prp = .CreateProperty("Format", dbText, "Fixed")
'.Properties.Append prp
Set prp = .CreateProperty("DecimalPlaces", dbDouble, 2)
.Properties.Append prp
End With
لماذا لا يوجد احد يرد
السلام عليكم ورحمة الله وبركاته
أخي الكريم أنت توصلت إلى نصف الحل الآن حاول أن تنفذ التعليمات التالية وستكون النتيجة كما تتمناها :
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tdf = db.TableDefs("s11")
Set fld = tdf.Fields("a1")
With fld
.Properties("DecimalPlaces") = 3
End With
Set db = Nothing
وسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
الله يجزاك الف خير
شكرا لك
السلام عليكم ورحمة الله وبركاته
لاتسانا أخي الكريم بوضع أفضل إجابة
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)