Foksh

بالفعل .. وجهة نظر قوية معلمنا و أستاذنا الفاضل @ابوخليل

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

تفضل صديقنا العزيز ,, fatherAnd Son.accdb

أستاذ @kanory ، أشكرك جداً على مساهمتك الجميلة ، الفكرة حلوة ولكن هي تعتمد على تنزيل الصورة من المصدر وبعد ذلك يتم عرضها على أنها من مسار داخلي وليس من مسار خارجي URL .

جزاكم الله كل خير لمروروكم العطر أخونا @محمد حسن المحمد

اخي الكريم @سامر محمود ، أنا ما فهمتش كلامك ده منين .. 🧐 ده كلامي ، وجاوبتك بنفس المشاركة ( جدول الحركات ) كمثال 😊

يسعدني ويشرفني مرورك الكريم أستاذ @عبدالله المجرب 🥰

ومشاركة في توضيح الفرق بين نوعي المتغيرات المتغير من نوع Integer لتخزن الأرقام الصحيحة ( بدون أعشار ) ، بينما المتغير من نوع Double يستخدم لتخزين الأرقام العشرية ( بما في ذلك الأعشار ) .

مشكوووور يا غالي @kanory سأقوم بالتجربة غداً في العمل ، في المنزل ليس لدي انترنت 🤗

السلام عليكم ورحمة الله وبركاته.. كيف يمكن عرض صورة من خلال عنوان انترنت داخل النموذج 😅 ؟

تم تصدير ملف PDF بشكل طبيعي مع ظهور التاريخين rptRoshittaPharmacy.pdf

جميل جداً .. وبعد أذن أخي الكريم @alaa aboul-ela =DCount("[ID]","Table1")

تفضل مشاركتي البسيطة ، حيث Open_Key اسم الزر الذي ستستخدمه لتنفيذ الكود . Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub OpenKeyboard() Dim osVersion As String Dim command As String osVersion = GetOSVersion() If osVersion = "10" Then command = "osk.exe" Else command = "osk.exe" End If ShellExecute 0, "runas", command, vbNullString, vbNullString, 1 End Sub Function GetOSVersion() As String Dim osVersion As String osVersion = SysCmd(acSysCmdAccessVer) GetOSVersion = Left(osVersion, InStr(osVersion, ".") - 1) End Function Private Sub Open_Key_Click() OpenKeyboard End Sub وهذا مرفق للتجربة Keyboard.accdb مع العلم أنه تمت تجربة كود الأستاذ @Moosak ويعمل بكفاءة

هل التقرير مغلق عند تحويل التقرير الى PDF ؟ وفي اي زر تقوم بتحويل الى PDF ؟

تفضل صديقي العزيز .. هل هذا طلبك قاعدة بيانات.accdb ؟ تم انشاء استعلام فرعي مبني على الاستعلام الرئيسي والذي هو مصدر بيانات التقرير ، لعد السجلات دون تكرار باعتماد الحقل No ، كما في الكود التالي :- Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Long Set db = CurrentDb Set rs = db.OpenRecordset("SELECT COUNT(*) AS RecordCount FROM (SELECT DISTINCT [No] FROM Query1);") If Not rs.EOF Then recordCount = rs!recordCount Me.Text13 = recordCount End If rs.Close Set rs = Nothing Set db = Nothing

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

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

اخي الكريم اسعدك الله ،، في مثالك كتبت الرقم 400 وهو فعلاً أصغر من الرقم 4920000 التنسيق الرقمي للخانة هو مشكلتك 😊 جرب تكون قيمة القرض 4920001 😅

تأكد من ربط المفتاح الاساسي بين الرئيسي والفرعي

اخي الكريم ، إما أنك لم تتفقد جميع المشاركات والمرفقات ، أو أنك لم تقم بتوصيل المطلوب بشكل واضح

اخي الكريم ، أشكر لك صبرك على اسئلتي . عند التفكير في عملية النسخ للنصوص فإنه لا بد لك من مصدر وهدف لتحقيق الغاية ( المصدر النص المراد نسخه ، والهدف المكان المراد اللصق فيه ) هذا متفق عليه لا جدال فيه . من خلال الكود ما الذي يختلف عن هذا الحديث ؟؟؟؟؟

تفضل اخي محاولتي المتواضعة 123.accdb

اخي العزيز الخطأ ان اللأمر SetFocus ليس له اجراءات شرطية كما في الكود الذي كتبته انت ، فقط كما في التعديل التالي :-

شكراً لك أخي على التوضيح ، وصلتني الإجابة هنا . وعليه فأن DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdPaste يقومان بالمهمة التي اريدها ، ومن جهة الوسيط ، فهل لك أن توضح المقصود به

الخطأ في كود التركيز على الحقل الفارغ Me.Comb_User.SetFocus