jjafferr

الشرح عن طريقة عمل الامر iif في الاستعلام ، ولكني عملتها في VBA وكنت استطيع عملها في برنامج Notepad ، فقط لأشرح طريقة عملها بخطوات سهله ، ثم تجميعها (بحذف علامة _ ) وجعل الجملة في سطر واحد ، ثم اخذها الى الاستعلام 🙂

السلام عليكم 🙂 قائمة المواضيع طويلة ، ولكني سأطرح بعضها ، فرجاء رجاء قراءة المواضيع بالكامل . . . . . . جعفر

وعليكم السلام 🙂 شكرا لكم جميعا 🙂 سبق وان تم مناقشة الموضوع هنا (لا ادري اذا كلمة المرحلة الثانيه يغيّر من الموضوع) : رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ جعفر

وعليكم السلام 🙂 ايش رأيك بشرح مفيد عن الدالة iif ، وان شاء الله يساعدك في مرادك . جعفر

على الرحب والسعة 🙂 عذرا ما التفت الى مشاركتك اعلاه في حينها 🙂 جعفر

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

طريقة العمل : 1. اعمل الدوال التالية في وحدة نمطية باسم (مثلا) mod_Rename_and_Delete function Rename_a_File() Dim OldName, NewName OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. end function function Delete_a_File() Kill "D:\YOURDIR\NEWFILE.mdb" end function . 2. في الماكرو AutoExec ، لتنفيذ الدالتين اعلاه: . ولا تنسى ، ان الاكسس اول ما يقول بسم الله ، وقبل ان يفتح اي كائن آخر ، فهو ينفذ اوامر الماكرو AutoExec ، فإذا اردت ان تشير الى اسم حقل في نموذج ، فيجب عليك فتح هذا النموذج من هذا الماكرو ، وامر فتح النموذج يجب ان يكون قبل تشغيل الدوال اعلاه (طبعا اذا اردت ان تأخذ قيمة من النموذج، اما اذا فتح النموذج لا علاقة له بالدوال اعلاه ، فتقدر تفتح النموذج بين اي من اوامر الماكرو) 🙂 انا من الناس اللي اعتمد على هذا الماكرو في جميع برامجي 🙂 جعفر

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

وعليكم السلام 🙂 انا استعمل هذه الطرق: 1. Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. 2. Kill "D:\YOURDIR\NEWFILE.mdb" . الطريقة الثانية 1. Dim objFso as object Set objFso= CreateObject("Scripting.FileSystemObject") objFso.MoveFile "D:\testvbs\autorun.exe", "D:\testvbs\autorun.txt" 2. Dim FSO as object Dim myFile As String Set FSO = CreateObject("Scripting.FileSystemObject") myFile = "C:\Users\Dell\Desktop\Sample Data\file1.xlsx" FSO.DeleteFile myFile, True . جعفر

متابع 🙂

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

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

وعليكم السلام 🙂 في مثل هذه الحالات ، اول شيء يجب عمله هو عمل نسخة من البرنامج، حفظها في مكان آمن، وعدم لمسها لأي سبب 🙂 اقترح استعمال البرامج التالية على نسخة من برنامجك: . . واذا حبيت ان الشباب يساعدوك ، فيمكنك رفع برنامجك على احد مواقع الرفع المجانية ، وارفاق الرابط هنا 🙂 جعفر

%10 كل سنة

وعليكم السلام 🙂 اهلا وسهلا بك اخي في المنتدى ، وللاستفادة القصوى من المنتدى ، اقرا قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة الافضل ان ترفق عملك ، ثم تعطينا مثل على طلبك ، وان شاء الله الاعضاء ما بيقصروا 🙂 جعفر

ارفق اللي عملته علشان نساعدك ، لأنه العمل لازم يكون مفصل لطلبك 🙂

تفضل هذه المواضيع من الرابط الذي اعطيتك: . . . وتوقفت عن البحث في البقية

اخي محمد 🙂 هذا تعديل جدا بسيط ، وكان المفروض ان تحاول تعمله وتتعلم منه ، فهذا المنتدى للتعلم 🙂 على العموم ، تفضل 🙂 جعفر 1528.1.Reports_in_Combobox.mdb.zip

وعليكم السلام اخي انصاري 🙂 اهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة منتدى الاكسس لمساعدة المبرمجين ، فرجاء اخبارنا بالنقطة التي تريدنا نساعدك ، بعد ان تخبرنا وين وصلت في برنامجك 🙂 ويمكنك استعمال خاصية البحث ، والحصول على الكثير من المواضيع التي تشبه طلبك 🙂 جعفر

وعليكم السلام اخي adomar9911 🙂 واهلا وسهلا بك في المنتدى 🙂 لو بحثت في المنتدى ، ستجد الكثير من المواضيع الشبيهه بطلبك ، وهنا اضع بين يديك هيئة البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=بحث+اثناء+الكتابة&sa=Search وهذا مثال لي: جعفر

تفضل 🙂 كلما تعمل تقرير ، تلقائيا سيتم اضافته في القائمة . جعفر 1528.Reports_in_Combobox.mdb.zip

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

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

جرب هذا التعديل "delete * From الرئيسي WHERE ((detal1) Is Null) OR ((detal2) Is Null)" واذا ما حذف ، فرجاء تعمل استعلام عادي باسم qry_Delete_Records وتتأكد انه يحذف السجلات بطريقة صحيحة ، ثم اجعل الكود كالتالي: Private Sub الرتبة_Change() Dim de As String On Error Resume Next de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه") If de = vbYes Then docmd.openquery "qry_Delete_Records" DoCmd.Requery End If End Sub جعفر

وعليكم السلام 🙂 ما فهمت قصدك في سبب اختفاء النموذج !! اما بالنسبة الى الامر MoveandSize ن فيجب ادخال القيم تويبس Twips ، وهذا يعتمد على اعدادات الوندوز في جهازك ، 1 سم = 567 تويبس 1 بوصة = 1440 تويبس 1 بكسل = 15 تويبس وهذه الوحدة النمطية تعطيك حجم الشاشة بالبكسل: Option Compare Database Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type #If VBA7 Then Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long Dim hwnd As LongPtr #Else Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As RECT) As Long Dim hwnd As Long #End If Function GetScreenResolution() As String Dim R As RECT 'Dim hwnd As Long Dim RetVal As Long hwnd = GetDesktopWindow() RetVal = GetWindowRect(hwnd, R) GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1) End Function . جعفر