نجوم المشاركات

أهلا بكم.. لجعل الأمور أكثر سهولة ومرونة للمبتدئين.. الشفرة التالية تفي بالغرض! Option Compare Database Option Explicit Dim xp As Single, yp As Single '-- أخذ النقطة الأولية للفارة وإسنادها إلى متغير عام '-- بهذه االطريقة يمكن قبض النافذة من أي نقطة دون الشعور بعدم التركيز Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) xp = X yp = Y End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = Me.WindowLeft + X - xp t = Me.WindowTop + Y - yp Me.Move l, t End If End Sub أو هذه أيضا '-- هذه الطريقة تتماشى مع سلوك المستخدم '-- أغلب المستخدمين يقبض النافذة من المنتصف '-- الشعور بعدم التركيز لا يكاد يلحظ Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = (Me.WindowLeft + X) -(Me.WindowWidth/2) t = (Me.WindowTop + Y) - (Me.FormHeader.Height/2) Me.Move l, t End If End Sub Database1.accdb

ليش كل هذا العمل ، كل اللي عليك عمله هو انك تغير هذه الاعدادات: ولما تستخدم طريقة اخوي ابومحمد ، ففي الواقع اسهل لك ان تغير اعدادات النموذج والسلام 🙂 انا اعطيتك الامر ، ويجب ان تدُخل الارقام لكي يعمل الامر ، وهذا مثال من برامجي (لا عليك من كل الكود ، فقط انظر للسطرين الاخيرين) ، والافضل لك ان تبحث قليلا في مساعد الاكسس حتى تعرف الارقام التي يجب استعمالها ، والارقام هي بالـ Twips ، فاذا نظام الكمبيوتر عندك بالسنتيمتر ، تضرب الرقم في 567 ، واذا النظام بالبوصة فتضربه في 1440 : Right = المسافة من طرف شاشة الاكسس ، من اليسار ، Down =المسافة من طرف شاشة الاكسس ، من فوق ، Width = عرض النموذج ، Height = ارتفاع النموذج 'get the Form size H = Me.WindowHeight W = Me.WindowWidth '0 = metric t = 567 ' Open the Form DoCmd.OpenForm "frm_Items_DS", acFormDS Forms!frm_Items_DS.SetFocus DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "Receipt_Date" 'select the Form DoCmd.SelectObject acForm, "frm_Items_DS", False DoCmd.Restore 'DoCmd.MoveSize right, Down, Width, Height 'DoCmd.MoveSize (t * 0.1), (t * 0.1), 18000, 13500 DoCmd.MoveSize 1, 1, W - (W * 0.02), H - (H * 0.05) جعفر

هذه الطريقة لجعل النظام يعمل على النواتين: جعفر

ما ادري اذا كان هذا سؤالك : نص x رقم y DoCmd.OpenForm "FreaderL", , , "[x]='" & Cstr([y]) & "'" x رقم y رقم ولكن في حقل نص DoCmd.OpenForm "FreaderL", , , "[x]=" & Val([y]) x رقم طويل y رقم ولكن في حقل نص DoCmd.OpenForm "FreaderL", , , "[x]=" & Clng([y]) . اسألك على سالفة الرجوع الى مواضيع سابقة ، كيف توصل لها ؟ جعفر

تم اصلاح الحجم ، ورفعه هنا الصادروالوارد .rar

بنفس الطريقة ياازهر الحقل الرقمي كما اشرت انت اليه في مشاركتك الاولى ثم نضع الشرط النصي بعلامات التنصيص الخاصة بالحقول النصية DoCmd.OpenForm "FreaderL", WhereCondition:="[m]=" & [d] & "and [x]='" & [y] & "'" m & d حقول رقمية x & y حقول نصية

السلام عليكم ورحمة الله تجد في الملف المرفق الفرز من النموذج وتحويل البيانات بعد الفرز الى الاكسل بالتوفيق إن شاء الله 123.rar

وعليكم السلام-تفضل المشكلة لديك انك كنت عامل طريقة الحساب يدوياً وليس تلقائياً او الية !!! جدول توزيع النوبتجيات1.xlsx

احسنت اخي ازهر بالبحث واكتشاف الحل من مشاركات سابقة ولو انك وضعت الكود بعد الحل ليستفيد من يمر بالموضوع على كل حال للحقل النصي فيكون على النحو التالي DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" او ان نقفز البارمترات ونصرح بالشرط DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" ماشاء الله عليك يا ابا عبدالله السر في البخور 👻 وكل عام وانت بخير بمناسبة عيدك 🌹

السلام عليكم ورحمة الله إضافة الى ماتقدم به الأخ jjafferr هذا مثال قد يفيدك فقط اضغط على (((بحث عام )) عنوان المنوذج يكون شفاف ويمكن تنقلة في أي مكان من الشاشة بالتوفيق إن شاء الله Database99.rar

من تجربتي ، يجب ان يكون لهذا القرض رقم ايضا ، فقد يأخذ قرض للمواد الكهربائية ووو مثل عند اخونا @كريمو2 ، وحتى قروض النقد ، فإذا استوفى قيمة القرض ، قد يأخذ قرض آخر في الشهر التالي !! جعفر

جرب نسخة 2003 من المرجح أنها تعمل! Import Data from oracle Report.zip

مرحبا باخى واستاذنا العزيز جعفر ربنا ما يحرمنا منكم ومن تجاربكم التى نستفاد منها كثير جزاكم الله عنا كل خير طيب فى هذه الحاله سيتوجب عليه بانشاء جدول خاص للقروض لعدم تكرار بيانات المقترض واضافه كود المقترض لجدول القروض

الحقيقة اني فكرت فيها بعد وضع الرد السابق واعتقد انها بتكون مفيدة وايضا لوجمعت بين فكرتك وموضوع البحث يكون الفائدة اكبر بالتوفيق يا ابا عبد الله

لا يا رجال ، هاي الاكسس يكون وسيط فقط ، وش لي بدوخة البال !! وانما كنت افكر في حفظ عنوان الموضوع url في قاعدة البيانات ، ثم اخذ كلمات الموضوع (وبدون تكرار) وكذلك حفظها في حقل آخر ، طبعا هذا كله برمجيا 🙂 وبعدين ابحث في قاعدة البيانات ، واروح للموضوع مباشرة 😁 جعفر

يا هلا بمعلمنا ابو عبد الله فكرة جميلة واذكر كان فيه مشاركة سابقة يمكن تكييفها لذلك 👇

جرب هذا الكود Option Explicit Sub Split_cel() Dim i%, k%, St, mot, t% With Sheets("Sheet1") .Range("C2").CurrentRegion.ClearContents i = 2 Do Until .Cells(i, 1) = vbNullString mot = Trim(.Cells(i, 1)) St = Split(mot) For k = 0 To UBound(St) If St(k) <> vbNullString Then .Cells(i, 3).Offset(, t) = St(k) t = t + 1 End If Next t = 0 i = i + 1 Loop End With End Sub الملف مرفق Hakim.xlsm

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

عليكم السلام جرب هذة المعادلة =IFERROR(VLOOKUP(A2;التحميل!A:B;2;0);VLOOKUP(A2;مستودع!A:B;2;0))

لاني مشارك في النقاش ثم استخدم خاصية البحث انا افضل البحث في الموقع عن طريق محرك البحث جوجل مباشر وليس من المنتدى

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

جزاكم الله خيرا ... لقد ساعدتنى في مشكلة دوختنى

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(2,1/('تفاصيل الحجز'!$E:$E=$B6)/('تفاصيل الحجز'!$D:$D=$C6)/('تفاصيل الحجز'!$G:$G=D$5),('تفاصيل الحجز'!$A:$A)),"") كشف حجوزات الملاعب -ماكرو.xlsm

لا ما نسيت ، ولكني صرت متعود على ان IntelliSense يدلعني وامشي على خطواته 🙂

لا يا ابا عبد الله سبق اتناقشنا انت وانا في قفز البارمترات في هذا الموضوع 👇 شكلك نسيت 😀 كلها كم يوم ويتربطوا 👀 الله يكفينا شرهم أتوا ناري فقلت منون أنتم … فقالوا الجنّ قلت: عموا ظلاما

هذه السالفة ولا حتى تيجي على بالي 😁 الى هنا والكل كان يعرف ، بس انت افشيت السر واشرت بالـ emoji على اصحابنا 😁 جعفر

شكرا لردك اخ ابو محمد جزاك الله خيرا 🌺🌺

شكرا لردك اخ جعفر ساجرب الامر 🌺

يا سلام عليّ ، جاوبت في الماضي على سؤال المستقبل 😁 يالله بسرعة اعمل بخور وابخّر عمري قبل ما تجيني عين 🙂 جعفر

فكرة جميلة 🙂 جعفر

القي نظرة على هذا الموضوع ، والجدول بالذات ، فهاي آخر موديل من بنات افكاري لنفس طلبك🙂 جعفر

شكراً اخي جعفر

وعليكم السلام 🙂 الامر هو docmd.MoveSize Right, Down, Width, Height جعفر

وعليكم السلام 🙂 هذه امكانيات الاكسس ، في آخر نقطة للنماذج تجد الجواب مواصفات Access - Access (microsoft.com) جعفر

تم الحل شكرا

سيصبح الكود هكذا =DMax("date_catch";"TBCatch";"id_reader=" & [id_reader] & " And typy_cach='" & "catch" & "'")

= dmax("date_catch";"TBCatch";"id_reader=" & id_reader) LLL2.accdb

السلام عليكم التحويل الى الاكسل DoCmd.OutputTo acOutputQuery, "اسم الاستعلام ", acFormatXLSX, "", True, "", , acExportQualityPrint التحويل الى ملف pdf DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", "", True, "", , acExportQualityPrint عمليات فرز البيانات تكون من نفس النموذج الى تضع فيهم هذى الاكواد بالتوفيق إن شاء الله

تفضل هذا الموضوع

السلام عليكم ورحمة الله هذى مثال من موقع اجنبي يرسل الملفات والصور من الاكسيس الى اوتلوك مع نص الرسالة ...... يمكن تستفيد منه بالتوفيق إن شاء الله OutlookEmail1.rar