ممكن صيفة أمر ( تكرار السجل )

[أبو نادر]

السلام عليكم

 

امر اضافة سجل     DoCmd.GoToRecord , , acNewRec

لو اردت ان اكرر نفس السجل ما هي الصيغة؟

 

 

 

ودمتم

[أبو عبدالله الحلوانى]

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

أولا - فكرة تكرار السجل هى عملية نسخ ولصق للسجل الذى تريد تكراره 

ثانيا - هذا هو الكود وقد استخرجته لك من معالج انشاء الأزرار بالأكسس  وهذا هو:

    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

وأخيرا - تمنياتى بالتوفيق 

ولا تنسانا من دعائك

[أبو نادر]

ليه كذا يبو عبدالله  .. انا مخبص وتبغاني ازيد  

 

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

 

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 بواسطه أبو نادر

[أبو عبدالله الحلوانى]

37 دقائق مضت, أبو نادر said:

انا مخبص وتبغاني ازيد  

ما عاش اللى يجعلك تخبص ليش ما قلت هيك من الأول 

واش لون تستغنى عن كل ها الشىء ونكتفى باهدول السطور فقط 

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
   

ولكن لابد من الوقوف على السجل المراد تكراره قبل دعس الزر 

طبعا انا بحاول التكلم بلهجتك (من شان هيك تلقانى ممتاز )

على فكرة اتفقنا على 

منذ ساعه, أبو عبدالله الحلوانى said:

ولا تنسانا من دعائك

 

[أبو نادر]

الله يسعدك ويوفقك ....  مييييييييييييه مييييييييييييييه