essam rabea

الاخ ليث ليث هل هذا طلبك؟ Database.accdb

للأسف أنا ما عندى هذا المقاس من ورق .. حاول تقليل إرتفاع التقرير شوى شوى لحد ما تظبط معك

اقصد .. عندما يسأل أحد رواد منتدانا الكريم هذا السؤال مرة أخرى بعد عام او اكثر وتكون انت تعلم الاجابه وتجيبه سوف يقوم السائل بالرد عليك بمثل ما رددت أنت علىّ بعد الشكر والثناء وهذا مدح وليس ذم تقبل تحياتى

الأخ waelkhairk انت قمت بربط النموذج الرئيسى بثلاثة حقول بالنموذج الفرعى وهم recid و recdate و stuid ولكى تظهر البيانات فى النموذج الفرعى لابد من إستيفاء جميع هذه الحقول فى النموذج الرئيسى أرجو أن أكون اوضحت بالتوفيق

حبيبى ابو ياسين المشولي .. أعتذر إن كنت أجبت دون إستئذان

أخى ازهر عبد العزيز فقط ضع الكود بين علامتى تنصيص "BFEBFBFF000406E3"

الاخ الفاضل ازهر عبد العزيز معلش انا مش فاهم قوى .. هو الرقم هيبقى غير صحيح ازاى وهو موجود اصلا كقيمة إفتراضية لمربع النص

اخى الفاضل أولا قم بقياس الليبل بالمسطرة وبالمليمتر طولا وعرضا .. الليبل نفسه وليس الورق الملصوق عليه ثانيا قم بفتح Printing Preferences كما بالصورة ثالثا قم بإنشاء التقرير المراد الطباعة منه وحدد رابعا ضع جميع عناصر الطباعة على التقرير خامسا تابع الصورة ok ok ok أزل جميع زوائد التقريد عرضا وارتفاعا إن كانت هناك أى زيادات جرب ووافنى بالنتيجة والله الموفق

أخى حلبي .. المهم اللى تعرفه ما تنساه .. علشان لما السؤال يتسأل تانى وتجاوب انت يترد عليك بهذه الجملة

أخى سلمان الشهراني أنظر لهذا الحل لعله يفيد فى معرفة السبب

أخى نسيم الروح الروح جرب me.X.LEFT=1 * 1440 أو me.X.LEFT=1 * 567 بوصة أو سنتيمتر بالتوفيق

قطرة فى محيطكم أخى kanory

الأخ العزيز حسن بابكر .. قد تفضل أخوىّ العزيزان kha9009lid و ابا جودى بالرد عليك بكل ما يخص الموضوع من صلة سواء حساب عدد الكلمات أو عدد الحروف. ولذلك إن تفضلت علينا لا تفتح موضوعا جديدا لنفس السؤال .. يكفيك كتابة مثلا "للرفع" فى نفس الموضوع وبعد إذن أساتذتى قد طبقت أحد امثلتهم على برنامجك فتفضل عسى أن يفى بما طلبت. eta.zip

الأخ iibat من فضلك أشر بـ .. تمت الإجابة

أستاذنا الفاضل .. Ali Mohamed Ali .. لك خالص الشكر والتقدير

أخى العزيز ذو العلم الغزير ابا جودى اشمعنى يعنى اللينك ده ببلاش .. شوفو هيدفع كام وليك الربع

حبيبى ابا جودى الله يسهلو مفيش حاجة لأخوك أخوك ايه .. قصدى مفيش حاجة لجدو 😉

ابا جودى بالنص يا باشمهندز

إخوانى engyasin, حلبي, gelani

عجبنى الموضوع ده قلت أشاركه معكم بإختصار هو سكريبت لعمل مكان موثوق لملفات الأكسيس من مكان تشغيله .. بمعنى لو شغلته من Desk Top تقدر تفتح أى ملف أكسيس على Desk Top بدون ظهور Enable Content. ولو عندك فولدر لمشاريعك فى أى مكان سواء سى أو دى أو .... ضع هذا السكريبت داخله وشغل وخلاص بقى كل ما بداخل الفولدر منطقة أمان. إنشئ ملف نص بأى إسم وضع فيه ما يلى على أن تغير إمتداده الى vbs. Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\16.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If كما يمكن تفعيله للاكسيل والوورد والباور بوينت مع مراعاة نسخة الاوفيس لديك وتغيرها فى الكود: أوفيس 2019 : 16.0 أوفيس 2016 : 16.0 أوفيس 2013 : 15.0 أوفيس 2010 : 14.0 أوفبس 2007 : 12.0 أوفيس 2003 : 11.0 أظن أنه لا يوجد أحد أعضاء منتدانا الكريم يعمل على أوفيس XP 😊 عسى أن يفيد .. إذا اشتغل يعنى والله الموفق EAR TrustAnyWhere.zip

أخى gelani نفترض ان جميع مشروعات الأكسيس لديك تحفظها فى فولدر إسمه AccessProjects الموجود على درايف \:D وعاوزين نخلى الفولدر ده Trasted Location علشان نمنع ظهور Enable Content فى كل مرة نغير فيها إسم الملف أو نمسحة ونضيفة مرة أخرى أو ننشئ مشروع جديد ننشئ لملف نصى فى اى مكان ونجعل إمتداده reg ونسميه مثلا TrustedLocation.reg ونضع به الكود السابق وسيكون هذه المرة بالصورة التاليه TrustedLocation.reg Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1] "Path"="D:\\AccessProjects\\" "AllowSubfolders"=dword:00000001 "Description"="" "Date"="" نغلق ونحفظ الملف ثم نوقوم بفتحه دبل كليك يعنى وبكدة خلاص اى ملف اكسيس داخل الفولدر اللى إسمه AccessProjects الموجود على درايف \:D هيفتح بدون اى رسائل لتمكين الماكرو أرجو أن أكون أوضحت مرفق ملف الريجسترى منفصل وايضا ملف اكسيس لعمل الفولدر وكذلك تمكين الماكرو بالتوفيق TrustedLocation.zip EnableContent.zip

فتح الله عليك أخى kha9009lid

تفضل أستاذ jo_2010 عسى أن يكون المطلوب Objects Name.accdb

نعم اخى الفاضل

الاخ فادي العبد يجب ان تقوم بربط النموذج الرئيسى بالفرعى كما بالصورة بالتوفيق