أبو نادر قام بنشر مايو 20, 2016 مشاركة قام بنشر مايو 20, 2016 السلام عليكم امر اضافة سجل DoCmd.GoToRecord , , acNewRec لو اردت ان اكرر نفس السجل ما هي الصيغة؟ ودمتم رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 20, 2016 مشاركة قام بنشر مايو 20, 2016 وعليكم السلام ورحمة الله وبركاته أولا - فكرة تكرار السجل هى عملية نسخ ولصق للسجل الذى تريد تكراره ثانيا - هذا هو الكود وقد استخرجته لك من معالج انشاء الأزرار بالأكسس وهذا هو: On Error Resume Next DoCmd.RunCommand acCmdSelectRecord If (MacroError = 0) Then DoCmd.RunCommand acCmdCopy End If If (MacroError = 0) Then DoCmd.RunCommand acCmdRecordsGoToNew End If If (MacroError = 0) Then DoCmd.RunCommand acCmdSelectRecord End If If (MacroError = 0) Then DoCmd.RunCommand acCmdPaste End If If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command203_Click_Exit: Exit Sub Command203_Click_Err: MsgBox Error$ Resume Command203_Click_Exit وأخيرا - تمنياتى بالتوفيق ولا تنسانا من دعائك 1 رابط هذا التعليق شارك More sharing options...
أبو نادر قام بنشر مايو 20, 2016 الكاتب مشاركة قام بنشر مايو 20, 2016 (معدل) ليه كذا يبو عبدالله .. انا مخبص وتبغاني ازيد عندي هذا الكود لاضافة سجل .. من مجهود اخوي ابو خليل On Error Resume Next Beep Select Case MsgBox("هل ترغب بإضافة سجل جديد ؟" & vbCrLf & _ "", _ vbInformation + vbMsgBoxRight + vbYesNo, _ "تنبيـــه : إضافة سجل جديد") Case vbYes DoCmd.GoToRecord , , RecordsGoToNew Case vbNo Me.Undo MsgBox "تم الإلغاء" Exit Sub End Select انا حبيت بس اشيل هالجملة DoCmd.GoToRecord , , RecordsGoToNew وابدلها بتكرار سجل في الحذث مو ماكرو الحين اشلون اسويها بكودك والله يعطيك الف عافيه يا بطل هل ابدل كلمة MacroError باسم زر الامر ؟ تم تعديل مايو 20, 2016 بواسطه أبو نادر رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر مايو 20, 2016 مشاركة قام بنشر مايو 20, 2016 37 دقائق مضت, أبو نادر said: انا مخبص وتبغاني ازيد ما عاش اللى يجعلك تخبص ليش ما قلت هيك من الأول واش لون تستغنى عن كل ها الشىء ونكتفى باهدول السطور فقط DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste ولكن لابد من الوقوف على السجل المراد تكراره قبل دعس الزر طبعا انا بحاول التكلم بلهجتك (من شان هيك تلقانى ممتاز ) على فكرة اتفقنا على منذ ساعه, أبو عبدالله الحلوانى said: ولا تنسانا من دعائك 2 رابط هذا التعليق شارك More sharing options...
أبو نادر قام بنشر مايو 20, 2016 الكاتب مشاركة قام بنشر مايو 20, 2016 الله يسعدك ويوفقك .... مييييييييييييه مييييييييييييييه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.