jjafferr

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

كيف مو مشكلة!! اذا استعملت: DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo او DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 PauseTime = 4 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo والاكسس اظهر لك التقرير ، معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي جعفر

السلام عليكم وكما قال أخي شفان ، إذا كان الحقل مضمن ، فمعناه ان له قيمه تحدده من الجدول ، فاذهب الى إعدادات الحقل في الجدول وغير نوع الرقم من رقم كامل long integer الى Double جعفر

الحمدلله سابقا كنا نخلي التقرير مخفي ، ولكني للتجربة عملت التقرير ظاهر جعفر

الظاهر المشكلة من الطابعة ، لذلك خلينا نجرب: جرب هذا الكود ، عملت فارق 5 ثوان بين الطبعة الاولى والثانية ، ثم 4 ثوان بين الطبعة الثانية والثالثة ، فقط للتجربة: DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 PauseTime = 4 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo واذا ما مشى الحال ، فيمكن تشوف هذه المشاركة، نفس المشكلة مع طابعة الباركود ، وهي شبيهة بطابعة الفواتير ، والمشكلة كانت في اعدادات الطابعة: جعفر

طيب جرب هذه الطريقة: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo وعليكم السلام اخي بدر نعم نعرف هذه الطريقة ، ولكن التقرير بطيء ، لذلك فنحن نحاول فتح التقرير مرة واحدة ، والطباعة عدة مرات جعفر

هل لاحظت اني عملة التقرير غير مخفي

وعليكم السلام جرب هذا: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

وعليكم السلام جرب هذا ، انت تقرر Round الى اي عدد بعد الفاصلة ، 2 او 3 مثلا ، وعدم وضعك لرقم معناه انك تقرب الرقم بدون كسور بعد الفاصلة: taxt_n1: Round([taxt_t1]/[d2]*[d1],3) taxt_n4: Round(1/[d2]*[d11],2) جعفر

هلا والله

لوسمحتي ترفقين شيء ممكن اساعدك فيه

وين الكود اللي انا اقترحته انا !!

اذا ممكن اشوف الحدث بالكامل لوسمحتي

وعليكم السلام تفضل: جعفر

اذن يجب تطابق الاسم والرقم MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" and MyPass = "Admin" Then جعفر

وعليكم السلام ونفس كلام أخي ابوخليل ، ولكن بطريقة اعم : me.filed.height = Me.Section(0).Height وهنا عمل شامل للموضوع جعفر

وعليكم السلام انظر الصورة المرفقة للتفاصيل: في التقرير ، ضع الباركود مرة واحدة ، ثم بدل الرقم 6 في الصورة ادناه ، اجعله 3 . جعفر

السلام عليكم أخي عبدالله وكما قال الاستاذ شفان ، ولكن مترجما في الكود جعفر

نعم هذا الإصدار اللي استعمله ، مع ان الإصدارات الأحدث 2013 و 2016 فيها ميزات ، إلا انه وحسب ما قرأت من بعض المحترفين ، الإصدار 2010 هو المفضل جعفر

السلام عليكم جرب هذا jj=0 Do Until rstEmployees.EOF If jj=1 then exit do If rstEmployees!Title = "Sales Representative" Then rstEmployees.Edit jj=1 rstEmployees!Title = "Account Executive" rstEmployees.Update جعفر

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

وعليكم السلام اخي ياسر اولا: هل لاحظت ان الموضوع في 5 طلبات ، وقوانين المنتدى تسمح بسؤال واحد في كل موضوع فقط!! والسبب هو ، حتى يتشجع الاعضاء الاخرين والرد بسرعة ، بالاضافة الى جعل الموضوع ارشيف للمستقبل لسهولة الوصول للسؤال والجواب ثانيا: عندك خطأ فني في طرح السؤال ، مما يجعله غامض ، ولن تحصل على الاجابة بسرعة ، وهو "حل مشكلة تكرار التقرير داخل النموذج": ما معنى تكرار التقرير ، وكيف جعلت التقرير داخل النموذج!! ثالثا: وكما اوضح الاستاذ عبدالفتاح ، بأن مرفقك لا يحتوي على الكائنات التي اشرت اليها في الموضوع ، ولا تحتوي على شيء يفيد في الرد عليه رجاء فتح موضوع جديد ، آخذا في الاعتبار النقاط اعلاه يُغلق الموضوع. جعفر

وعليكم السلام أختي من الكود عندك: DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'") If Me.psswrd = "1010" Then هذا معناه ان حقل الاسم وحقل الرقم السري ، هم نص ، واذا كان الامر كذلك ، فما في مشكلة في الكود جعفر

الغريبة ، أني تقريبا الوحيد الذي يوقع على كل مشاركة بإسمه ، جعفر ومع هذا ، فتقريبا الكل لا يناديني بإسمي ، وإنما بـ jjafferr jjafferr