ابو عارف

عزيزي ابو وائل تطبيق معادلات حسابية على حقل نصي خطاء الا نقل قيمة الى متغير ثم تطبيق معادلة على المتغير على العموم انظر التعديل في المرفق dot (1).rar

حل مشكلتان بسيط ان شاء الله بس ممكن ارفاق برنامج او جزء منه

عزيزي ابو جومانة السلام عليكم و رحمة الله و بركاته الدالة واضح و غير معقدة مثلا نريد جمع حقلين [Text1]+[Text2] نكتبه =nz([Text1],0)+nz([Text2],0) و هكذا

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

وعليكم السلام و رحمة الله و بركاته اخي الكريم استخدم دالة nz كما في المرفق ###.rar

تفضل عزيزي تم تعديل على الملف السابق كـ آتي اضافة حقل رقمي في جدول و جعلت مصدر مربع (ادخال المبلغ) اضفت مربع النص آخر على تنسيق افتراضي و عمل تزامن بين مربع النص و حقل الرقم باختصلر لاحظ سطر الاخير في الكود كل زر و اضافة سطر الاول في الكود عند الفتح النموذج و اضافة سطر الجديد في كود زر فاتورة جديدة تعديل علي برنامج مطعم 2.rar

السلام عليكم و رحمة الله و بركاته اخي الكريم انظر الاستعلام "بحث تاريخ وارد" تاريخ سحب جواز وسيم 10/10/2015 لم يظهر لان الفرق بين تاريخ السحب و اليوم 7 ايام ولكن لو غيرنا التاريخ هذا الى 8/10/2015 يظهر التاريخ هذا ما فهمت من السؤال بالتوفيق 1.rar

السلام عليكم و رحمة الله و بركاته التعديل حسب طلب الاخ حسين (صفحتين للمطعم) و حسب طلب الاخ وائل (عدم قبول صفر على اليسار الرقم و عدم قبول ". " اكثر من مرة عند ادخالهما من خلال مفاتح الشاشة) تعديل علي برنامج مطعم 2.rar

وعليكم السلام و رحمة الله و بركاته اليك العبارة =DCount("*","المدفوع","[م]=" & [م])

تفضل استاذي هذا هوالبرنامج مع تشغيل كافة وظائف Access_POS.rar

تفضل استاذي هذا هوالبرنامج مع تشغيل كافة وظائف Access_POS.rar

السلام عليكم اخي حسين اكبر مشكلة عندي في شروحات لانني لا اجيد كتابة لغة العربية ولاكن رغم ذالك احاول اوصلك فهم ان شاء الله فتح الجدول الاصناف على المعيار نوع الصنف ( مشروبات) و اختيار سجل الاول حسب المعيار اختيار زر الاول في نموذج مشروبات اذا وجد السجل على حسب المعيار المطلوب (لا اي سجل آخر) ثم الآن و بعد اختيار سجل من اصناف و اختيار زر من ازرار مشروبات، يغيرالاسم التوضيحي للزر المختار الى عمود الثاني في جدول الاصناف من السجل المختار (0) عمود 1 و (1) عمود الثاني في جدول اصناف، و وضع قيمة عمود الاول في علامة الزر ملحوظة: مكان علامة الزر في لسان تبويب "غير ذالك" علامة في العربي و Tag في الانجليزي. و اخيرا في حدث عند نقر الزر، تشغيل فنكشن ramhan الموجود في وحدة النمطية، و تتكرر العملية حتى نهاية سجلات و في حالة عدم ايجاد سجل متطابق، جعل خاصية "مرئي" للزر الى لا حتى الزر الاخير في النموذج. الان نرجع مرة اخرى للعلامة الزر ، عند ضط على الزر تخرج رقم في الرسالة هذا رقم رقم الصنف و المطلوب وضعه في مربع Tx ولكن لا ادري لماذا اكتف اللاستاذ رمهان على عرضه في الرسالة فقط، بعض تغيرات بسيطة في البرنامج يعمل بكفائة كاملة ماشاء الله عليه.

السلام عليكم اخي محمد كتابة كود في الاكسل يختلف من كتابته في الاكسس و حفظ الملف بالكود ميزة جديدة في اوفيس ، لهذا من الضروري عمل الكود في نفس اوفيس لا في 2007 و اكسل 2010.

ماشاء الله قمة روعة فكرة رائعة استاذنا و بالاخص السطر: c.Caption = rs(1): c.Tag = rs(0): و الباقي وظائف سهل ان شاء الله كـ ادخال كود الصنف في Tx عند اختيار الصنف و عرض صنف جديد مباشرا دون حاجة للاغلاق وفتح النموذج و فصل فاتورة جديدة من القديمة و هذا كلهم دون اوفس 2010 باذن الله اتمنى لك مزيد من التوفيق.

السلام عليكم عذرا اخي محمد لعدم ايجاد المطلوب ولكن ماذا لو حولت النموذج الى الاكسل ثم وضع كلمة السر عليه ، انا اعمل على اوفيس 2007 لكنت اعملت لك كود تصدير نموذج الى الكسل و كود آخر في الاكسل للتصديره بتنسيق pdf محمي.

اخي محمد: الاكسس 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