تكرار لكن ليس لكل الحقول

[youssef salim85]

السلام عليكم :

لدي نموذج ادخال فيه معلومات تلزم عند عمل جديد  اذاعملت تكرار يعطيني كل الحقول كما هي في النموذج  ماريده هو ان يعطيني بعض الحقول فارغة . في الملف المرفق اريد ان يعطيني الراتب فارغ بعد التكرار

[أبو آدم]

أرفق الملف

[youssef salim85]

اريده في المثال ان يرجع لي  الجنسية والعمل ويعطيني باقي الحقول فارغة - جزيت خيرا لسعة الرد

TRT.zip

[ابو محمد2]

السالام عليكم

تفضل اخي اعتقد هذا ما تطلبه

الماكرو macro1  يعمل لك ذلك

مع التقدير

TRT.zip

[youssef salim85]

السلام عليكم اخي الكريم شكرا لاجابتك وجزيت خيرا

ماريده بالضبط

هو التكرار خلال العمل على ادخال البيانات  من خلال النموذج 

بانتظار ردك دام فضلك

[ابو محمد2]

السلام عليكم

لم نفهم قصدكم اخي الكريم

يجب توضيح ما تطلب بالتفصيل كي يتسنى لنا مساعدتك

بالتوفيق

[youssef salim85]

السلام عليكم .. السؤوال واضح لدي نموذج لادخال البيانات ..عندما اعمل تكرار يكرر جميع المعلومات  مااريده بالضبط هو ان يكرر بعض الحقول ويعطيني البعض الاخر حقولا فارعة لاني ساملاها ببيانات ليست كالتي في السجل السابق

شاكرا تعاونك

[أبو آدم]

أخي يوسف

 

في بداية محرر الفيجوال للنموذج نعرف المتغيرات التالية :

Private m_strNOM, m_strNAM, m_strAGE As String

خلف زر أمر ولنقل Command_NewRecord نضع الكود التالي :

Private Sub Command_NewRecord_Click()

    m_strNOM = Nz(Me.NOM.Value, "")
    m_strNAM = Nz(Me.NAM.Value, "")
    m_strAGE = Nz(Me.AGE.Value, "")
   
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
    Me.NOM = m_strNOM
    Me.NAM = m_strNAM
    Me.AGE = m_strAGE
    
End Sub

وقم باختيار ما تشاء من الحقول واترك ما تشاء

ما كنت تقوم به نسخ ولصق لكامل السجل

 

جرب ووافني بالنتيجة

 

واليك التعديل ....

 

 

NA_TRT_UP.rar

[youssef salim85]

أخي يوسف

 

في بداية محرر الفيجوال للنموذج نعرف المتغيرات التالية :

Private m_strNOM, m_strNAM, m_strAGE As String

خلف زر أمر ولنقل Command_NewRecord نضع الكود التالي :

Private Sub Command_NewRecord_Click()

    m_strNOM = Nz(Me.NOM.Value, "")
    m_strNAM = Nz(Me.NAM.Value, "")
    m_strAGE = Nz(Me.AGE.Value, "")
   
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
    Me.NOM = m_strNOM
    Me.NAM = m_strNAM
    Me.AGE = m_strAGE
    
End Sub

وقم باختيار ما تشاء من الحقول واترك ما تشاء

ما كنت تقوم به نسخ ولصق لكامل السجل

 

جرب ووافني بالنتيجة

 

واليك التعديل ....

جزاك الله خير لقد حاولت بطريقة ثانية وهي جعل خلف زر التكرار  قيمة الحقل المطلوب تفريغه = "0" لكن ما حصل معي انه فعلا فرغ الحقول ولكن ضمن نفس السجل اي لم يعمل تكرار وانا اريده ان ينفذ النكرار ويعطيني الحقول فارغة ما رايك بالطريقة و هل لديك حل لتنفيذ التكرار ضمن العملية  فانا اريدها تحت الامر تكرار  وليس الامر جديد... جزيت خيرا

تم تعديل مايو 2, 2014 بواسطه youssef salim85