jjafferr

السلام عليكم اخي ma4fd2010 رجاء لا ترفق هذا الموضوع مرة ثانية ، خمسة مواضيع كافية من النسخ واللصق ، ولم ترد على استفسار الاعضاء: . جعفر

تمت الاجابة على طلبك في الموضوع الاصل 🙂 جعفر

. قصدك هذه الازرار: . السبب ان هذه الازرار لا تتفاعل مع اعدادات النموذج ، لأن هذه ازرار البرنامج وليست ازرار النموذج 🙂 وطريقة إخفائهم تتم عن طريق مكتبات الوندوز: Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_SYSMENU = &H80000 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Public Const SWP_FRAMECHANGED = &H20 Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long ' ************************************************** ' Public Function AccessTitleBar(Show As Boolean) As Long ' ' Calling it AccessTitleBar(0) ' This will Hide Acces Title Bar ' it will fill the screen, without a Title Bar without Buttons, so you will have to give the use a way to quit ' Dim hwnd As Long Dim nIndex As Long Dim dwNewLong As Long Dim dwLong As Long Dim wFlags As Long hwnd = hWndAccessApp nIndex = GWL_STYLE wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE dwLong = GetWindowLong(hwnd, nIndex) If Show Then dwNewLong = (dwLong Or WS_CAPTION) Else dwNewLong = (dwLong And Not WS_CAPTION) End If Call SetWindowLong(hwnd, nIndex, dwNewLong) Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags) End Function Public Function AccessTitleBarButtons(Show As Boolean) As Long ' ' Calling it AccessTitleBarButtons(0) ' This will Hide the Buttons: MINIMIZE, AXIMIZE, Close buttons on the Access Title Bar ' to Hide MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MAXIMIZEBOX Or WS_SYSMENU ' to Show MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MINIMIZEBOX ' ' to Hide them all: Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU ' Dim hwnd As Long Dim nIndex As Long Dim dwNewLong As Long Dim dwLong As Long hwnd = hWndAccessApp nIndex = GWL_STYLE Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU dwLong = GetWindowLong(hwnd, nIndex) If Show Then dwNewLong = (dwLong Or FLAGS_COMBI) Else dwNewLong = (dwLong And Not FLAGS_COMBI) End If Call SetWindowLong(hwnd, nIndex, dwNewLong) Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags) End Function . 1. اذا اردنا اخفاء الازرار ، فننادي دالة: AccessTitleBarButtons(0) 2. بينما اذا لا نريد الازرار ، ولا نريد تحريك البرنامج من شريط الادوات Toolbar ، فيجب اخفاء شريط الادوات (ويمكن استبداله في النموذج بمربع تسمية ، اذا لزم الامر) ، فننادي دالة: AccessTitleBar(0) المناداة تكون في ملف الماكرو AutoExec والذي يعمل تلقائيا لما يعمل البرنامج : . لتصبح الشاشة هكذا: جعفر example_semo.zip

شكرا جزيلا 🙂 جعفر

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

السلام عليكم 🙂 اخي ازهر ، رجاء تعطيني عنوان آخر للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال ، حتى اغيّر العنوان ولا يكون مخالف 🙂 جعفر

اي نسخة من الاكسس تشتغل عليها ، وهل عملت لها جميع التحديثات ؟ جرب الآن مشلكة التقرير.zip

ولا انا 🙂 ولا تستعمل صفر لهامش اليمين ، وانما لزيادة المسافة استخدم رقم مثل: 0.2 جعفر

استعمل هذا الحدث بدل الموجود عندك : Private Sub btn_search_Click() Dim FileDialog As Object With Application.FileDialog(3) .Title = "Please select a File" .Filters.Clear .Filters.Add "extensions", "*.xls, *.xlsx, *.txt" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.path = .SelectedItems(1) End If End With End Sub جعفر

وقمة البلاغة 🙂 شكرا اخوي خالد على المجاذبة الادبية ، بعيدا عن الكود 🙂 جعفر

كلام جميل ، والظاهر لهذا السبب عملوا Super Computer ، علشان يعرفون ماذا يُخَبِّـي لهم في دَفَّتَيْـهِ غَـدُ 🙂 جعفر

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

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

وعليكم السلام 🙂 في الاكسس 2010 ، كل هذه الاعدادات لها دور : . . . جعفر

عليكم السلام 🙂 اسمحوا لي ان اعطي ملاحظاتي : كود اخوي حلبي يحتاج (" " مسافة) قبل And ، لأن لو شفنا النتيجة تحت ، نشوف ان كلمة And ملاصقة للرقم 1 : . واما طريقتي ، فهي تفكيك المعيار الى اجزاء ، واللي سهل عملها : Private Sub BtnRequired_Click() Dim myWhere As String myWhere = "[LetterType]= " & [txtLetterType] myWhere = myWhere & " And" myWhere = myWhere & " [LetterID] LIKE '" & Format([txtDate], "yyyy\*\'") Debug.Print myWhere Me.txtResultRequired = DCount("*", "[tblLetters]", myWhere) End Sub . ولكي يعمل الكود ، يجب عمل مسافة قبل كل امر: . جعفر

في شيء في الحياة اسمه تجربة/تجارب ، في كثير من الاوقات تكون باهضة الثمن ، مو مبالغ فقط جعفر

السلام عليكم 🙂 اما انا فاستخدم البرنامج المجاني: وهذا ما تم اصلاحه: جعفر

هذه صورة من برنامجي ، اكسس 2010 ، والمكتبة اصبحت Miscrosoft Access xx Object Library : . وانا لا احب ان استعمل المكتبة ، لأنها لها علاقة بنسخة الاكسس ، واختيار المكتبة تسمى بـالربط المسبق Early Binding (مع ان هذه الطريقة اسرع ، ويساعدك الاكسس في اعطائك المتغيرات المتوفرة للأمر عند عمل: مسافة او نقطة او فتح قوس)، فإذا تمت البرمجة على النسخة الاقدم ، وتم استعمال البرنامج على النسخة الاحدث ، فيقوم البرنامج تلقائيا بتغيير المكتبة للأحدث ، واما اذا تمت البرمجة على النسخة الاحدث ، وتم استعمال البرنامج على النسخة الاقدم ، فلن يعمل البرنامج ، وسيعطيك خطأ !! ولتفادي هذه المشكلة ، فيمكننا عمل ربط متأخر Late Binding بتعريف المتغير بـ Object ، هكذا : Dim FileDialog As Object With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Open_a_File = .SelectedItems(1) End If End With جعفر

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

وعليكم السلام 🙂 جرب الامر بهذه الصيغة : جعفر

الحمدلله 🙂 بس يا ريت تخبرنا وين كانت المشكلة ، او كيف تم حلها ؟ احنا كذلك نريد ان نستفيد من اخطائنا 🙂 جعفر

اخوي مسفر 🥰 اعتذر عن التأخر في كتابة هذه الكلمات ، شكرا جزيلا على جميل قولك ، ولا اهانك الله 🙂 جعفر

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

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

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