كود الحفظ + كود التحديث؟ ان امكن محتاجتهم

السلام عليكم

الاخت سمسومه

اولا : ده مش كود حفظ ده كود الانتقال الى اول سجل فى قاعدة البيانات

ثانيا : بالنسبة لاى شىء فى قواعد البيانات فعليك بدروس الاخ ناصر فهى مرجع كامل وستفيك كثيرا ان شاء الله

/index.ph...topic=61685&hl=

وان لم تجدى فيه ما تريدين فسأرسل لك مثال بالاشياء التى تطلبيها

كما وضح الاخ هانى مشكوراً هذا ليس كود حفظ

كود الحفظ هو Data1.Recordset.AddNew وعليكى فعلا بدروس الاخ ناصر فهى مفيدة جداً :rolleyes:

بسم الله

اخوتي الكرام ... هاني سعد و الشبح ....

في البداية اخطأت الاخت سمسومه وصحح لها الاخ هاني.... لكن ..... بعد ذلك صحح لها الشبح ... لكن على قولتهم كحلها عماها.. :lol:

انا اعلم ان الاخ الشبح يعلم الحل لكن مع الاستعجال ....

كود الاخ الشبح

Data1.recordset.addnew

هذا الكود لإضافة سجل جديد ........ :rolleyes: .... ولا انا غلطان ... :(

كود الحفظ هو التالي

data1.recordset.update

تحياتي للجميع

والعذر اذا اخطأت ..... :blink:

اخوكم

المبرمج الطيب :)

اقتباس

كود الاخ الشبح

Data1.recordset.addnew

هذا الكود لإضافة سجل جديد ........  .... ولا انا غلطان ... 

شكراً لك اخى المبرمج الطيب على الايضاح وانا والله كان قصدى اكتب الكود

Data1.Recordset.AddNew

--------------

Data1.Recordset.Update

لكن لااعرف كيف غفلت عن ذلك :wacko: "جل من لايسهو" :rolleyes:

يعطيكم العافية جميعا

:)

الاخت سمسومة

مرفق مثال به قاعدة بيانات وستجدى به كل ماتسألين عنه

ان شاء الله

CyperManager_database.rar

يعطيك العافيه ان شاء الله يفيدني

الاخت سمسومة

الملف يعمل ولكن عند فك ضغطه ضعى الملفات فى المسار D:\CyperManager\CyperManager_database

حتى لايتغير مسار قاعدة البيانات

وقد ارفقت لك غيره موضح به اكثر(حملى هذا المثال ولا تحملى القديم لان هذا به توضيح اكثر)

وستجدين اكواد الحفظ والبحث وباقى الاكواد فى

الحدث grdDataGrid_RowColChange فى frmdmain

وفى الmodule فى الsub save_main و save

وفى frmos فى الحدث Sub Cmd_ok_Click

وعموما هاهى الاكواد التى استخدمتها

كود الحفظ

Public Sub save()
'suring that the value isnot reabeated
frmdmain.Ado_ci.Recordset.MoveFirst
Do While frmdmain.Ado_ci.Recordset.EOF = False
If (frmdmain.Ado_ci.Recordset.Fields(0).Value = fpc(cpc).Text1.Text) Then GoTo err
frmdmain.Ado_ci.Recordset.MoveNext
Loop
'saving to client_info
On Error Resume Next
frmdmain.Ado_ci.Recordset.AddNew
frmdmain.Ado_ci.Recordset.Fields(0).Value = fpc(cpc).Text1.Text
frmdmain.Ado_ci.Recordset.Fields(1).Value = fpc(cpc).txt_cid.Text
frmdmain.Ado_ci.Recordset.Fields(2).Value = fpc(cpc).txt_age.Text
frmdmain.Ado_ci.Recordset.Fields(3).Value = fpc(cpc).txt_ad.Text
frmdmain.Ado_ci.Recordset.Fields(4).Value = fpc(cpc).txt_id.Text
frmdmain.Ado_ci.Recordset.Fields(5).Value = fpc(cpc).txt_tel.Text
frmdmain.Ado_ci.Recordset.Update
err:
   Exit Sub

End Sub

Public Sub save_main()
   'saving to main
   On Error Resume Next
frmdmain.datPrimaryRS.Recordset.AddNew
frmdmain.datPrimaryRS.Recordset.Fields(1).Value = fpc(cpc).Text1.Text
frmdmain.datPrimaryRS.Recordset.Fields(2).Value = fpc(cpc).Text2.Text
frmdmain.datPrimaryRS.Recordset.Fields(3).Value = Format(Now, "short date")
frmdmain.datPrimaryRS.Recordset.Fields(4).Value = fpc(cpc).lab_st.Caption
frmdmain.datPrimaryRS.Recordset.Fields(5).Value = fpc(cpc).lab_et.Caption
frmdmain.datPrimaryRS.Recordset.Fields(6).Value = fpc(cpc).lab_tt.Caption
frmdmain.datPrimaryRS.Recordset.Fields(7).Value = fpc(cpc).combo_ohp.Text
frmdmain.datPrimaryRS.Recordset.Fields(8).Value = fpc(cpc).lab_total.Caption
frmdmain.datPrimaryRS.Recordset.Fields(9).Value = fpc(cpc).Lab_os.Caption
frmdmain.datPrimaryRS.Recordset.Fields(10).Value = fpc(cpc).lab_ttax.Caption
frmdmain.datPrimaryRS.Recordset.Fields(11).Value = fpc(cpc).lab_dis.Caption
frmdmain.datPrimaryRS.Recordset.Fields(12).Value = fpc(cpc).lab_tcbtd.Caption
frmdmain.datPrimaryRS.Recordset.Fields(13).Value = fpc(cpc).lab_tcatd.Caption
frmdmain.datPrimaryRS.Recordset.Fields(14).Value = fpc(cpc).txt_rem.Text
frmdmain.datPrimaryRS.Recordset.Update
frmdmain.adodc_ci.Recordset.Update
End Sub
كود البحث
[code] 
Private Sub grdDataGrid_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If (datPrimaryRS.Recordset.EOF = False And datPrimaryRS.Recordset.BOF = False) Then
d_entry = (datPrimaryRS.Recordset.Fields(1).Value)
qry = "client_name = '" & d_entry & "'"
adodc_ci.Recordset.MoveFirst
adodc_ci.Recordset.Find qry
 End If

(على فكرة fpc(cpc) دالة تعود باسم الفورم الحالى النشط)

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

وارجو ان تجدى فيه ماتريدين

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

يبدو ان به ملفات ناقصة

او انك تحفظى الملفات فى my documents

وعموما سأحاول ثانية

CyperManager_database.rar