Execute لاضافة سجل

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

()private sub clikbutton_to_addnewrecord

docmd.gotorecord.addnew,,acnewrec,offset

end sub

اما الكود الذي كنبته فهناك افضل منه باستخدام تقنية microsoft activex data object ADO

بالنسبة للاخ علاء ربما لم ينتبه للكود لانه مقلوب ، استخدام تقنية تشغيل كود ال SQL مباشرة في قاعدة البيانات تزيد بصورة عامة الى 10 اضعاف الكود العادي

الاوامر الممكن استخدامها لذلك هي ايضا

docmd.RunSQL ""

ولكن للاسف Microsoft Access لا يشغل كل انواع كود ال SQL و لتتمكن من الاستفادة القصوى من SQL ربما ستكون بحاجة لدمج قاعدة البيانات مع MSDE او SQL Server ، ولكن الكود الذي كتبته ممتاز و ليظهر بالطريقة الصحيحة افضل ان تضعه بي الاوامر التالية

[ code 2] (بدون فراغات)

الكود

[ / code 2] (بدون فراغات)

الاستاذ / خضر ترزي

حاولت تجربة ماذكرت . لكن النتائج كانت سلبية عند عرض الرد قبل إرساله . هل من الممكن مزيد من الشرح . إذا سمحت

اقصد بان الكود سيظهر كالتالي

Private Sub cmdAdd_Click() 
Dim query As String 

' Create an INSERT action query. 
query = "INSERT INTO People VALUES(" 
query = query & "'" & txtLastName.Text & "', " 
query = query & "'" & txtFirstName.Text & "', " 
query = query & "'" & txtId.Text & "'" 
query = query & ")" 

' Execute the query. 
On Error GoTo NotInserted 
db.Execute query 

MsgBox "Ok" 
Exit Sub 

NotInserted: 
MsgBox "Error" & Str$(Err.Number) & _ 
" inserting record." & vbCrLf & _ 
Err.Description 
End Sub

على العموم اعلم بانه هناك بعض المشاكل في هذا المنتدى و نحن نقوم باصلاحها ، و إن شاء الله في نهاية هذا الشهر تجد تغير في المنتديات و لنت تحتاج الى عبارة ال code2