كرار صبري _ أبو جنى قام بنشر ديسمبر 5, 2015 قام بنشر ديسمبر 5, 2015 السلام عيكم و رحمة الله و بركاته ... لدي الكود الذي كتبه الاستاذ jjafferr في الموضوع ادناه ... و الاستاذ جعفر غير متواجد من فترة ... عسى المانع خير ... و الان بعد بعض التعديلات الكود لا يعمل ... الرجاء تعديله ليناسب هذه التعديلات ... مع التقدير ... New .rar
سعيد صواب قام بنشر ديسمبر 7, 2015 قام بنشر ديسمبر 7, 2015 (معدل) السلام عليكم ورحمة الله وبركاته .. حياك الله اخي كرار ... انت قمت بتغيير اغلب مسميات الحقول والذي يعتمد عليه الكود الذي قام به الأستاذ جعفر ... هنا مثال Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") جملة select في الريكورد ست تختار من الجدول sh وانت قمت بتغييره الى tb_sh كذلك tash انت قمت بتغييرها إلى تاريخ الوصل .. وهكذا .. ما عليك فعله هو احد امرين .. 1-تغيير المسميات في الكود بما يتناسب مع مسميات الحقول لديك .. 2- إرجاع تسميات حقول الجداول الى ماكانت عليه .. بإمكانك ارجاعها الى ماكانت عليه مع الإستعانه بالتسمية التوضيحية للحقل ... لكي تظهر باللغة العربية .. اما اسم الحقل نفسه فأنصحك بأن يكون باللغة الإنجليزية .. اتمنى اني افدتك .. وفقنا الله واياك .. تم تعديل ديسمبر 7, 2015 بواسطه سعيد صواب 1
كرار صبري _ أبو جنى قام بنشر ديسمبر 7, 2015 الكاتب قام بنشر ديسمبر 7, 2015 و عليكم السلام و رحمة الله و بركاته ... شكرا جزيلا استاذ سعيد على الرد ... و انا جدا ممنون لك ... جاري المحاولة ...
jjafferr قام بنشر ديسمبر 11, 2015 قام بنشر ديسمبر 11, 2015 في 12/5/2015 at 16:16, karrar sabry said: و الاستاذ جعفر غير متواجد من فترة ... عسى المانع خير ... الحمدلله كنت في الزيارة جرب المرفق لوسمحت في 12/7/2015 at 07:25, سعيد صواب said: انت قمت بتغيير اغلب مسميات الحقول والذي يعتمد عليه الكود الذي قام به الأستاذ جعفر ... رحم الله والديك أخي سعيد ، انت وفرت علي اكثر من نصف الطريق جعفر 231.1.New .accdb.zip
كرار صبري _ أبو جنى قام بنشر ديسمبر 12, 2015 الكاتب قام بنشر ديسمبر 12, 2015 زيارة مقبولة ان شاء الله ... و الحمد لله على سلامتك ...
كرار صبري _ أبو جنى قام بنشر ديسمبر 12, 2015 الكاتب قام بنشر ديسمبر 12, 2015 استاذ جعفر ... انا اريد ان يأخذ الجدول tbl_PP قيمه من الاستعلام sh و ts
jjafferr قام بنشر ديسمبر 12, 2015 قام بنشر ديسمبر 12, 2015 وعليكم السلام أخي كرار من متابعتي لردودك في المنتدى ، كان يجب علي ان افهم انك جربت تغيير الكود المطلوب واصطدمت بهذه الرسالة ، وتوقفت عندها : وافضل طريقة للتغلب عليها ، ان ترجع الكرة الى ملعبي السبب في حصولك هذه الرسالة ، هو ان لديك معايير 3 في الاستعلام sh11 والذي يعتمد عليه الاستعلام sh . طيب ، اذا الاستعلام sh11 يستطيع ان يقرأ المعايير من النموذج ee ، فلماذا لا يستطيع الكود ان يقرأه!! والجواب ان الاكسس عبارة عن اكثر من برنامج مرتبطه ببعضها ، فمنها الـ jet والذي الان يسمى Ace من الاصدار 2007 ، وهو مسئول عن الاستعلامات وبقية امور الاكسس ، ومنها الاكسس شخصيا ، وكود VBA جزء منه ، والبرنامجين ، صحيح انهم مرتبطين ، ولكن هناك بعض الامور التي لا يتفاهمون عليها مباشرة ، بل يجب عمل وسيط بينهم ، وحل هذه الرسالة هي احد الاشياء اللي محتاجة وسيط كود اصطياد الخطأ ، في الكود المرفق ، هو حلقة الوصل ، واخذ مني الوقت الطويل لتضبيطه ليتلائم مع برمامجك ، فاعتذر عن التأخر على الرد عليك Private Sub cmd_Combine_Click() On Error GoTo err_cmd_Combine_Click 'delete the old data mySQL = "Delete * From tbl_PP" CurrentDb.Execute (mySQL) Dim rstpp As DAO.Recordset Dim rst As DAO.Recordset Dim strSql As String Set rstpp = CurrentDb.OpenRecordset("Select * From tbl_PP") '1 'j Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") 'j2 Set rst = CurrentDb.OpenRecordset("Select * From tb_sh Order By [تاريخ الوصل]") strSql = "Select * From sh Order By [تاريخ الوصل]" Set rst = CurrentDb.OpenRecordset(strSql) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'add all the records For i = 1 To RC rstpp.AddNew 'j rstpp!iDate = rst!tash 'j rstpp!Purchase = rst!mbsh rstpp!iDate = rst![تاريخ الوصل] rstpp!Purchase = rst!mb rstpp.Update rst.MoveNext Next i '2 'j Set rst = CurrentDb.OpenRecordset("Select * From ts Order By tats") 'j2 Set rst = CurrentDb.OpenRecordset("Select * From tb_ts Order By [تاريخ]") strSql = "Select * From ts Order By [تاريخ]" Set rst = CurrentDb.OpenRecordset(strSql) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'we should check if the date is available, then we should use it For i = 1 To RC 'j rstpp.FindFirst "iDate=#" & rst!tats & "#" rstpp.FindFirst "iDate=#" & rst![تاريخ] & "#" If rstpp.NoMatch Then rstpp.AddNew 'j rstpp!iDate = rst!tats 'j rstpp!Payment = rst!mbts rstpp!iDate = rst![تاريخ] rstpp!Payment = rst!mblk rstpp.Update Else rstpp.Edit 'rstpp!iDate = rst!tats 'j rstpp!Payment = rst!mbts rstpp!Payment = rst!mblk rstpp.Update End If rst.MoveNext Next i rstpp.Close: Set rstpp = Nothing rst.Close: Set rst = Nothing DoCmd.OpenTable "tbl_pp" Exit Sub err_cmd_Combine_Click: If Err.Number = 3061 Then 'too few parameters, expected 1 or more 'this error occurs when trying to run a query which needs its parameters from a Form, 'the Form should be open with the parameter, then this code take the values properly Dim qdf As QueryDef Dim prm As Parameter 'Set qdf = CurrentDb.QueryDefs("strSql") Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSql) For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) DoCmd.DeleteObject acQuery, "NewQueryDef" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 231.1.New .accdb.zip 2
كرار صبري _ أبو جنى قام بنشر ديسمبر 13, 2015 الكاتب قام بنشر ديسمبر 13, 2015 ربي يحفظك ... اشكرك استاذي العزيز لكرمك و وقتك ...
كرار صبري _ أبو جنى قام بنشر يناير 20, 2016 الكاتب قام بنشر يناير 20, 2016 في ١٣/١٢/٢٠١٥ at 11:47, jjafferr said: السلام عليكم استاذ جعفر ... ان شاء الله تكون بخير عندي مشكلة في الجملة " As DAO.Recordset " كما في الصورة المرفقة علما اني طبقت الكود في " مثال مستقل " و عمل تمام لكن لما طبقته في " برنامج " ظهرت الرسالة كما في الصورة المرفقة ... مع شكري مقدما ... New Bitmap Image.bmp
سعيد صواب قام بنشر يناير 20, 2016 قام بنشر يناير 20, 2016 حياك الله اخي كرار مشاركة مع استاذنا جعفر تأكد هل هذه المكتبة موجودة في برنامجك الذي تطبق فيه الكود Microsoft DAO object library بالتويق 1
jjafferr قام بنشر يناير 20, 2016 قام بنشر يناير 20, 2016 وعليكم السلام نصيحة: اول ما تنقل محتويات برنامج الى آخر ، تأكد انك تقارن مكتبات VBA البرنامجين ايضا وردا على سؤالك ، وتأييدا لما قاله اخي سعيد: 3 ساعات مضت, سعيد صواب said: تأكد هل هذه المكتبة موجودة في برنامجك الذي تطبق فيه الكود Microsoft DAO object library . او تختار: Microsoft Office xx.x Access Database Engine Object Library فمثلا اذا عندك اكسس 2010 ، سيكون: Microsoft Office 14.0 Access Database Engine Object Library جعفر
كرار صبري _ أبو جنى قام بنشر يناير 20, 2016 الكاتب قام بنشر يناير 20, 2016 5 ساعات مضت, سعيد صواب said: حياك الله اخي كرار مشاركة مع استاذنا جعفر تأكد هل هذه المكتبة موجودة في برنامجك الذي تطبق فيه الكود Microsoft DAO object library بالتويق 2 ساعات مضت, jjafferr said: وردا على سؤالك ، وتأييدا لما قاله اخي سعيد شكرا أساتذتي الكرام على وقتكم ... وربي لا يحرمنا منكم هذه المكتبة لم تكن موجودة Microsoft DAO object library * لكنها غير موجودة في المثال الذي طبقته انا , و الكود يعمل بلا مشكلة
jjafferr قام بنشر يناير 20, 2016 قام بنشر يناير 20, 2016 2 ساعات مضت, karrar sabry said: هذه المكتبة لم تكن موجودة Microsoft DAO object library * لكنها غير موجودة في المثال الذي طبقته انا , و الكود يعمل بلا مشكلة هذا صحيح ، ولكن أخي سعيد كان يشير الى سبب رسالة الخطأ عموما ، لهذا السبب ، انا اضفت وقلت: 4 ساعات مضت, jjafferr said: او تختار: فمثلا اذا عندك اكسس 2010 ، سيكون: Microsoft Office 14.0 Access Database Engine Object Library جعفر
كرار صبري _ أبو جنى قام بنشر يناير 21, 2016 الكاتب قام بنشر يناير 21, 2016 8 ساعات مضت, jjafferr said: هذا صحيح ، فهمت ... يعني اما المكتبة الاولى أو الثانية أو كلاهما ...
jjafferr قام بنشر يناير 21, 2016 قام بنشر يناير 21, 2016 1 ساعه مضت, karrar sabry said: فهمت ... يعني 1.اما المكتبة الاولى أو 2.الثانية أو 3.كلاهما ... 1 و 2 نعم ، اما 3 ، فلا ، والبرنامج اصلا لن يسمح لكن بذلك جعفر
كرار صبري _ أبو جنى قام بنشر يناير 21, 2016 الكاتب قام بنشر يناير 21, 2016 55 دقائق مضت, jjafferr said: اما 3 ، فلا ، والبرنامج اصلا لن يسمح لكن بذلك صحيح ... شكرا استاذ جعفر ...
كرار صبري _ أبو جنى قام بنشر يناير 23, 2016 الكاتب قام بنشر يناير 23, 2016 في ٢١/١/٢٠١٦ at 11:21, jjafferr said: استاذ جعفر العزيز ... في النموذج - ادارة الديون - حساب التاجر يعمل تمام لكن حساب العميل لا ... لو سمحت افحص الكود ... وشكرا مقدما ... http://www.mediafire.com/download/az8svczu9zjxhc0/%D9%85%D8%AB%D8%A7%D9%84.rar
jjafferr قام بنشر يناير 24, 2016 قام بنشر يناير 24, 2016 السلام عليكم أخي كرار تذكر لما قلت لك: في 12/12/2015 at 00:26, jjafferr said: كود اصطياد الخطأ ، في الكود المرفق ، هو حلقة الوصل وهو: Error GoTo err_cmd_Combine_Click وانت استخدمت نفس الكود للزر الآخر كذلك!! رجاء تعديل حدث الزر الآخر من err_cmd_Combine_Click الى err_cmd_Combine_Click2 ويوجد في مكانين في الحدث جعفر
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان