Foksh

مشكوووور يا غالي @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

يبدو أن المشكلة كانت في تنسيق الحقول التي ترغب في اجراء المقارنة عليها ، قمت ببعض التغييرات ، وتفضل الكود Private Sub Command14_Click() Dim i As Double Dim x As Double If IsNull(Me.Tmaden) Then MsgBox "قيمة Me.Tmaden فارغة!", vbExclamation Exit Sub End If If IsNull(Me.ts) Then MsgBox "قيمة Me.ts فارغة!", vbExclamation Exit Sub End If i = CDbl(Replace(Me.Tmaden, ",", "")) x = CDbl(Replace(Me.ts, ",", "")) If i < x Then MsgBox "لا يمكنك الحفظ !! فرصيد الصندوق غير كاف", vbExclamation Me.Undo Else Dim mySQL As String mySQL = "SELECT * FROM karz" Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(mySQL) rst.AddNew rst!no = tid rst!nam = Comn rst!datee = tdate rst!maden = Tmaden rst!gehat = comg rst!harkt = th rst!kfl = Tkl rst!fonl = Tfl rst!worl = Comkl rst!kf2 = Tk2 rst!fon2 = Tf2 rst!wor2 = Comk2 rst!notesm = notm rst!noteskl = notkl rst!notesk2 = notk2 rst.Update rst.Close Set rst = Nothing End If End Sub الملف المرفق قروض التجربة الحالية.accdb

وإياكم من الدعاء لكم النصيب الأكبر

من الواضح أنه لا يعتمد القيمة الفارغة للحقل TS و الحقل Tmaden ، جرب هذا التعديل Private Sub Command14_Click() Dim i As Variant Dim x As Variant If IsNull(Me.Tmaden) Then MsgBox "قيمة فارغة!", vbExclamation Exit Sub End If If IsNull(Me.ts) Then MsgBox "قيمة فارغة!", vbExclamation Exit Sub End If i = Me.Tmaden x = Me.ts If i < x Then MsgBox "لا يمكنك الحفظ !! فرصيد الصندوق غير كاف", vbExclamation Me.Undo Else Dim mySQL As String mySQL = "SELECT * FROM karz" Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(mySQL) rst.AddNew rst!no = tid rst!nam = Comn rst!datee = tdate rst!maden = Tmaden rst!gehat = comg rst!harkt = th rst!kfl = Tkl rst!fonl = Tfl rst!worl = Comkl rst!kf2 = Tk2 rst!fon2 = Tf2 rst!wor2 = Comk2 rst!notesm = notm rst!noteskl = notkl rst!notesk2 = notk2 rst.Update rst.Close Set rst = Nothing End If End Sub

وضعت لك الحل أخي الكريم ، في المشاركة القبل الأخيرة لي

اخي الكريم التغييرات ستحدث حسب موقع الحدث في التقرير ، وانت قمت باستدعاء الكود عند تحميل التقرير ، ولكن هنا انت لم تقم بفتح التقرير حتى يتم استدعاء الأمر أو الدالة . صح ؟؟ لذا عليك أولاً بفتح التقرير قبل كود تصدير التقرير الى PDF ، ثم اغلاقه اذا لم تكن بحاجة اليه . تفضل الكود Badge_Output = Application.CurrentProject.Path & "\Badges.PDF" stDocName = size DoCmd.OpenReport stDocName, acViewPreview DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Badge_Output, True, , , acExportQualityPrint DoCmd.Close acReport, stDocName

وجب تحديد نوع المتغير بنوعه لكل متغير منفصل Dim i As Integer, x As Integer

اعتذر منك أخي الخطأ في المتغير الذي حجزته Private Sub Command14_Click() Dim i As Integer Dim x As Integer i = Me.Tmaden x = Me.ts If i < x Then MsgBox "لا يمكنك الحفظ !! فرصيد الصندوق غير كاف", vbExclamation Me.Undo Else Dim mySQL As String mySQL = "SELECT * FROM karz" Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(mySQL) rst.AddNew rst!no = tid rst!nam = Comn rst!datee = tdate rst!maden = Tmaden rst!gehat = comg rst!harkt = th rst!kfl = Tkl rst!fonl = Tfl rst!worl = Comkl rst!kf2 = Tk2 rst!fon2 = Tf2 rst!wor2 = Comk2 rst!notesm = notm rst!noteskl = notkl rst!notesk2 = notk2 rst.Update rst.Close Set rst = Nothing End If End Sub

من خلال الكود الواضح انه سيقوم بالترحيل في كل الحالات ، لانك في الجملة الشرطية جعلت الشرط فقط التراجع وبعدها تم انهاء الجملة الشرطية ، واستكمل الكود وظيفته بجملة التحديث . جرب بعد Undo اكتب Else وانقل السطر End If لما بعد استعلام التحديث . بحيث اذا كان مبلغ القرض اكبر من الرصيد لايمكن ترحيل .. وإلا (Else) قم بترحيل البيانات .