ابو عارف

اخي محمد: الاكسس 2013 يمكنه تحقيق المراد حسب ارشادات الرابط التالي https://translate.google.com.kw/translate?hl=ar&sl=en&u=http://www.groovypost.com/howto/word-excel-2013-save-to-pdf-password-protect-documents/&prev=search

و تعلمت منك اكثر من ال open args منهم اليوم في موضوع سابق (معرفة لغة الاكسس برمجيا) استاذي الغالي! بريدي الالكتروني باسم كنعان و كنعان كان من اعز اصدقائي وملكية بريد الالكترون يرجع للهو اساسا و نحن كنا كاخوان و انا مسجل باسم كنعان في اكثر من منتدى ولكن وللاسف بعض اسباب اجبرني نسيلن اسمه وتغير اسمي او تسجيل باسم آخر "ابوعارف" او "ابوشفيق" عند وجود عضو آخر باسم "ابوعارف" مسبقا. ابد، نحن اخوان تحياتي......

السلام عليكم و رحمة الله و بركاته اخي حسين قبل روئية موضوع الجديدة ، رفعت مثال آخر من البرنامج و ارفعه هنا ايضا في نهاية المشاركة و التعديل هذا بناءا على اشارة استلذ رمهان (اباجود) الى عدد اصناف ، زيادة اصناف ممكنة و سهل جدا من نفس نماذج ثلاثة لا اكثر ولكن من المعروف وضع ازرار بإسماء اصناف من اجل سرعة فى اختيار الصنف في حالة هذا يجب لا يتجاوز عدد ازرار من 20 الى 30 زر ، لنفترض جعلنا صفحة كاملة زراريز يبلغ عددهم 200 مثلا ، من الصعب حصول على صنف المطلوب بين 200 صنف اكيد يرجع سهولة ايجاد الصنف من خلال قائمة عادية و البحث بجزء اسم الصنف . 54Items.rar و من اجل احتفاظ بازرار و ا البحث بجزء الاسم، سيكون تطبيق الفكرة على مثال التالي ان شاء الله .

يا سلام يا ابا جود! هذا ما يسمونها بلاغة ، بالضبط هذا ما كنت ابحث عنه لازائد ولا ناقص. جزاك الله الخير الاخ / Yms12 انشيء وحدة النمطية بالكود التالي Public Const LOCALE_ILANGUAGE As Long = &H1 'language id Public Const LOCALE_SLANGUAGE As Long = &H2 'localized name of lang Public Const LOCALE_SENGLANGUAGE As Long = &H1001 'English name of lang Public Const LOCALE_SABBREVLANGNAME As Long = &H3 'abbreviated lang name Public Const LOCALE_SNATIVELANGNAME As Long = &H4 'native name of lang Public Const LOCALE_ICOUNTRY As Long = &H5 'country code Public Const LOCALE_SCOUNTRY As Long = &H6 'localized name of country Public Const LOCALE_SENGCOUNTRY As Long = &H1002 'English name of country Public Const LOCALE_SABBREVCTRYNAME As Long = &H7 'abbreviated country name Public Const LOCALE_SNATIVECTRYNAME As Long = &H8 'native name of country Public Const LOCALE_SINTLSYMBOL As Long = &H15 'intl monetary symbol Public Const LOCALE_IDEFAULTLANGUAGE As Long = &H9 'def language id Public Const LOCALE_IDEFAULTCOUNTRY As Long = &HA 'def country code Public Const LOCALE_IDEFAULTCODEPAGE As Long = &HB 'def oem code page Public Const LOCALE_IDEFAULTANSICODEPAGE As Long = &H1004 'def ansi code page Public Const LOCALE_IDEFAULTMACCODEPAGE As Long = &H1011 'def mac code page Public Const LOCALE_IMEASURE As Long = &HD '0 = metric, 1 = US '#if(WINVER >= &H0400) Public Const LOCALE_SISO639LANGNAME As Long = &H59 'ISO abbreviated language name Public Const LOCALE_SISO3166CTRYNAME As Long = &H5A 'ISO abbreviated country name '#endif /* WINVER >= as long = &H0400 */ '#if(WINVER >= &H0500) Public Const LOCALE_SNATIVECURRNAME As Long = &H1008 'native name of currency Public Const LOCALE_IDEFAULTEBCDICCODEPAGE As Long = &H1012 'default ebcdic code page Public Const LOCALE_SSORTNAME As Long = &H1013 'sort name '#endif /* WINVER >= &H0500 */ Public Declare Function GetThreadLocale Lib "kernel32" () As Long Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Public Declare Function GetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" _ (ByVal locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String, _ ByVal cchData As Long) As Long Public Function GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal dwLCType As Long) As String Dim sReturn As String Dim r As Long r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn)) If r Then sReturn = Space$(r) r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn)) If r Then GetUserLocaleInfo = Left$(sReturn, r - 1) End If End If End Function ثم في النموذج انشيء 21 مربعات نص و سميها من Text1 الى Text21 انشيء زرالامر و الصق هذالكود في حدث عند النقر Dim LCID As Long LCID = GetSystemDefaultLCID() Text1 = GetUserLocaleInfo(LCID, LOCALE_ICOUNTRY) Text2 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTANSICODEPAGE) Text3 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTCODEPAGE) Text4 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTCOUNTRY) Text5 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTEBCDICCODEPAGE) If Len(Text5) = 0 Then Text5 = "Sorry, Windows 2000 only" Text6 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTLANGUAGE) Text7 = GetUserLocaleInfo(LCID, LOCALE_IDEFAULTLANGUAGE) Text8 = GetUserLocaleInfo(LCID, LOCALE_ILANGUAGE) Select Case GetUserLocaleInfo(LCID, LOCALE_IMEASURE) Case "0": Text9 = "0 - Metric system is used" Case "1": Text9 = "1 - U.S. system is used" End Select Text10 = GetUserLocaleInfo(LCID, LOCALE_SCOUNTRY) Text11 = GetUserLocaleInfo(LCID, LOCALE_SENGCOUNTRY) Text12 = GetUserLocaleInfo(LCID, LOCALE_SENGLANGUAGE) Text13 = GetUserLocaleInfo(LCID, LOCALE_SINTLSYMBOL) Text14 = GetUserLocaleInfo(LCID, LOCALE_SISO3166CTRYNAME) Text15 = GetUserLocaleInfo(LCID, LOCALE_SISO639LANGNAME) Text16 = GetUserLocaleInfo(LCID, LOCALE_SABBREVLANGNAME) Text17 = GetUserLocaleInfo(LCID, LOCALE_SLANGUAGE) Text18 = GetUserLocaleInfo(LCID, LOCALE_SNATIVELANGNAME) Text19 = GetUserLocaleInfo(LCID, LOCALE_SNATIVECTRYNAME) Text20 = GetUserLocaleInfo(LCID, LOCALE_SNATIVECURRNAME) If Len(Text20) = 0 Then Text20 = "Sorry, Windows 2000 only" Text21 = GetUserLocaleInfo(LCID, LOCALE_SSORTNAME) If Len(Text21) = 0 Then Text21 = "Sorry, Windows 2000 only" ملحوظة:- يبدو الكود مخصص للويندوز 2000 ولكن حسب تجربته يعمل في ويندوز سفن ايضا و باقي انواع ويندوز.. الله اعلم بالتوفيق

السلام عليكم و رحمة الله و بركاته بلا شك ردودكم و مشاركاتكم اسطر قيمة بنسبة لي يا استاذ ابا جود سواء قبل او بعد الان و ابا شفيق هذا جسب مساحة مخصصة للازرار في نموذج من قبل الاخ جسين’يمكن تمدد نماذج ثلاثة هذا الى اسفل نموذج حتى تكفي 54 صنفا او اكثر لان كل نموذج فرعي يمثل عمود في نموذج الرئيسي، مثل المثال في المرفق و افكارك تعجبني بعد 54Items.rar اخوكم ابو عارف

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

تفضلوا احبائي بامكانكم الان اضافة اصناف من خلال مربعات في اعلى يمين النموذج الملف للاستاذ حسين For Mr_Hosain.rar و هذا للاستاذ القعر ForMr_Qaar.rar

السلام عليكم اخي الكريم حاول تحويل قاعدة بيانات الى الاكسس 2003 قبل رفع حتى يستطيع اخوانك في المنتدى مساعدتك انظر التعديل، بحث بطريقتين بالتوفيق TTTT.rar

السلام عليكم و رحمة الله و بركاته اخي ابو جود جربت الوحدة النمطية بعد تعديل بسيط ، تغير كلمة Private الى Public ولكن وجدت يعرض نوع لغة تنسيق في نظام و من البداية انا كنت في حاجة للمعرفة لغة الاكسس ما لاعلاقة له في اعدادات المحلية في النظام، ولكن كما قلت في مشاركة سابقة عدم توافر كود او وحدة النمطية للتحديد لغة الحالية الاكسس.لزمني الامر نسيان تلك المشروع و و اما اختلاف نسخ الاكسس من السهل معرفة النسخة ، و سبب الآخر هو عدم امكانية عمل Sendkeys بعد اقفال البرنامج من التعديل كود او وحدة النمطية للكشف عن نوع لغة System Locale (هذا ما افتكرت امس انها هي) ولكن بعد تجربة وجدت انها للكشف عن نوع لغة تنسيق الجهاز مثل اسماء مجلدات ، نوع ارقام ،مربعات حوار و غيرهم و الغرض : من المعروف ان اختيار لغة انجليزي في System Locale يتحول احرف لغة العربية الى رموز في اكواد vba و يعرض رسائل خطاء عند ما يكون اسماء عناصر التحكم او تسميات باللغة العربية ، حبيت انتباه المستخدم برسالة ليقوم بالتغير System Locale حسب تعليمات موجوة في القاعدة. و بعد بحث وجدت وحدة النمطية في احد مواقع الاجنبية يرجع خصائص تالية في النظام و اخيرا اشكرك مرة اخرى استاذ ابا جود موفق و دائما الى الامام. اخوك ابوعارف

اخي القعر/ انظر التعديل على الشق الثاني و الثلث من المطلوب اما الشق الاول ، جاري عمل عليه بالتوفيق برنامج مطعم (4).rar

ولك بمثله تفضل اخي تم تعديل على الشهر و السنة حتى يرجع سنة 2015 في شهر واحد 2016 و هكذا بالتوفيق حوافز ال 55%.rar

و لك تحية للايجاد سجل ضمن مجموعة سجلات الكود التالي: Dim rst As Recordset Set rst = Form.RecordsetClone rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2] If Not rst.EOF Then Bookmark = rst.Bookmark ملحوظة: ID و Code اسماء الحقلين و Text1 و Text2 اسماء تكست بوكس او ارفق المثال للتطبيق عليه بالتوفيق

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

تفضل اخي التعديل حسب 26 سجل او اقل. Both_Database.rar ابو عارف

السلام عليكم و رحمة الله و بركاته اخي هاني! اولا عليك كتابه اسماء كائنات كـ جدول ، تقرير، نموذج.... بالانجليزي و اسماء حقول ايضا ثانيا عملت لك قاعدتين الاولى يتم تحديد عدد سجلات تقرير من خلال استعلام ، افتح استعلام في عرض تصميم لاحظ حقل الاخيرقم بتغير 20 الى عدد ما تريده ولكن اقل من عشرين و في القاعدة الثانية تتجكم بالعدد من خلال النموذج ، اكتب عدد سجلات مراد عرضه في تقرير في مربع ثم اضغط على الزر اما الاقرارفي اسفل النقرير، فلا داعي تدخل منك للكتابة عدد و اسم الاول والاسم الاخير هذا كله تتغير تلقائي مهما كان عدد سجلات و في جميع صفحات حوافز ال 55%.rar حوافز ال 55%.rar

السلام عليكم و رحمة الله و بركاته تفضل اخي حسين التعديل حسب ما طلبت ، ممكن تبديل بين كمية و المبلغ من خلال قائمة المنسدلة اوعند ضغط على مربع "المبلغ المدفوع" او ضغط على احد ازرار وجبات برنامج مطعم (4).rar

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

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

ولكن اين مرفق استاذ جعفر؟

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

وعليكم السلام الشكر موصول باذن الله و الحمد لله

شكر لله تفضل حبيبي ان شاء الله يكون حسب المطلوب برنامج مطعم.rar

السلام عليكم بعد إذن اساتذة اليك احد الحلول برنامج مطعم.rar

وعليكم السلام و رحمة الله و بركاته اليك المرفق بعد التعديل حوافز ال 55%.rar

السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الجنس]='" & [الجنس] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا على حسب اسم المعرف و الشهر اذا تنسيق حقل الشهر نص Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]='" & [الشهر] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا اذا نتسيق حقل الشهر رقم Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]=" & [الشهر] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub بالتوفيق