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

تفضل ........ Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format(Me.txtDateOfBirth.Value, "mm/dd/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) If DCount("*", "[tblTestCount]", myWhere) > 0 Then MsgBox "This data is present and it cannot be repeated": Exit Sub Test Dcout.mdb

استخدم القيم الموجودة في سجل الجدول ، والمفروض النتيجة = 1 🙂 جعفر

يجب استعمال دالة التاريخ Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And " myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And " 'myWhere = myWhere & "[DateOfBirth]=#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#" myWhere = myWhere & "[DateOfBirth] =" & DateFormat([txtDateOfBirth]) myWhere = myWhere & " And " myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function جعفر

الخطأ هنا أستاذي : Me.txtCount = DCount("*", "[tblTestCount]", myWhere ) ينبغي إضافة الأقواس للجملة mywhere هكذا : Me.txtCount = DCount("*", "[tblTestCount]", """& myWhere &""") والله أعلم

ما شاء الله تبارك الله ..... باقي خطوة وتصل ..... طيب ... الكود كما ذكرنا سابقا عبارة عن ثلاث مكونات : اسم الفانك : (متغيرنص التشفير , متغير الحقل المشفر )decode متغير نص التشفير متغير الحقل المشفر في الكودين يظهر كالتالي الكود القديم :::::::::::::::::::::::::::::::::: والكود الجديد ::::::::::::::::::::::::::::::::::::::::::: تفضل الكود .... Private Sub Form_Open(Cancel As Integer) If Nz(OpenArgs, "") = "Add" Then Me.Caption = "إضافة مستخدم جديد" Else UNUM = OpenArgs UN = XORDecryption("User", DLookup("[UName]", "Users", "ID_User = " & Nz(OpenArgs, 0))) UN2 = XORDecryption("User", DLookup("[fname]", "Users", "ID_User = " & Nz(OpenArgs, 0))) oldusr = UN End If End Sub

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

وعليكم السلام ورحمة الله وبركاته انظر للمرفق اخي العزيز فرق التاريخ.accdb

وعليكم السلام 🙂 لوسمحت ترفق برنامجك علشان نعدل عليه 🙂 جعفر

المشكله أنه لايوجد لديك ربط بين الجدولين TAB و TAB_RMZ .. عملتها لك بالطريقة الصعبة 😅 في استعلام اسمه TAB_Q بس طلع بطيئ بسبب الطريقة الملتوية اللي استخدمتها .. أرفقت لك الملف مع علمي بأنها ليست الطريقة المثلى .. وأترك المجال للخبراء الأشاوس MusndWZwayid 004.accdb

أعتقد أن المشكلة ليست في الدالة وإنما في الجدول ، فقد لاحظت أن الجدول يزيد مسافات في الخلايا هكذا : شي آخر .. أنا أحب أن أحل هذه المشاكل بطريقة أسهل كما في المرفق 😁 Test Dcout.mdb

تفضل اخي الكريم Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object Dim prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function Lock shift.rar تحياتي

وعليكم السلام 🙂 كود جدا جميل ، وجدا عملي 🙂 محتاج ترك مسافة بعد كل And : وقد تحتاج الى استعمال الدالة التالية للتاريخ (صدقني انها انقذتني مرات ومرات) : جعفر

من أي حقل يتم حساب عدد الرموز في جدول (TAB) ؟

السلام عليكم ورحمة الله تعالى وبركاته الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج فى هذا الجزء - فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم الأدمن اليا يا سلام يا سلام -البيانات فى الجداول مشفرة << -----------< تلبية ورغبة لطلب احبائى الكرام -تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين -نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله -نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال) -امكانية كشف نجوم كلمة المرور ما تيجو نشوف كده قد يكون هناك اخطاء سهوا منى وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل يسعدنى تلقى مقترحاتكم حول المرفق القاعدة مطروحة للتجربة ـــــــــــــــــــــــــــــــــــــــــــــ SecurityLevel group.accdb SecurityLevel group.mdb

على راسي🙆‍♂️

ما شاء الله أخي الاستاذ @ناقل علم و خلق و إبداع جزاك الله عني خيرا

يمكنك استعمال هذه المعادلة =LEFT(B1,4)-LEFT(A1,4)+1 حيث A1 و B1 بهما العامين من الأقدم للأحدث بالتوفيق

أحسن الله إليك

وهنا انا عملت مثال لنفس الغرض الذي اردته انت ، ولكن بشكل اوسع ، ولنموذج فرعي 🙂 جعفر

حياك الله 🙂 في الواقع فيه حيله للعمل بالطريقة التي تريدها واللي عملها اخونا ناقل مشكورا 🙂 الطريقة هي ان يكون عندك جدول محلّي على كمبيوتر المستخدمين فيه حقل بيانات مربع القائمة Listbox ، ويأخذ مربع القائمة بياناته منه ، ويكون هذا الحقل مفهرس في الجدول ، وكلما فتح المستخدم البرنامج ، تحذف بيانات الجدول المحلي وتعمل نسخ/الحاق للبيانات من جدول الشبكة الى هذا الجدول المحلّي 🙂 ولوسمحت تفتح موضوع جديد لإهتزاز النموذج ، واعطنا اكبر كمية من التفاصيل 🙂 جعفر

هذا ما قمت به اخي @ناقل UN = XORDecryption(DLookup("[UName]", "Users", "ID_User = " & Nz(OpenArgs, 0)), "User") UN2 = XORDecryption(DLookup("[fname]", "Users", "ID_User = " & Nz(OpenArgs, 0)), "User") ارجو الإفادة لأني لا أعلم إن كان صحيحاً أم لا ؟

جميعا بإذن الله يبدو أن حضرتك بعد ثلاثة أشهر من نشر الحل لم تقرأ هذه الملاحظة التي تجيب عن استفسارك الثاني بالتوفيق

المشكلة في إعدادات تنسيق التاريخ والمنطقة في لوحة التحكم يفضل اختيار منطقة عربية يكون تنسيق التاريخ بها اليوم/الشهر/السنة وهذا رابط الدعم في ميكروسوفت

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم يمكنك استخدام الكود التالي لاخفاء مربعات النص التي قيمتها = 0 Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If ctl.Value = 0 Then ctl.Visible = False End If Next ctl hid.rar تحياتي

جزاك الله كل خير ، هذا الذي أبحث عنه، لو تشرحه بالتفصيل أخي الفاضل، (كيف اتحكم في عدد الأسطر التي أريد في صفحة الطباعة ... الخ) رائع جدا

امين .... وان ارت الكود فهو جاهز بغيت انزلها بس لما شفت ردك توقفت ...

دعوة للتجربة test2.accdb test1.accdb

Sub Test() Dim r As Range, c As Range, s As String Application.ScreenUpdating = False With ActiveSheet.UsedRange .Columns(3).Interior.Color = xlNone .Columns(14).Interior.Color = xlNone For Each c In .Columns(14).Cells If c.Value = "" Then GoTo iNext With .Columns(3) Set r = .Find(c.Value, , xlValues, xlPart) If Not r Is Nothing Then s = r.Address Do r.Interior.Color = vbYellow c.Interior.Color = vbRed Set r = .Find(c.Value, , xlValues, xlPart) Loop Until r.Address = s Set r = Nothing End If End With iNext: Next c End With Application.ScreenUpdating = True End Sub

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

في الكود لا يوجد عندنا كائنات ، وانما: اسماء الكائنات في النموذج (مثل Me.ID) او التقرير او الجدول او الاستعلام ، وفهرسة هذه الكائنات تأتي/تُورّث من الجداول ، وينطبق عليها المادة #3 ، اوامر (مثل Docmd او Len او Split او Dlookup او ....) ، وهذه لا تفهرس ، اسماء المتغيرات ، وهذا ما تنطبق عليه المادة #4 ، وجميعها يُفهرس. بالنسبة الى برمجة الاكواد ، فأفضل طريقة لتعلمها ، هي حل المشكلة على ورقة ، سطر تحت آخر ، وبالتفصيل ، ثم تعطي كل كلمة/جملة اسم متغير (واحترافيا ، يجب ان يكون هذا الاسم يدل على نوع المتغير ، مثل User_ID ، وليس U فقط) ، ويجب ان تحصل على نفس النتائج كما كتبتها باليد 🙂 واما عن الاوامر ، فقد قام الاستاذ @صالح حمادي بجهد مميز في هذا الموضوع: جعفر

Microsoft Excel Worksheet جديد __.xlsm ?like this perhaps

وعليكم السلام 🙂 المبتدئ: يريد ان يعمل برنامج ، ويشتغل البرنامج حسب المطلوب ، المحترف: يريد ان يعمل برنامج ، ويشتغل البرنامج حسب المطلوب ، ثم تركيزه يصب على سرعة عمل البرنامج: تجربة قاعدة البيانات على ما لا يقل عن 10,000 سجل ، عمل العلاقات بين الجداول ، عمل فهرسة الحقول في الجداول ، وذلك بفهرسة جميع الحقول التي نعمل لها فرز او تصفية ، في اي مكان في قاعدة البيانات ، عمل فهرسة لجميع المتغيرات في محرر الاكواد ، بإستخدام Dim او Private او ... لهذه المتغيرات ، وافضل طريقة لإجبار المستخدم على العمل بها ، هو إضافة السطر الثاني: Option Explicit (طبعا بالاضافة الى السطر الاول) ، استعمال الاستعلام العادي بدلا عن استعلام الكود ، الاستفادة من وجود البيانات في النموذج ، وعمل المطلوب بها ، بدل ان يطلب البيانات مرة اخرى من الجداول بأوامر مثل Dlookup واخواتها ، وذلك لتقليل الضغط على الشبكة ، عدم استعمال الاوامر Dlookup واخواتها في الاستعلام ، إلا في حالات جدا نادرة ، واكيد اني نسيت ملاحظات اخرى 🙂 فالرد على سؤالك هو النقطة 4 🙂 جعفر

بل عدله انت ... وقم مشكورا بنشره هنا .... لتتعلم الطريقة .... نعم بالمحاولة تستطيع ذلك وبالنظر في التعديلات السابقة تستطيع معرفة التعديل المطلوب .... دائما وكنصيحة لك حاول قراءة الكود ... ومع التكرار تصبح استاذا لي ... بارك الله فيك ... واذا لم تصل لنتيجة . ابشر ...

تفضل .... لاني كنت مقفل كود عند الفتح ..... encoder replacement.rar

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

1-ليس من الضرورة رفع ملف يجتوي على اكثر من 1500 صف لان الماكرو الذي يعمل على صف واحد بستطيع العمل على الوف الصفوف 2- تم اختصار الملف الى حوالي 80 صف لمتابعة عمل الماكرو 3-الكود Option Explicit Dim sh As Worksheet Dim New_sh As Worksheet Dim lr%, Cont#, i%, x%, k% Dim SectionName As Range Const How_Many = 20 '+++++++++++++++++++++++++++++++ Sub Del_sheets() Application.DisplayAlerts = False For Each sh In Sheets If sh.Name Like "Section*" Then sh.Delete End If Next Main.Select Application.DisplayAlerts = True End Sub '++++++++++++++++++++++++++++++ Sub insert_Sheets() Del_sheets Set SectionName = Main.Range("D3:K3") lr = Main.Cells(Rows.Count, 3).End(3).Row Cont = (lr - 1) / How_Many If Int(Cont) <> Cont Then Cont = Cont + 1 End If Cont = Int(Cont) For i = 1 To Cont Sheets.Add(, Sheets(Sheets.Count)).Name = "Section_" & k * How_Many + 1 k = k + 1 SectionName.Copy With ActiveSheet.Range("D3") .PasteSpecial (xlPasteAll) .PasteSpecial (8) End With Next Application.CutCopyMode = False Main.Select End Sub '++++++++++++++++++++++++++++++++++++ Sub fil_data() Application.ScreenUpdating = False insert_Sheets x = 4 For Each New_sh In Sheets If New_sh.Name Like "Section*" Then Main.Range("D" & x).Resize(How_Many, 9).Copy New_sh.Range("D4").PasteSpecial (xlPasteAll) New_sh.Range("D4").PasteSpecial (8) x = x + How_Many End If Next Application.ScreenUpdating = True Main.Select End Sub 4-الملف مرفق Taksim_Ahmad.xlsm

السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم fDateFormat: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function وطريقة استعمال الكود كالأمثلة التالية: a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) او ("Select DISTINCT cen, [Date] From TTTT Where [Date]=" & DateFormat(Me.Idate)) او عدة طرق اخرى اليكم مثالين في البرنامج المرفق ، كيف ان الدالة DateFormat تعطيني نتائج صحيحة مباشرة ، بينما استخدام الطريقة التقليدية للتاريخ لا تعطيني النتيجة مباشرة: الجدول يحتوي على تاريخين ، 1-5-2015 و 2-5-2015 ، وهنا سنقوم بالتجربة على التاريخ 1-5-2015 (ويمكنكم استخدام التاريخ التاثي 2-5-2015) ، وللتأكد من نتائجنا ، عملنا استعلامين : و استخدام الكود في Recordset 1. مع استعمال الدالة DateFormate Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=" & DateFormat(Me.idate)) rst.MoveLast: rst.MoveFirst RC1 = rst.RecordCount والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 2. مع عدم استعمال الدالة DateFromat ، وانما استخدام الطريقة التقليدية للتاريخ: Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Me.idate & "#") rst.MoveLast: rst.MoveFirst RC2 = rst.RecordCount والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: استخدام الدالة Dcount 3. مع استعمال الدالة DateFormat RC3 = DCount("*", "tbl_T", "[Date]=" & DateFormat(Me.idate)) والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 4. مع عدم استعمال الدالة DateFormat ، ، وانما استخدام الطريقة التقليدية للتاريخ: RC4 = DCount("*", "tbl_T", "[Date]=#" & Me.idate & "#") والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: جعفر 84.DateFormat_Examples.mdb.zip

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

1-كنت نايم فى الاواخر ومكنتش مركز حلو حاضـــر جارى التعديل مش فاهم قصد حضرتك هههههه فى الجزء الثانى ان شاء الله لا تقلق هو مش مركز ومش قادر افهم قوى لكم ممكن بالتجربة افهم معلش فهمى تقيل جبتين صعيدى العفو منكم استاذى الفاضل انا اكيد غلط بش من قلة التركيــــز بآخر الوقت ومعلش سامحنى ان شاؤ يتم تدارك كل هذه النقاط ولكن لى سؤال اى الالوان اجمل الازرق ام الاحمر ههههههه هذا ذوق الاستاذ @SEMO.Pa3x

حقا أنت رائع .. ملاحظاتى إن جاز وسميتها ملاحظات 1-لم يتم التأكد عند التقدم بطلب تسجيل جديد من صحة البريد الالكترونى عند الخروج من الحقل (كتبت البريد بدون @) وتم قبوله. 2-يقبل كلمة مرور ولو كانت أرقام فقط. 3-كيف يتم التعديل على بيانات الأدمن (تغيير الإسم , كلمة المرور). 4-هل يتم دخول الأدمن أول مرة فقط باليوزر والباسوورد والمرات التالية يتم تجاهلهم؟ حيث اغلقت البرنامج وفتحته مرة أخرى وبدون إدخالهم تمكنت من الدخول طلبات التسجيل , نسيان كلمة المرور ,مراجعة الطلبات. 5-شاشة طلب التسجيل تظهر خلف الشاشة الرئيسية. شكلى مش فاهم

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