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

الملف يعمل بصورة طبيعية وهذا رابط للملف على جوجل شيت

للإضافة استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ضع اسم الجدول هنا") rs.AddNew rs![Folde1]=[TextBox1] rs![Folde2]=[TextBox2] rs![Folde3]=[TextBox3] rs.Update rs.Close Set rs = Nothing لتعديل البيانات استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") rs.Edit rs![Folde1]=[TextBox1] rs![Folde2]=[TextBox2] rs![Folde3]=[TextBox3] rs.Update rs.Close Set rs = Nothing حذف سجل استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") rs.Delete rs.Close Set rs = Nothing لإستدعاء بيانات محدد الى النموذج استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") If Not rs.BOF Then ' عرض السجلات التي بها بيانات فقط rs.MoveFirst 'بيانات السجل الأول فقط [TextBox1] = rs.Fields(1) [TextBox2] = rs.Fields(2) [TextBox3] = rs.Fields(3) End If rs.Close Set rs = Nothing

لا اعلم اين الخلل عندك ولكن تفضل مثالك تم اضافة الوحدة النمطية والكود اليه printer2.accdb

الغ التثبيت من على الرقم ... هل هذا المطلوب 000000000000000000.xlsx

السلام عليكم ورحمة الله وبركاته وكل عام وحضراتكم بخير اولا احب ان ابدأ باعتذار عن موضوع السابق لعدم توضيح الطلبات بشكل اوضح واوجز (اتمني قبول اعتذارى) انا هنا معايا فورم هذا الفورم اريد ان استدعي البيانات من اكثر من جدول ولتسهيل الامر أنشأت استعلام بالجداول الثلاث انا انا اريد الاتى :- 01- فى رأس النموذج يوجد 2 كامبو بوكس واحد لرقم الموظف والاخر لاسم الموظف ( اريد تفعيلهم بحيث اذا فتحة القائمة يظهر لى اسم الموظفين او قائمة ارقامهم واستطيع البحث بداخلهم) 02-ان استدعى المعلومات للفورم من الاستعلام حسب الشرط وهو فى رأس النموذج اما اسم او رقم الموظف 03- افعل عمل مفاتيح التحكم فى النموذج في زيل النموذج (طلب اكواد لهم حتى يتم التحكم فى البيانات) فقط هذه الطلبات وأريد ان افهم لو شرح بسيط لكل كود فانا معايا خلفيه وان شاء الله ما اغلَبكم فى الشرح والفهم واظن ان هذا سيكون مرجع لكثير من طلبت العلم هنا والله الملف فى المرفقات Request.accdb

استاذي الفاضل محمد صالح فعلا الملف يعمل بصورة طبيعية وممتازة كانت هناك مشكلة في النت عندي الله يبارك في حضرتك اللهم ربي يحفظك ويمن عليك وعلى عائلتك الكريمة بالصحة والعافية وان يبعد عنكم كل شر وبلاء اللهم أميين يارب العالمين

تفضل التعديل 2الدائن و المدين.zip

وعليكم السلام ورحمة الله حل أول في الملف المرفق... مساعدة1.xls

السلام عليكم تم عمل المطلوب في الملف المرفق... تجزئة الأعداد والنصوص.xlsx

جرب هيك صديقي -- عملت نسخة من النموذج واشتغلت عليها Request.accdb

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

من كشف الحساب تطبع المعروض

يابو الحسن هذي الأمور البسيطة حاول تسويها بنفسك ما يحتاج تطلبها اتفضل التعديل الدائن و المدين.zip

اقرأي التعليق جيدا اضيفي ورقة جديدة وانظري كيف ستكون الورقة

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

شكرا ..جيد

المشكلة في كود التشفير نفسه تفضل اخي الكريم هذا كود لتشفير وفك تشفير البيانات اسرع من المستخدم للتشفير Public Function Encrypt(StringToEncrypt As String, Optional AlphaEncoding As Boolean = False) As String On Error GoTo ErrorHandler Dim Char As String Encrypt = "" For i = 1 To Len(StringToEncrypt) Char = Asc(Mid(StringToEncrypt, i, 1)) Encrypt = Encrypt & Len(Char) & Char Next i If AlphaEncoding Then StringToEncrypt = Encrypt Encrypt = "" For i = 1 To Len(StringToEncrypt) Encrypt = Encrypt & Chr(Mid(StringToEncrypt, i, 1)) Next i End If Exit Function ErrorHandler: Encrypt = "Error" End Function لفك التشفير Public Function Decrypt(StringToDecrypt As String, Optional AlphaDecoding As Boolean = False) As String On Error GoTo ErrorHandler Dim CharCode As String Dim CharPos As Integer Dim Char As String If AlphaDecoding Then Decrypt = StringToDecrypt StringToDecrypt = "" For i = 1 To Len(Decrypt) StringToDecrypt = StringToDecrypt & (Asc(Mid(Decrypt, i, 1))) Next i End If Decrypt = "" Do CharPos = Left(StringToDecrypt, 1) StringToDecrypt = Mid(StringToDecrypt, 2) CharCode = Left(StringToDecrypt, CharPos) StringToDecrypt = Mid(StringToDecrypt, Len(CharCode) + 1) Decrypt = Decrypt & Chr(CharCode) Loop Until StringToDecrypt = "" Exit Function ErrorHandler: Decrypt = "Error" End Function مثال للتفشير DoCmd.RunSQL "UPDATE table12 SET table12.txtbyan = Encrypt([txtbyan])" DoCmd.RunSQL "UPDATE table12 SET table12.txtdes = Encrypt([txtdes])" DoCmd.RunSQL "UPDATE table12 SET table12.txtallkad = Encrypt([txtallkad])" مثال لفك التشفير If Decrypt(DLookup("[pass]", "table12", "[username]='" & names & "'")) = Me.pswrd Then tashfertable.rar تحياتي

ربما تقصد تثبيت الصفوف * يمكنك نقل هذه الخلايا جنب بعضها في الصف الأول * ثم من تبويب view / عرض اختر freeze panes / تجميد الألواح ثم اختر freeze top row تجميد صف المقدمة أرجو أن يكون هو المطلوب

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

السلام عليكم لاثراء الموضوع في المطلوب الاول يمكنك استخدام الكود التالي Sub Abu_Ahmed() Abdulla = MsgBox(" لقد طلبت ترحيل القيمة المحددة الى الموقع المحدد ومسح البيانات السابقة", _ vbYesNo + vbQuestion, "تحذير") If Abdulla = vbYes Then ActiveCell.Offset(0, ActiveCell.Value).Value = ActiveCell.Cells.Offset(0, -1).Value ActiveCell.Cells.Offset(0, -1).ClearContents End Sub او يمكنك استخدام الكود التالي في حدث التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 4 Then Exit Sub Target.Offset(0, Target.Value).Value = Target.Cells.Offset(0, -1).Value End Sub في المطلوب الثاني يمكنك استخدام الكود التالي في حدث الدبل كليك بعد ادخال البيانات اضغط دبل كليك على اسم الشهر Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [d4:d27]) Is Nothing Then Dim Sht As Worksheet For Each Sht In Application.Worksheets If Sht.Name = Target.Value Then Sht.Cells(Target.Row, Target.Offset(0, 2).Value + 2) = Target.Offset(0, 1).Value Target.Offset(0, -1).Select Exit Sub End If Next Sht End If End Sub مرفق ملف TEST 5.rar

السلام عليكم أرفق لكم أيها الأحبة ملفي وورد لشرح طريقتين لتحويل وتصدير البيانات من Access2000 إلى sql server أو MSDE1.0 أرجو أن أكون قد وفقت فيما عملت كما آمل ممن وجد ملاحظة أو لديه تعقيب أن يتفضل بها ولا يبخل علينا --------- الملفات في المشاركات التالية

الاخوة الافاضل كل عام وانتم بخير هل بمكن ربط خريطة فوتوغرافية او طبيعية بقاعدة معمولة بالاكسس حيث نسطيع عمل زووم لاى جزء وتظهر محتوياته اى البيانات الخاصه به والمخزنة مسبقاً وكل عام وانتم بخير

قيود التحقق من الصحة : --------------------------------- تهدف قيود التحقق من الصحة ـ أي من صحة البيانات ـ إلى سلامة البيانات من الناحية المنطقية كأن يمنع كتابة حروف في حقل بيانات أرقام الهاتف إذا كان نوع بياناته لم يكن رقماً . كما أن فائدة قيود التحقق من الصحة تظهر واضحة في بعض الحالات كالتالي : - تاريخ تعيين الموظف لا يجوز أن يكون أقل من تاريخ الولادة . - تاريخ تصدير المعاملة لا يجوز أن يكون أقل من تاريخ ورودها . - سعر البضاعة أو الكمية المباعة لا يجوز أن يكون صفراً أو قيمة سالبة . - عمر الإنسان لا يجوز أن يكون أكثر من ثلاثة أرقام . - اسم الشخص لا يجوز أن يحوي أرقاماً . وغيرها كثير وإنما هذه أمثلة فقط وفي كل قاعدة تقوم بعملها لابد أن يكون هناك واجبات حتمية كما أنه لابد أن يكون هناك ممنوعات . ملاحظات : 1- هذه القيود تعمل على سجل واحد بمفرده . بمعنى أنها تعمل إذا كان تاريخ الولادة وتاريخ التوظيف في جدول واحد مثلاً للمقارنة بينهما . أما إذا كان كل منهما في جدول فأنه لن يكون هناك مقارنة بينهما . فهي لا تنظر إلى السجل السابق أو التالي أو في جدول آخر 2- القيمة التي يسترجعها MSDE من القيد إما أن تكون صحيحة True أو خطأ False . لذا لا يهم أن يحتوي القيد على شرط واحد أو عدة شروط مدمجة . 3- استخدم المعاملات المنطقية عند إنشاء القيود كـ ( = ، <> ، < ، > ، =< ، => ) وكـ ( And , Or . Between , Like , Not Like ) . 4- القيم النصية ضعها بين علامتي اقتباس مفردة ' ' أما القيم الرقمية فبلا علامة . ========= طريقة إضافة قيد تحقق من الصحة : - افتح الجدول في عرض التصميم ، ثم اضغط Alt+Enter أو اختر خصائص من قائمة عرض لفتح مربع حوار الخصائص . - حدد تبويب Tables . - انقر الزر New . ملاحظة : لا يمكنك استخدام أي ممن مكونات هذه الصفحة (التبويب) ما لم تنقر على الزر New ثم تكتب في صندوق Constaint expression التعبير ، وإلا ستظهر لك رسالة تخيرك بين حذفه وبين الاستمرار ويتوضع مؤشر الإدخال في الصندوق . شرح المكونات : Selected Table (الجدول المنتقى) : يظهر الجدول الحالي . Table name (اسم الجدول) : يتيح لك تغيير اسم الجدول في القاعدة . Table File Group و Text File Group يختص بهما مدير قواعد البيانات وهما خاصان بحالة ما إذا تم توزيع الجدول في عدة ملفات . Selected Constaint (القيد المنتقى) : يحدد القيد الحالي والذي يظهر تعبيره في صندوق تعابير القيد . Constaint expression (تعبير القيد) : وفي هذا الصندوق نكتب القيد الذي نريد . Constaint name (اسم القيد) : يمكنك من هذا الحقل تغيير اسم القيد باسم يوضح القيد . Check existing data on creation (التحقق من صحة البيانات الموجودة) : فعل هذا الخيار إذا أردة من MSDE أن يقوم باختبار البيانات الموجودة . فإذا وجد البيانات تخالف القيد عرض لك رسالة ثم يمنعك من الحفظ . وعطل هذا الخيار إذا كان لا يهمك أن تكون البيانات الموجودة تخالف القيد . [Enable Constaint for INSERT and UPDATE (التحقق من صحة البيانات عند التغيير أو الإدراج) : فعّل هذا الخيار إذا أردت تطبيق القيد على ما يستجد من السجلات وعلى ما يتم تحديثه . وعطله إذا علمت أنه سيوضع في المستقبل في هذا الحقل بيانات تخالف القيد . Enable Constaint for replication (التحقق من صحة البيانات بالنسبة لجداول النسخ المتماثلة) : فعل هذا الخيار إذا أردت أن يطبق القيد على النسخ المتماثلة . وعطله إذا لم ترد ذلك . أمثلة : لجعل الحقل لا يقبل أقل من 3 خانات --> Len(الحقل) >=3 لجعل الحقل لا يقبل قيمة سالبة --> الحقل > 0 لجعل الحقل لا يقبل أقل من التاريخ الحالي --> الحقل > getdate() لجعل الحقل يبدأ بحرف معين الحقل Like 'أ%' لجعل الحقل لا يقبل إلا أحد الأرقام من 0 إلى 9 الحقل Like '[0-9]' لجعل الحقل لا يقبل إلا أربع خانات وأرقاماً فقط الحقل Like '[0-9] [0-9] [0-9] [0-9]' لجعل الحقل لا يقبل إلا أرقاماً دون الحروف الحقل >=0 and الحقل >=9 لجعل الحقل لا يقبل إلا حروفاً عربية الحقل >='أ' and الحقل >='ي' لجعل الحقل لا يقبل إلا حروفاً إنجليزية الحقل >='a' and الحقل >='z' لجعل حقل تاريخ الوظيفة لا يقبل تاريخ أقل من تاريخ الميلاد حقل الوظيفة > حقل الميلاد

الترقيم التلقائي الترقيم التلقائي في adp يختلف عنه في mdb فيمتاز عنه بالآتي : 1- يمكنك اختيار رقم البداية للترقيم . فمثلاً يمكنك أن تجعل السجل الأول يبدأ من الرقم 200 وذلك عن طريق الخاصية (Identity Seed) . الافتراضي هو 1 2- يمكنك تحديد مقدار الزيادة بالعدد الذي تريد عن طريق الخاصية (Identity Increment) . فمثلاً يمكنك جعل الزيادة بمقدار رقمين فتجعل قيمتها 2 . الافتراضي هو 1 الطريقة : - اجعل حقل الخاصية (Allow Nulls)(مطلوب) بلا علامة . - اجعل حقل الخاصية (Identity) بالعلامة . - في الخاصية (Identity Seed) ضع رقم البداية للسجل الأول . - في الخاصية (Identity Increment) ضع رقم الزيادة عند إضافة سجل . ملاحظة : أنواع البيانات التي تصلح أن تكون ترقيماً تلقائياً محددة بالآتي : Int Smallint Tinyint Decimal Numeric

اخواني الاعزاء كل عام والجميع بخير ----------------------------- ممكن صيغة اقتران القطع الرقم الكسري 154.5467888 ال 154 فقط اريد العدد الصحيح وليس تقريبه ومشكورين اخوكم محمود

السلام عليكم ورحمة الله وبركاته كيف لي أن أقوم بعملية الفرز سواءا كان ذلك تصاعديا أو تنازليا دون (ال) التعريف ؟ أفيدونا أفادكم الله . تحياتي ( الشاعر )

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

السلام عليكم نقاط : - متوسط أيام السنة اليوليانية هي 365.25 وهي حصيلة مجموع أيام أربع سنوات مقسومة على 4 - متوسط أيام السنة الجريجورية هي 365.2425 وهي حصيلة مجموع أيام 400 سنة مقسومة على 400 علما أن التقويم المعتمد الآن دوليا وفي أجهزة الكمبيوتر هو الجريجوري . المشكلة : لا يمكن الحصول على عدد السنوات بشكل دقيق باستخدام المتوسطات ولكن يمكن استخدام متوسط السنة اليوليانية للمدد البسيطة ومتوسط السنة الجريجورية للمدد الطويلة ، ومع الإثنين لن يتم الحصول على نتائج دقيقة . الحل : لقد قمت بعمل دالة تقوم على فصل أيام السنوات البسيطة من أيام السنوات الكبيسة ومن ثم تقسيم الأيام البسيطة على مدة السنة البسيطة 365 وتقسيم الأيام الكبيسة على 366 يوم . آمل أن تحوز هذه الدالة وفكرتها على رضاكم وأن ينتفع بها وخصوصا في حساب إجازات الموظفين بحيث تضرب نتيجة الدالة في مدة الإجازة السنوية . تحياتي . GetYears.zip

السلام عليكم يا إخواني الكثير منكم يرغبون في تعلم الأكسس لدى فأنا أنصحكم بمعرفة مصطلحاته أولا إليكم هذا الموقع الذي يضم تقريباً معظم مصطلحات الأكسس ويعطيها تعريفاٌ دقيقاً حتى يسهل على الباحث كيفية التعامل مع الأكسس والتعرف على الأدوات وما إلى غير ذلك. مصطلحات الأكسس وهي من موقع الأستاذ أبو حمود

السلام عليكم يا إخواني لقد عثرت مصادفة على هذه الكتب الإلكترونية المجانية وهي تعلم الأكسس تعليم Microsoft Access 1 تعليم Microsoft Access2 مايكروسوفت أكسس Access Online Tutorials