kanory

أخي الكريم تابع هذا الموضوع هنا ... التكمله هنا

السلام عليكم ورحمة الله وبركاته طرح في موضوع سابق موضوع رسائل الواتس اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40 يمكنك تغييرها ليتناسب مع سرعة جهازك ...... الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... أولا : الذهاب للرابط https://www.whatsapp.com/download وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة ) ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة ) رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40 ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية .... منتظر انطباعاتكم حول البرنامج ؟؟؟؟ WhatsApp_kan.accdb هنا تجدون الموضوع السابق ......

اعتقد مشكلة اللغة العربية في تحويل اللغة من العربية الى الانجليزية والعكس ........

اكتب هذا الكود تحت حدث عند النقر للزر AAA Forms!Lab_All.SetFocus Forms!Lab_All!BBB.SetFocus

هل هذه المنتجات ال 300 مسجلة مسبقا في جدول مثلا أو ......

حياك الله .... بالتوفيق

تحت حدث عند عدم الوجود في القائمة ضع هذا الكود Dim i As Integer Dim Msg As String If NewData = "" Then Exit Sub Msg = "'" & NewData & "' áíÓ ÚäÕÑÇ Ýí ÇáÞÇÆãÉ. " & vbCr & vbCr i = MsgBox(Msg, vbQuestion, "ÛíÑ ãÚÑæÝ") Me.ww = "" Me.ww.Dropdown Response = acDataErrContinue 33 (1).accdb

هل افهم من كلامك انك لم تصمم الجدول وانما انت تريد فكرة تصميم جداول للمطلوب .... أم هذه اليبانات موجودة ومدخلة تريد حل لها ...

في نظري طريقتك هذه افضل من اعادة الترقيم ...

في هذه الحالة نحتاج اعادة ترتيب المستندات حسب التاريخ ثم اعادة الترقيم مرة اخرى ..... وهل هذا الطريقة منطقية .. ؟؟؟

تريد الحذف بهدف اعادة الترقيم ام أمر اخر

تفضل ...... ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb

اضف لنهاية الكود بعد التصدير يقوم بمسح الجدول kan

افهم من كلامك خلاص انت تكمل المتبقي ؟؟؟ أم ماذا ؟؟؟

جرب المرفق واعلامنا بالنتيجة ...... ترقيم تلقائي جديد كل سنة.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

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