عبده الطوخى

الف شكر لاستاذنا الغالى 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 ) اتمنى ان اجد الرد لديكم

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

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

السادة الافاضل تحية طيبة وبعد ،،، برجاء التكرم والمساعدة فى كود لنسخ السجلات المحددة ولصقها فى السجل الجديد مع امكانيه ادراج تاريخ جديد _ العمل فى نموذج frm_Search ومرفق قاعدة البيانات لو امكن العمل عليها ولكم جزيل الشكر والاحترام مراجعة فواتير العلاج الشهرى المزمن - 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

الى الاخ الاستاذ / احمد بكر لك جزيل الشكر على الموضوع الرائع برجاء التفضل بالنظر الى الموضوع الخاص بى وهو كالتالى انا موظف بشركة ومطلوب منى عمل برنامج متابعة يومية لافراد الامن وهو نظام تسجيل يومى انا اريد شاشة ادخال يومية لاكثر من مزرعة لتسجيل افراد الامن لكل مزرعة ومرفق لسيادتكم شيت اكسيل بالداتا المطلوبة برجاء الاهتمام بالموضوع ونحن نعرف مدى استجابتكم ومساعدة الاخوة الاعضاء ولكم جزيل الشكر والاحترام عبده محروس الطوخى

الى الاخ الاستاذ / احمد بكر لك جزيل الشكر على الموضوع الرائع برجاء التفضل بالنظر الى الموضوع الخاص بى وهو كالتالى انا موظف بشركة ومطلوب منى عمل برنامج متابعة يومية لافراد الامن وهو نظام تسجيل يومى انا اريد شاشة ادخال يومية لاكثر من مزرعة لتسجيل افراد الامن لكل مزرعة ومرفق لسيادتكم شيت اكسيل بالداتا المطلوبة برجاء الاهتمام بالموضوع ونحن نعرف مدى استجابتكم ومساعدة الاخوة الاعضاء ولكم جزيل الشكر والاحترام عبده محروس الطوخى