kanory

جرب المرفق واعلامنا بالنتيجة ...... ترقيم تلقائي جديد كل سنة.mdb

معليش ... ممكن نعرف ليش .... أمكن لدى البعض افكار اخرى تساعدك في حل مشكلتك ... بارك الله فيك

طيب شوف المرفق ... هل هذا ما تريد .... حتى نكمل بقية البيانات ... kan_12.accdb

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

اقرأ هذا الموضوع تستفيد منه الكثير ...

الف . الف . مبروك . اخي الكريم .... تستاهل

اخي الكريم تظهر الرسالة لانك لم تحفظ السجل فكيف تضيف معلومات للسجل ......---------->>>>> اولا احفظ بالضغط على حفظ وتحديث ثم اضغط على المعرفون .....

!!!! ؟؟؟؟ هل الملف المرفق له علاقة أم بداية اثار الكبر أخي @jjafferr

ضع هذا في مربع النص الخاص بالمبلغ في التقرير ="#" & [Forms]![Form1]![المبلغ] & "#"

وهذه طريقة أخرى مشاركة مع العمدة @jjafferr Sub SaveAttachmentAll(Optional FilePath) On Error Resume Next Dim Rs As DAO.Recordset, RsA As DAO.Recordset Dim NewFileName, Rc, Sn Set Rs = Me.RecordsetClone Rs.MoveFirst 'Loop throu All record Do Until Rs.EOF 'Set attachment db Set RsA = Rs("pic").Value 'Get record count If RsA.RecordCount = 0 Then Exit Sub RsA.MoveLast Rc = RsA.RecordCount RsA.MoveFirst ' Loop throu current record attachments Do Until RsA.EOF ' make Sequence if more one attachment If Rc > 1 Then Sn = RsA.AbsolutePosition 'if no file path provide, get db path If IsMissing(FilePath) Then FilePath = CurrentProject.Path & "\Images\" End If ' Make new file name NewFileName = Rs("جلوس") & Sn & "." & RsA("filetype") ' Save attached file to new file name RsA("FileData").SaveToFile FilePath & NewFileName RsA.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsA = Nothing End Sub ثم استدعيه من الزر Call SaveAttachmentAll kan.rar

حياك اخي ابا بسملة .... تنورنا

ربما هذا المطلوب .... 233.rar

ضع هذا الكود تحث حدث عند الضغط على الزر وامسح الماكروا الموجود DoCmd.OpenReport "kashef", acViewPreview, , "stclass Like '*" & Me.stclass & "*'"

جرب هذه ايضا ...... Intl: "00966" & Right([mopaul];9) طبعا mopaul هو الحقل الموجود فيه ارقام الجوال

Mobily: Replace([الجوال];0;966;1;1) ضع هذا في استعلام : طبعا الجوال هو الحقل الموجود فيه ارقام الجوالات بهذه الصورة .....

نعم ..... نفذ احدى الطريقتين التي ذكرتها لك ....

ممكن تعمل تحديث او تضيف حقل اخر يعدل الرقم بالمطلوب

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

فضلا غير افضل اجابة للاستاذ . @jjafferr لانه اول من طرح اجابة صحيحة .... بارك الله فيك

جرب المرفق .... New (1).accdb

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب ..... Dim TextLine Dim x() As String Dim TESTFILE As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Mobaile") 'TESTFILE = Application.CurrentProject.Path & "\Template.csv" TESTFILE = Me.txtPath Open TESTFILE For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. 'Debug.Print TextLine ' Print to the Immediate window. x = Split(TextLine, ",") If x(0) <> "IdentificationID" Then rst.AddNew rst!IdentificationID = x(0) rst!FullName = x(1) rst!MobileNumber = x(2) rst!ClassName = x(3) rst.Update End If Loop Close #1 ' Close file. rst.Close: Set rst = Nothing

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

مين قال ما جربنا بل عكس طريقة جديدة بالنسبة لي ..... بارك الله فيك أخي ابا ابراهيم

وهذه مشاركة تفضل ..... Deffi.rar

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر هذا التنسيق الي اشتغلوا عليه ..... انظر