عبده الطوخى

17 ساعات مضت, Moosak said:

ضع هذا الكود بدل السابق أخي عبده :

On Error GoTo ErrHandler
    
Dim y As Integer, x As Integer: x = Me.Form.Recordset.RecordCount
    
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord , , acLast
For y = 1 To x
Me.Month = ""
DoCmd.GoToRecord , , acPrevious
Next

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description
        Me.AllowAdditions = True
    Else
    Exit Sub
    End If

 

الف شكر لاستاذنا الغالى Moosak

الكود فعال جدا وتم تجربته 

جزاك الله كل خير 

برجاء الاستكمال والاضافة بخصوص الكود المطلوب 

حيث اننى قمت باضافة جزء من الكود ""= Me.Month

فى الكود الرئيسى الخاص بالاستاذ Moosak 

فكانت النتيجة تفريغ الحقل المطلوب لسجل واحد فقط 

فهل يوجد طريقة اخرى لتفريغ هذا الحقل لكل السجلات 

ومرفق الكود 

()  Private Sub CmdCopy_Click
On Error GoTo ErrHandler
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

  هذا ما تم اضافته لتفريغ بيانات الحقل                  ""= Me.Month

 :ErrHandler
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description
        Me.AllowAdditions = True
    Else
    Exit Sub
    End If

End Sub

هل من الممكن استكمال لنفس الكود 

ان يتم تخصيص الحقل ( علاج شهر _ month ) عند اللصق يتم كتابة بيانات جديدة فى الحقل ( month )

اتمنى ان اجد الرد لديكم 

في 24‏/3‏/2022 at 17:40, Moosak said:

أهلا أخي عمر ..

ضع هذا الكود على زر واحد .. فسيقوم بنسخ السجلات كلها ولصقها كسجلات جديدة :

Me.AllowAdditions = False
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

أما إذا كنت تريد نسخ ولصق السجل الذي تتقف عليه فضع الكود كما يلي :

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste

الشغل كله على هذا الزر 🙂  

مراجعة فواتير العلاج الشهرى المزمن - Copy.rar 862.5 kB · 5 downloads

الله ينور عليك يا استاذنا Moosak 

تم العمل بالكود الاول النسخ لجميع السجلات المطلوبة 

الف شكر لحضرتك 

هل يوجد حل لديكم 

افادكم الله 

مراجعة فواتير العلاج الشهرى المزمن - Copy.rar

السادة الافاضل _ بعد التحية 

لقد تم التوصل للحل بفضل الله 

ومرفق الكود لمن يواجه نفس المشكلة التى كانت لدى 

Private Sub CmdSearch_Click()
Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.Emp_number) Then
     varFilter = "[Emp_number]=" & Me.Emp_number
   End If
      
   If Not IsNull(Me.month) Then
      varFilter = (varFilter + " AND ") & "[month] LIKE '*" & Me.month & "*'"
   End If
   
   If Not IsNull(Me.Emp_Name) Then
      varFilter = (varFilter + " AND ") & "[Emp_Name] LIKE '*" & Me.Emp_Name & "*'"
   End If
  
   
   
   With Me.Kinds_medicines.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
     Me.Kinds_medicines.SetFocus
   Else
    .FilterOn = False
   End If
    .Requery
  End With
End Sub

اخى الفاضل 

المطلوب كان البحث برقم الموظف واسم الموظف والتاريخ 

حيث تم عمل البحث برقم الموظف واسم الموظف 

المطلوب استكمال كود البحث بالتاريخ ( نموذج رئيسى ونموذج فرعى )

مراجعة فواتير العلاج الشهرى المزمن.rar

السادة الافاضل 

اقدم لكم اعتذارى لكثرة الاسئلة فى موضوع واحد 

لذلك سوف اقوم بعرض الموضوع مرة اخرى لسؤال واحد فقط 

(( اريد تطبيق بنوذج بحث متعدد ( بحث بالرقم & بحث بالتاريخ & بحث بالاسم ) فى نموذج frm_Search ))

وشكرا لكم 

مراجعة فواتير العلاج الشهرى المزمن.rar

السادة الافاضل 

برجاء المساعدة 

اريد تطبيق بنوذج بحث متعدد ( بحث بالرقم & بحث بالتاريخ & بحث بالاسم ) فى نموذج frm_Search 

وكذلك اريد نطبيق هذا البحث فى نموذج رئيسى ونموذج فرعى _ فى نموذج monthly_medication 

وكذلك اريد كود لاحضار ملف خارجى فى نموذج Medicines_q ومرفق الملف الخارجى

وكذلك اريد كود لاحضار صورة الكارنية للموظف فى نموذج Emp_Data ومرفق ملف الصور _ الربط برقم الموظف

واعتذر جدا للاطالة حيث انكم اصحاب الخبرة 

واتمنى لكم التوفيق 

مراجعة فواتير العلاج الشهرى المزمن.rar

استاذى الفاضل _ Eng.Qassim

لكم جزيل الشكر 

السادة الافاضل 

تحية طيبة وبعد ،،،

برجاء المساعدة فى الملف المرفق 

حيث انه مطلوب عمل حقل تجميع حساب موظف على ان يكون الحقل فى تذييل النموذج 

ولكم جزيل الشكر 

برنامج مراجعة فواتير العلاج الشهرى المزمن...rar

ممكن اعرف نتيجة الحل 

لان عندى نفس المشكلة 3464 Run-time error

الى الاخ الاستاذ / احمد بكر 

لك جزيل الشكر على الموضوع الرائع 

برجاء التفضل بالنظر الى الموضوع الخاص بى وهو كالتالى 

انا موظف بشركة ومطلوب منى عمل برنامج متابعة يومية لافراد الامن وهو نظام تسجيل يومى 

انا اريد شاشة ادخال يومية لاكثر من مزرعة لتسجيل افراد الامن لكل مزرعة 

ومرفق لسيادتكم شيت اكسيل بالداتا المطلوبة 

برجاء الاهتمام بالموضوع ونحن نعرف مدى استجابتكم ومساعدة الاخوة الاعضاء 

ولكم جزيل الشكر والاحترام 

عبده محروس الطوخى 

الى الاخ الاستاذ / احمد بكر 

لك جزيل الشكر على الموضوع الرائع 

برجاء التفضل بالنظر الى الموضوع الخاص بى وهو كالتالى 

انا موظف بشركة ومطلوب منى عمل برنامج متابعة يومية لافراد الامن وهو نظام تسجيل يومى 

انا اريد شاشة ادخال يومية لاكثر من مزرعة لتسجيل افراد الامن لكل مزرعة 

ومرفق لسيادتكم شيت اكسيل بالداتا المطلوبة 

برجاء الاهتمام بالموضوع ونحن نعرف مدى استجابتكم ومساعدة الاخوة الاعضاء 

ولكم جزيل الشكر والاحترام 

عبده محروس الطوخى 

بيان الامن اليومى- تفصيلى.rar

الاخ العزيز TareQ M

جارى الاخذ بالنصيحة والبحث وانا عندى بعض الافكار موجودة بالاكسيل ومحتاجة الى خبراتكم

وبارك الله لنا فيكم على عونكم لنا

هل يمكن عمل برنامج شامل لشئون العاملين يشمل الاجازات - التامينات - ساعات العمل الاضافية - تعينات جديدة - ترك العمل

وما يستجد من اعمال ادارية

هل يمكن عمل ذلك وما هى الخطواط المطلوبة لذلك

مع العلم بانى احترم الاكسيل جداً من حيث المعادلات الخاصة

ولم اتمكن حتى الان من عمل اى برنامج بالاكسيل برمجة ( ماكرو - vb )

وطريقة عمل البرنامج مع واجهة الاوتورن