AlwaZeeR

بعيدا عن الدالة السابقة ممكن صورة للنتائج التي تريدها في الاستعلام؟

اشكرك على كلماتك التي تنم عن اصلك الطيب ومعدنك الاصيل فأنت ما زلت وستبقى ابن مصر الحضارة والرقي ===== لم افهم ماذا تقصد بجربت الاكواد لكن اطلعت على المرفق الخاص بك ولم اجد ما يصيد الخطأ 2501

هلا بالغالي أبا جودي تواضعك محل ثقة واحترام الجميع بارك الله فيك وفي اهلك ومحبيك تفضل عزيزي جرب هذا On Error GoTo ErrHandler DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الجدول الى المسار المحدد بنجاح" ErrHandler: If Err.Number = 2501 Then Exit Sub او هذا On Error GoTo Command14_Click_Error DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الجدول الى المسار المحدد بنجاح" Command14_Click_Error: MsgBox "تم الغاء الاجراء"

العفو نعم يمكن بهذه الطريقة '=== هنا مصدر السجلات على شكل جملة اس كيو ال SQLStr = " SELECT EmpTbl.ID as [رقم الهوية], EmpTbl.EmpName As [اسم الموظف], EmpTbl.Begin_Date As [التاريخ] " & _ " FROM EmpTbl;"

تفضل هذا مثال بطريقتين تصدير مصدر الى ملف اكسل موجود تصدير مباشر مع انشاء ملف اكسل === بالنسبة للخطأ خطأ في تعريف المتغير الكود ينقصه ذلك Dim strQry As String TestDB.mdb

تفضل مع تغيير ما يلزم بما يناسبك Dim strSQL As String Dim DBs As Database Dim Qdf As QueryDef strQry = "REPORT_QUERY" Set DBs = CurrentDb Set Qdf = DBs.CreateQueryDef(strQry) '=== هنا مصدر السجلات على شكل جملة اس كيو ال SQLStr = " SELECT EmpTbl.ID, EmpTbl.EmpName, EmpTbl.Begin_Date " & _ " FROM EmpTbl;" Qdf.SQL = SQLStr DoCmd.TransferSpreadsheet acExport, , _ strQry, "D:\MQudsy.xls", True, _ "Mpage1" DoCmd.DeleteObject acQuery, strQry

ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي

اضف الى استعلام البحث الذي وضعه الأستاذ عبد اللطيف معيار رقم السند [Forms]![Frm_search]![رقم السند]

رائعة حلولك كعادتك دائما اخي جعفر كل عام وانتم بالف خير وتقبل الله طاعاتكم

لان عدد السجلات لديك كبير والإجراءات التي يقوم بها الاستعلام كثيرة ومعقدة

تفضل Lab 2019-waz.rar

تفضل Lab 2019NLast.rar

تفضل Lab 2019Nz.rar

تفضل Lab 2019N.rar

للأسف كما ذكر الأخ خالد الإصدار 64

تفضل TEST - Copy1.rar

اسمح لي بمداخلة بسيطة لعل وعسى تكون النصف الاخر اخي العزيز أبا جودي تعديل بسيط على الوحدة الخاصة بك: Public Function ExtractIDs(ByVal varInput As Variant) As String On Error Resume Next Dim strSplit() As String, strResult As String Dim intIndex As Integer If IsNull(varInput) Then Exit Function strSplit = Split(CStr(varInput), " ") For intIndex = 0 To UBound(strSplit) '''' If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & ";" If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & "|" Next If Len(strResult) > 0 Then 'Remove final semi-colon and pass back result. ''''' ExtractIDs = Mid(strResult, 1, Len(strResult) - 1) ExtractIDs = Mid(strResult, InStr(1, strResult, "009")) End If End Function :: تحياتي

بالتوفيق اخي عصام وااعانك الله على هذه المسؤولية :: تحياتي

مبارك أبا جودي تستحق كل الاحترام والتقدير فطيبة قلبك ظاهرة في مشاركاتك بالتوفيق

جهد جميل يستحق الشكر وأيضا نستطيع إضافة الخطوط في نفس قاعدة البيانات دون الحاجة لوضعها في مجلد عن طريق كائن (OLE) ويتم استدعاء الخط وتسجيله عند فتح البرنامج هذه هي الطريقة التي استخدمها انا في برامجي :: تحياتي

تفضل عزيزي استخدم الوحدة النمطية التالية في النموذج الخاص بك Public Function CheckFocusCtrl() On Error Resume Next If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)") Else End If End Function ثم قم باستدعائها تحت زر الامر الذي تريد هكذا: CheckFocusCtrl مع ملاحظة حقول: A , b هي الحقول التي على أحدها المؤشر فقم بتغييرها بمسميات حقولك

تفضل: باستخدام الوحدة النمطية التالية: Public Function DBFormat(SField As String) As Integer Dim DbCount As Integer DBFormat = 0 DbCount = DCount("[num]", "table1", "[num] = " & SField) If DbCount > 1 Then DBFormat = 1 End Function واستدعائها ضمن التنسيق الشرطي للحقل هكذا: DBFormat([num])>0 مع تغيير التنسيق الى احمر كما في الصورة New Microsoft Access Databasewazzzz.accdb

وعليكم السلام ورحمة الله وبركاته تفضل: =Day(DateSerial(Year([datex]),Month([datex])+1,0))

السلام عليكم ورحمة الله وبركاته احذف إشارة اكبر Case Is = dtEnd

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في حدث الحالي للنموذج: Dim dtBgn Dim dtEnd dtBgn = DateSerial(Year(Date), 4, 1) dtEnd = DateSerial(Year(Date), 3, 31) Select Case Date Case Is >= dtEnd acc_year = Year(Date) & "/" & Year(Date) + 1 Case Else acc_year = Year(Date) & "/" & Year(Date) - 1 End Select Acc_YearN.accdb