PCPROF قام بنشر أبريل 18, 2011 مشاركة قام بنشر أبريل 18, 2011 السلام عليكم و رحمة الله الاخوة الأعزاء ..لقد وضعت سؤال سابق و لعلي لم أوفق في توضيح ما أريد و لم يكن سؤالي مفهوما ... و سأوضح الان لعلي أجد الجواب الشافي لهذه المشكلة. المعطيات : جدول يتضمن سجلات عديدة. فورم : يضمن هذا الفورم حقلي نص و زر أمر الحقل النصي الاول غير مرتبط بقاعدة البيانات بل يملئ يدويا . الحقل النصي الثاني ( حولته الى كومبو بوكس) يستورد بياناته من الايدي للجدول ( ID) يعني مرتبط بحق الايدي و قد حولته الى كومبو بوكس و حددت ان ياخذ البيانات فقط من القائمة الخاصة بالكومبو بوكس. الذي أريد عمله ( المطلوب ) أريد : عندما اختار احد الايديات من خلال الحقل النصي ( كومبو بوكس) المربوط بالجدول و أملئ الحقل النصي الثاني بنص معين. عندما أضغط على الكوماند يفعل التالي : أولا يحدد السجل المطابق للايدي (ID) في الكومبو بوكس و من ثم يقوم بتعديل بيانات هذا السجل ( يعني اضيف التاريخ و اغير الاسم الى الاسم الذي وضعته في الحقل النصي ) يعني يعمل تعديل على السجل بضغطة واحدة. هل من الممكن أحد أن يقدم لي المشورة و المساعدة. رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 18, 2011 مشاركة قام بنشر أبريل 18, 2011 أخي العزيز شكرا للتواصل ... واذا كنت قد أحسنت الفهم عنك .... نموذج بالحقول التي تراها مناسبة منها حقل غير منضم يحمل قيمة جديدة لحقل مستهدف بالتحديث في جدول (مصدر النموذج) نفترض ان الجدول للموظفين والحقل المستهدف بالتحديث هو اسم الموظف ، نتعامل مع الرقم التعريفي للسجل وهو رقم الموظف في حدث عند النقر نضع الكود التالي ، وهو كود مزدوج تستطيع ان تستخدم الكود الذي يجرى عملية التعديل بموجب جملة 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 رابط هذا التعليق شارك More sharing options...
PCPROF قام بنشر أبريل 19, 2011 الكاتب مشاركة قام بنشر أبريل 19, 2011 أخي العزيز شكرا للتواصل ... واذا كنت قد أحسنت الفهم عنك .... نموذج بالحقول التي تراها مناسبة منها حقل غير منضم يحمل قيمة جديدة لحقل مستهدف بالتحديث في جدول (مصدر النموذج) نفترض ان الجدول للموظفين والحقل المستهدف بالتحديث هو اسم الموظف ، نتعامل مع الرقم التعريفي للسجل وهو رقم الموظف في حدث عند النقر نضع الكود التالي ، وهو كود مزدوج تستطيع ان تستخدم الكود الذي يجرى عملية التعديل بموجب جملة 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 والمرفق لغايات التوضيح والله من وراء القصد ..... والله اقسم بربي لا اجد كلمة أشكرك بها .. ولكن اقول لك كل ما تقوم به فهو بعين الله. شكري لك و دمت بالف خير رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 19, 2011 مشاركة قام بنشر أبريل 19, 2011 أخي العزيز قسمك عظيم ،،، اقشعرت أوصالي من كلماتك ... فالحمد لله الذي بفضله تقضى الحاجات لي عندك دعوة خير بظهر الغيب الله من وراء القصد ... رابط هذا التعليق شارك More sharing options...
PCPROF قام بنشر أبريل 19, 2011 الكاتب مشاركة قام بنشر أبريل 19, 2011 السلام عليكم ..اخي العزيز بفضل الله و مساعدتك ...في هذا اليوم ..فقد تطورت مهاراتي كثيرا في أوامر الــ SQL و كتبت و تعلمت الكثير عن أشياء كثيرة و قد قمت بعمل الكصير من أوامر الـ SQL التي لم أكن اعلم انه من الممكن أستخدامها. ربما بعد فتره ..سأجيب عن التساؤلات في قسم الأكسيس بدلا عنك ..هههههههه ...هذه مزحة . تحيتي و دمت بخير رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 20, 2011 مشاركة قام بنشر أبريل 20, 2011 حياك الله أخي العزيز وانا بانتظارك .... ومش مزحة رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 ينقل ............ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان