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

لاحظ العمود المخفي L اظهره وغير بالخلايا ما تريد تحياتي

ايش رايك بإجابة صامته . . . جعفر 956.خدمات.accdb.zip

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

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

وعليكم السلام ورحمة الله وبركاته حياك الله اخي أبو زاهر استخدم نقل المؤشر قبل امر فتح النموذج هكذا: tr.SetFocus DoCmd.OpenForm "frm2 ", acNormal على كل زر في النموذج 1 :: تحياتي

تفضل يا أخي الملف مع المعادلة Split_Names.xlsx

اكتب فى العمود L ما تريد

ولكن كيف يمكن الإضافة الى القائمة يا أخي ؟

وعليكم السلام كل اللي تعمله هو: النموذج frm_Main ، اعمل حدث عند فتح النموذج ، واكتب فيه: docmd.maximize ، هذا الامر سيكون ساري المفعول لبقية نماذج البرنامج ، فلا داعي لكتابته في غير هذا النموذج الميزة في هذه الطريقة ، اننا نتلافى النماذج المنبثقة ومشاكلها ، فجميع النماذج تكون في حجم الشاشة. جعفر 957.جديد.mdb.zip

بوركت اخي الكريم

وعليكم السلام ورحمة الله وبركاته العفو اخي الكريم ضع في مربع التأخير2 : =IIf(Minute([lateness])>=30,"4:00",Format([lateness],"Short Time"))

كل الشكر والتقدير

السلام عليكم من المعروف ان الكلمات العربية في الكود ، تلخبط الكود ، فما نعرف اوله من آخره!! الطريقة في الرابط عبارة عن تجزأة الكود الى عدة اسطر ، فيسهل عمله ويسهل فهمه ، وخصوصا اذا كان بأكثر من معيار: جعفر

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

اتفضل طريقه الاستاذ جعفر.mdb

فعلا اجابة صامتة ولها المغزى المطلوب لم اتوقع ان المسافات له علاقة بظهور القائمة اشكرك استاذي المتميز جعفر , الله يوفقك ويسعدك

جرب هذا الرابط ، فإنه يقول بانه بإمكانك عمل mdw لبرنامجك ، وقد تستفيد منه: https://www.thegrideon.com/mdb-mdw-in-new-msaccess.html الاكسس الان بصيغة accdb وهو افضل من صيغة mdb ، والذي لا يدعم mdw !! هذا رابط فيه مرفق لشرح عملية الربط http://www.arabmoheet.net/aspnetforum/amf/651c2e3c-c4d8-4c05-bbc9-73c5c48d3356.aspx جعفر

لا توجد طريقة ، سوى الرجوع الى النسخ الاحتياطية Backup سابق ، ولا معنى للـ Backup على نفس الكمبيوتر ، فإذا عطل الهارد دسك ، خسرت كل شيء نعم هناك برامج لإسترجاع البيانات من الهارد دسك المعطوب ، ولكنها تعتمد على حالة الهارد دسك ، وهناك حالات لا يمكن استرجاع شيء منها جعفر

الأخ أحمد الرشيدي81 ممكن من فضلك الإجابة على سؤآلي السابق للحاجة مع جزيل الشكر ..

نحيل الموضوع للخبراء

السلام عليكم اذا اردناه بالكود اي بدون عمل مفتاح اساسي كيف يكون ؟؟ مع جزيل الشكر

اخي عبداللطيف شكرا على المثال , ولكن هل ممكن تعملها بالطريقه كما في مثالي الاول لان عندي نموذج اساسي وماتنفع الطريقة هذي معاي الله يسعدك

صديقي في حالتنا هذه يجب تكرار الاصناف اذا اردت عدم تكرار الاصناف ضع اسم الصنف مفتاح اساسي / مطلوب / التكرار غير مسموح سينتج خطأ عن ادخال الصنف اكثر من مرة بدل رسالة الخطأ من اكسس ضع الكود التالي / في حدث عند الخطأ Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3022 Then Response = acDataErrContinue MsgBox "هذه المادة موجودة بالفعل في هذه الفاتورة, يرجى التعديل", vbCritical, "تنبيه" End If End Sub

اولا يتم ادراج مربع غير منظم وفي مصدر عنصر التحكم هذا وحسب اسماء الحقول لديك

جرب هذه الطريقة لفتح البرنامج: افتح الاكسس (مو قاعدة بياناتك ، وإنما برنامج الاكسس) ، ثم اختار قاعدة بياناتك ، واختار Open Exclusive . ثم جرب قراءة الجدول. جعفر

كيف تفتح البرنامج؟ من على سطح المكتب عند النقر على مختصر البرنامج؟

انا ضعت الآن وما اعرف شو طلبك انت طلبت: والآن تقول سؤال: كيف تستعمل هذا البرنامج ، هل هو بصيغة mdb او mde ، وعند الدخول في البرنامج هل تُدخل اسمك وكلمة السر ، وهل تستعمل ملف المجموعات MDW ؟ جعفر

عملك صحيح 100% والسبب ان التسلسل في النموذج يبدأ بالرقم 3 ، هو لأنك ادخلت هذا السجل كثالث سجل في الجدول ، وهذا طبيعي. السؤال هو: لماذا تريد ان ترى حقل التسلسل ، اجعله مخفي وانتهى الموضوع اما اذا اردت ان ترى تسلسل لسجلات النموذج ، فيمكنك عمل: . وهذه الوحدة النمطية التي تعطي التسلسل في الاستعلام: Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function جعفر 953.test.accdb.zip

الأخوة الكرام السلام عليكم ورحمة الله وبركاته ... جزاكم الله خير الجزاء هذا برنامج مفيد ، ولكن للأسف فإن المصطلحات المستخدمة في مدارسنا تختلف عما هو مستخدم في مصر الشقيقة ، هل من طريقة لتعديل القائمة المنسدلة الخاصة بـ [ حالة القيد ] وتغيير مصطلحاتها تعديلا وحذفا وإضافة ... وجزى الله الأخ أحمد الرشيدي خير الجزاء .

وعليكم السلام هل هذا قصدك: جرب المرفق في الرابط التالي . او جعفر

1. نعمل استعلام خاص لمصدر بيانات النموذج ، واسميته qry_1 . 2. في حدث تحميل النموذج ، استعمل هذا الكود Private Sub Form_Load() Dim myCriteria As String myCriteria = "[A2]=1" myCriteria = myCriteria & " And [A3]=1" myCriteria = myCriteria & " And [A4]=1" myCriteria = myCriteria & " And [A5]=1" Me.TOTL = DCount("*", "qry_1", myCriteria) End Sub او Private Sub Form_Load() Me.TOTL = DCount("*", "qry_1", "[A2]=1 And [A3]=1 And [A4]=1 And [A5]=1") End Sub . جعفر 952.NBZ.accdb.zip

أخي محمد التميمي مرفق تطبيق يعينك على حاجتك باذن الله NA_Calculator.accdb

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية: Public Function HoursToMinutes(ConvHoursMinutes As Single) As Long Dim WazMinutes As Integer If InStr(1, Str(ConvHoursMinutes), ".") > 0 Then WazMinutes = Val(Mid(Str(ConvHoursMinutes), InStr(1, Str(ConvHoursMinutes), ".") + 1)) End If HoursToMinutes = Int(ConvHoursMinutes) * 60 + WazMinutes End Function وقم باستدعائها كالتالي في الحقل الذي تريد ظهور النتيجة فيه: =HoursToMinutes([YourField])

جـــــــــــــــــــــــــزاك الله خـــــــــــــــــــــــــيرا

نسخة من الملف بتنسبق 2003 protect non empty data with Pass word.xls

حياك الله الظاهر انك عملت تطريز على التعديل لكي يلائم بيئة شبكتك جعفر

تفضل اخي في المرفق فكرة user name , password مع امكانية التعديل اسم الدخول ahmad الرقم السري 1111 Book1.rar

جزاك الله خيرا وبارك فيك