jjafferr

وعليكم السلام 🙂 بإختصار ومن النهاية ، لا توجد طريقة سهلة/معقولة يمكن الاعتماد عليها ، فالاكسس يعمل على سطح المكتب ، ولا عنده مزاج صوب الويب 🙂 نعم ، تستطيع عمل برنامجك كاملا بالاكسس ، ثم تقسمه الى واجهة وفيها جميع الكائنات ، والخلفية فيها الجداول فقط ، ثم تصدر جداول الاكسس الى قاعدة بيانات تعمل على الانترنت ، سواء mySQL او SQL Server او .... ، ثم تربط الواجهة بقاعدة البيانات الجديدة ، ويُصبح برنامجك يعمل على: واجهة اكسس (لا مو متصفح الانترنت) وجداول mySQL او SQL Server (طبعا سيكون هناك عمل بعض التغييرات المطلوبة ، وخصوصا في بعض الاستعلامات) ، وتكون لازلت في بيئة الاكسس 🙂 جعفر

وعليكم السلام 🙂 لازم نشوف الكود خلف زر فتح النموذج ،لأن النموذج اذا مفتوح ، ما تقدر تفتحه مرة اخرى (إلا بطريقة خاصة) ، فيمكن في الكود امر يطلب من النوذج ان يفتح هكذا !! او يمكنك التاكد اذا النموذج مفتوح عن طريق الامر IsLoaded ، ان لا يعطي الامر لفتحه مرة اخرى 🙂 جعفر

السلام عليكم 🙂 الله يذكرك بالخير ان شاء الله اخوي هاوي ، سواء كنت معانا في المنتدى بإسم آخر (ان شاء الله ) ، او انك تتابعنا من بعيد 🙂 رجعت لهذا الموضوع لأهميته وعلشان انشط ذاكرتي (دواء الزكام يدوخ 😁) ، وحبيت ان اشكرك عليه ، وكما قلت لك : جعفر

اخي حمدي 🙂 انصحك قراءة المشاركات التالية (ومافي داعي تقرأ بقية الموضوع) ، اللي اتكلم فيها عن طريقة معرفة اخطاء البرمجة واهمية تنسيق الكود ، وبالتالي يقلل من اخطاء المبرمج : . . . الظاهر كان عندك كود شغال ، وقمت بإضافة اجزاء عليه وبدون ان تغلق الجُمل الثلاثة اللي تحتها خط !! . انا اوقفت اسطر المربع الاصفر اللي فوق ، لأنه تكرار لنفس الاسطر في المربع الثاني ، وجميع السطور اللي اوقفتها ، وضعت امامها j ' حتى تتعرف عليها ، واوقفت هذا السطر ، لأنك لم تضع مكتبة الوندوز الخاصة بها : 'j SetForegroundWindow Application.hWndAccessApp . لا اضمن ان الكود يشتغل ، فلم ولا اعرف طريقة تشغيله ، وانت فقط تستطيع التجربة Private Sub send1_pdf() On Error Resume Next Me.y2.Enabled = False Dim IEE As Object Dim SQL As String Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim Mytoname As String Dim stname1 As String Dim MyFile As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("email") rs.MoveLast: rs.MoveFirst Dim IE As Object DoCmd.RunCommand acCmdSaveRecord If Nz(DCount("SelectRow", "email", "SelectRow = 'R'"), 0) = 0 Then MsgBox "يجب اختيار المرسل اليه اولا", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If Me.myname.SetFocus If IsNull(Me.msg) Then MsgBox "لايوجد نص للارسال", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If If IsNull([subemail].Form![phone_number]) Then MsgBox "لايوجد رقم هاتف", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & "الشهادات" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" Call SendKeys("~", True) 'j If Not rs.BOF And Not rs.EOF Then 'j rs.MoveFirst 'j While (Not rs.EOF) 'j If rs.Fields("SelectRow") = "R" Then 'j Mytoname = rs.Fields(0) 'j stname1 = rs.Fields("toname") Dim strMSG As String strMSG = "*المرسل : " & Me.myname.Value & "*" & vbCrLf & vbCrLf & "*" & Me.sub1.Value & "*" & vbCrLf & "*" & vbCrLf & "*" & Me.msg.Value & "*" Debug.Print strMSG Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" & ReplaceLineBreaks(strMSG), vbMinimizedFocus If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If rs.Fields("SelectRow") = "R" Then Mytoname = rs.Fields(0) stname1 = rs.Fields("toname") MyFile = CurrentProject.Path & "\الشهادات\" & "شهادة" & "-" & Mytoname & "-" & Me.y2.Column(0) & ".pdf" DoCmd.OutputTo acOutputReport, "" & Me.y2.Column(0) & "", "PDFFormat(*.pdf)", MyFile, False, "", , acExportQualityPrint Pause 2 SendKeys "~" ' إرسال المرفق إن وجد If Not IsNull(Me.attach1) Then SendKeys "+{TAB}" SendKeys "~" Pause 2 SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات SendKeys "{UP}" ' لفتح الكاميرة SendKeys "{UP}" ' لإرسال مستند SendKeys "~" Pause 2 SendKeys Me.attach1 'like "D:\OneDrive\Print\001.pdf" SendKeys "~" Pause 2 SendKeys "~" SendKeys "{NUMLOCK}", True End If Pause 2 ' إزالة علامة الصح من أمام الرقم DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE email SET[SendStuts]='تم الارسال' , SelectRow ='T' WHERE [ID]=" & Mytoname DoCmd.SetWarnings True End If rs.MoveNext Wend End If SendKeys "{NUMLOCK}", True rs.Close Set rs = Nothing Set IE = Nothing Set IEE = Nothing ' إعادة التركيز لبرنامج الأكسس 'j SetForegroundWindow Application.hWndAccessApp MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = -2147467259 Then ' ما قادر يركز على شاشة الواتسأب Resume Next Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description, , "send_Click" End If Resume HandleExit Set rs = Nothing Me.y2.Enabled = True Me.y2 = "تم ارسال الشهادات بنجاح" End Sub جعفر

اخوي محمد ، الملف المرفق يختلف في هيئته وتنسيقه عن الملف الاصل !! علشان يشتغل برنامج احوي ابو ابراهيم ، ونجري تعديلات عليه ، رجاء يكون ملفك بنفس الصغة والتنسيق السابق 🙂 جعفر

طبعا وجودك كإداري ما مفروض يُنقص شيء من ابداعاتك الفنية ، فنحن بإنتظار المزيد منها ان شاء الله 🙂 جعفر

السلام عليكم 🙂 اخوي موسى @Moosak هذا تشريف للموقع والاعضاء ، وانت اهل لذلك ، فأهلا وسهلا بك 🙂 جعفر

نعم ، ويجب ان تكون اسماء الحقول متسلسلة في مجموعاتها ، مثلا لاسماء الاشخاص استخدم A_001 و A_002 بينما لأرقامهم استخدم B_001 و B_002 (عملية تنظيمية وجدا مهمة) ، لأننا قد نقوم بتعبئتها عن طريق حلقة دوران ، فنحتاج الى التسلسل ، ولكن يجب ان تكون عندك طريقة لإخفاء الحقول التي لا تريدها ، وتكبير وتصغير الحقول حسب عددها وحسب عرض الصفحة ووو 🙂 هذه امثله : .

وعليكم السلام 🙂 النسخة 6 والاخيرة من VisualBasic صدرت في سنة 1998 ، وبعد 10 سنوات (اي سنة 2008) توقفت مايكروسوفت من دعم هذا البرنامج!! فلماذا تريد الرجوع الى برنامج ادى دوره وتقاعد 🙂 المنتدى فيه اقسام برمجية حديثة ، مثل vb.net من هنا https://www.officena.net/ib/ فيمكنك الاستفادة منها ، وولكن لا تنسى ان ترجع لنا بين الفترة والاخرى علشان ما ننسى بعض 😁 جعفر

تفضل 🙂Encode_Decode.zip

هذه الفروقات بين الهاوي والمحترف 🙂

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

تصدق اخوي ابوخليل ، انا الى الآن ما اكتب اسماء الكائنات ، وانما اعمل لها نسخ ولصق ، وخصوصا اسماء الجداول والاستعلامات والنماذج ، لأني مريت بتجربة اخوي حمدي 🙂 جعفر

شكرا اخوي خالد ، ذكرتني بايام زمان 🙂 جعفر

سلامات ، ونصيحة: لا تبرمج اثناء تناول دواء الزكام 😁

أَتَرَوَّحُ أترسم اترح ولا اتروع .. فالأَسْبَابُ والأَلْبَابِ والرباب بيد الارباب

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

وعليكم السلام 🙂 برنامجك متعوب عليه ، شكرا لك 🙂 اذا تسمح لي بهذه الملاحظة 🙂 اعدادت الاكسس عندي تمنعني من تشغيل البرنامج اذا فيه خطأ في مكان في الكود ، وعند عمل Compile ، ارى الاخطاء واُصلحها 🙂 الكود في برنامجك ما اشتغل عندي ، فقمت بمحاولة تعديل الكود ، واذا بالمشكلة الرئيسية عندك هي تنسيق الكود ، مما يجعلك تدوخ وتتلخبط !! اول ما تعمل تنسيق االكود عن طريق الضغط على زر Tab من لوحة المفاتيح Keyboard ، فانت تعمل "مسافه بادئه" indent ، وبها تجعل كل مجموعة من الاكواد داخل بعضها البعض ، والتنسيق يسهل عليك معرفة مكان الخطأ : حلقة الدوران For i : الامر if : الامر if المضمن داخل if اخرى : >> . وقد قمت بتعديل الكود في برنامجك الاصل ، وارفقته في مشاركتك الاولى 🙂 جعفر

هههههه العتب على الادوية اللي تدوخ 😁 انا ملاحظ من يوم بدأت اخذ هذه الادوية (من حوالي 4 ايام) ، ومشاركاتي واجاباتي مقضومة وتحتاج الى تعديل وإعادة نظر 😁 ادوية الزكام لازم يكتبون فيها تنبيه ، مو فقط لا تسوق السيارة بعد اخذ الدواء ، وانما انتبه لبرمجتك كذلك بعد اخذ الدواء 😁 جعفر

وعليكم السلام اخوي حمدي 🙂 لا لا لا ، هاي مو مقبولة منك !! بما انك حاولت حل المسألة بنفسك ، اكيد بعدة محاولات ، واخذ منك وقت ، فليش تبخل علينا بوقتك وما تخبرنا تفاصيل طلبك ، وشو المطلوب ، وشو رسالة الخطأ !! الاعضاء عندهم وقت معين في تصفح المنتدى والمساعدة ، ولما يشوفوا سؤال مبتور ، ينتقلون الى موضوع آخر ، ويبقى موضوعك معلق ويتأخر الرد 😞 معلش ، عتاب من اخ الى اخوه 🙂 جعفر

عفوا اخوي ابوخليل ، انت وضعت نفس الجملة في المكانين !! رجاء تخبرنا وين الفرق 🙂 جعفر

السلام عليكم 🙂 الله الله ، شو هذا الدلال 🙂 والنِعم منك يا ابو احمد 🙂 جعفر

السلام عليكم اخوي محمد 🙂 رجاء تابع هذا السؤال في الموضوع الاصل

خلاص اقنعتني 😁 كيف احصل على مسار وطريقة حفظك للمجلدات والملفات ، فالمعلومات في الجدول لا علاقة لها بمسار واسماء الملفات اللي ارسلتها !! جعفر

اها ، يعني طريقة كلمة السر اشتغلت 🙂 وهذا رابط ان شاء الله يحل مشكلتك جعفر