[تمت الاجابة] تحديث بيانات سجل معين

[PCPROF]

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

الاخوة الأعزاء ..لقد وضعت سؤال سابق و لعلي لم أوفق في توضيح ما أريد و لم يكن سؤالي مفهوما ...

و سأوضح الان لعلي أجد الجواب الشافي لهذه المشكلة.

المعطيات :

جدول يتضمن سجلات عديدة.

فورم : يضمن هذا الفورم حقلي نص و زر أمر

الحقل النصي الاول غير مرتبط بقاعدة البيانات بل يملئ يدويا .

الحقل النصي الثاني ( حولته الى كومبو بوكس) يستورد بياناته من الايدي للجدول ( ID) يعني مرتبط بحق الايدي و قد حولته الى كومبو بوكس و حددت ان ياخذ البيانات فقط من القائمة الخاصة بالكومبو بوكس.

الذي أريد عمله ( المطلوب )

أريد : عندما اختار احد الايديات من خلال الحقل النصي ( كومبو بوكس) المربوط بالجدول

و أملئ الحقل النصي الثاني بنص معين.

عندما أضغط على الكوماند يفعل التالي :

أولا يحدد السجل المطابق للايدي (ID) في الكومبو بوكس و من ثم يقوم بتعديل بيانات هذا السجل ( يعني اضيف التاريخ و اغير الاسم الى الاسم الذي وضعته في الحقل النصي ) يعني يعمل تعديل على السجل بضغطة واحدة.

هل من الممكن أحد أن يقدم لي المشورة و المساعدة.

[أبو آدم]

أخي العزيز

شكرا للتواصل ... واذا كنت قد أحسنت الفهم عنك ....

نموذج بالحقول التي تراها مناسبة منها حقل غير منضم يحمل قيمة جديدة لحقل مستهدف بالتحديث في جدول (مصدر النموذج)

نفترض ان الجدول للموظفين والحقل المستهدف بالتحديث هو اسم الموظف ، نتعامل مع الرقم التعريفي للسجل وهو رقم الموظف في حدث عند النقر نضع الكود التالي ، وهو كود مزدوج تستطيع ان تستخدم الكود الذي يجرى عملية التعديل بموجب جملة SQL او استخدام استعلام التحديث ، وكلاهما متاح ، تزيل ما لا تريد ...

Private Sub Command7_Click()

On Error GoTo Err_Command7_Click


' تحديث عبر الكود

'***********************

    Dim strSQL As String

  strSQL = "UPDATE Employees SET Employees.FirstName = forms!frmEmployees!Text_New" & vbCrLf

  strSQL = strSQL & "       WHERE (((Employees.EmployeeID)=[forms]![frmEmployees]![EmployeeID]));"


    DoCmd.RunSQL strSQL


'***************************

    ' تحديث عبر الاستعلام

    'Dim stDocName As String


    'stDocName = "Query1"

    'DoCmd.OpenQuery stDocName, acNormal, acEdit

'***************************

Exit_Command7_Click:

    Exit Sub


Err_Command7_Click:

    MsgBox Err.Description

    Resume Exit_Command7_Click


End Sub

والمرفق لغايات التوضيح

والله من وراء القصد

.....

NA_Update.rar

[PCPROF]

أخي العزيز

شكرا للتواصل ... واذا كنت قد أحسنت الفهم عنك ....

نموذج بالحقول التي تراها مناسبة منها حقل غير منضم يحمل قيمة جديدة لحقل مستهدف بالتحديث في جدول (مصدر النموذج)

نفترض ان الجدول للموظفين والحقل المستهدف بالتحديث هو اسم الموظف ، نتعامل مع الرقم التعريفي للسجل وهو رقم الموظف في حدث عند النقر نضع الكود التالي ، وهو كود مزدوج تستطيع ان تستخدم الكود الذي يجرى عملية التعديل بموجب جملة SQL او استخدام استعلام التحديث ، وكلاهما متاح ، تزيل ما لا تريد ...

Private Sub Command7_Click()

On Error GoTo Err_Command7_Click


' تحديث عبر الكود

'***********************

    Dim strSQL As String

  strSQL = "UPDATE Employees SET Employees.FirstName = forms!frmEmployees!Text_New" & vbCrLf

  strSQL = strSQL & "       WHERE (((Employees.EmployeeID)=[forms]![frmEmployees]![EmployeeID]));"


    DoCmd.RunSQL strSQL


'***************************

    ' تحديث عبر الاستعلام

    'Dim stDocName As String


    'stDocName = "Query1"

    'DoCmd.OpenQuery stDocName, acNormal, acEdit

'***************************

Exit_Command7_Click:

    Exit Sub


Err_Command7_Click:

    MsgBox Err.Description

    Resume Exit_Command7_Click


End Sub

والمرفق لغايات التوضيح

والله من وراء القصد

.....

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

شكري لك و دمت بالف خير

[أبو آدم]

أخي العزيز

قسمك عظيم ،،، اقشعرت أوصالي من كلماتك ...

فالحمد لله الذي بفضله تقضى الحاجات

لي عندك دعوة خير بظهر الغيب

الله من وراء القصد ...

[PCPROF]

السلام عليكم ..اخي العزيز

بفضل الله و مساعدتك ...في هذا اليوم ..فقد تطورت مهاراتي كثيرا في أوامر الــ SQL و كتبت و تعلمت الكثير عن أشياء كثيرة

و قد قمت بعمل الكصير من أوامر الـ SQL التي لم أكن اعلم انه من الممكن أستخدامها.

ربما بعد فتره ..سأجيب عن التساؤلات في قسم الأكسيس بدلا عنك ..هههههههه ...هذه مزحة .

تحيتي و دمت بخير

[أبو آدم]

حياك الله أخي العزيز

وانا بانتظارك .... ومش مزحة

[أبا عمر]

ينقل 

............