Dream_Works

في الملف المرفق مثال بسيط لما تريد ببساطة يمكنك وضع التعديل التالي في استعلام الكومبو بكس : Expr1: [Personal data].Name & " " & [Personal data].[Father's_name] & " " & [Personal data].Grandpa_name & " " & [Personal data].Family_name Ser_ListBox.zip

انظر في هذا الموضوع ... احتمال يفيدك منع التكرار

هذي محاولة على السريع ... ضع الكود في الحدث OnOpen Dim inputLine As String Const password As String = "123" inputLine = InputBox("أدخل كلمة السر", "password") If inputLine <> password Then MsgBox ("خطأ في كلمة السر") Cancel = True End If

أرجو إرفاق قاعدة بياناتك

أنشئ استعلام جديد و قم بعمل الآتي 1- أضف حقل جنس الموظف الى الاستعلام ... مرتين ... ثم قم بالآتي على أي واحد من الاثنين 2- اضغط علامة ال سيجما ( التجميع ) التي تشبه حرف E تقريبا و الموجودة ضمن الأزرار تحت القوائم مباشرة... و تكون في العادة بجانب كلمة All 3- بعد الضغط على الزر المطلوب ستظهر كلمة Total و أمامها كلمة Group By تحت اسم الجدول في الاستعلام مباشرة 4- استبدل كلمة Group By ب Count 5- شغل الاستعلام أرجو أن يكون هذا طلبك

هذا الكود أخوي With Me criteria = "ID = '" & .TxtID & "' and " & _ "Name = '" & .TxtName & "' and " & _ "Address = '" & .TxtAddress & "' and " & _ "phone = '" & .TxtPhone & "'" End With ' For Removing The Warning Message ' DoCmd.SetWarnings False DoCmd.RunSQL "Delete From Test Where " & criteria ' DoCmd.SetWarnings true ' Initialize The RecordSet Again Call Form_Load ملحوظة : هذه الطريقة تعتمد على البيانات للحذف ... فإذا تطابقت البيانات في أكثر من ريكورد سيتم حذفها كلها ... و إذا رغبت في حذف ريكورد واحد فقط في حالة تطابق البيانات أرجو إبلاغي بذلك

أنا الي سويته أخوي .. على السريع . أرجو إبلاغي بأي أخطاء حتى يمكنني إصلاحها لا أعتقد ذلك ... ببساطة عليك التحكم في كيفية ادخال اليوزر للبيانات عن طريق الشاشة و أنت تقوم بعمل المتغير ال WhereCondition Or Criteria ... تركيزك فقط يجب أن يكون على هذا المتغير دون غيره ... هناك عدة حلول .. مثلا أنت تقوم بإقفال جميع القوائم المنسدلة و ال CheckBoxes و تترك المسموح به للمستخدم ... أو لكل قائمة منسدلة أو CheckBox تقوم بتغيير مكونات هذا المتغير (Criteria) ... في الحدث AfterUpdate احتمال كبير تكون أخطائي نتيجة الاختلاف بين ال Caption في تسميات الفورم و اسم الحقل في الجدول .... ببساطة يمكن الاعتماد على ال Tag بدل ال Caption و بذلك أن يمكنك وضع التسمية كما تريد حتى لو بالعربي .. (الكثير من الحلول المحتملة ) للأسف يصعب الشرح بهذه الطريقة ... أرجو أن تشرح لي أخطائي و سأحاول تعديلها بإذن الله

تفضل أخوي : هذه الطريقة تجعل النموذج ... للعرض فقط ... لا يمكنك إضافة أو تعديل البيانات .. AZIZ_CZR.zip

أرجو أن يكون هذا طلبك Test.zip

هذا الكود أخوي ضعه قي النموذج Invoice Details Private Sub مربع_تحرير_وسرد6_AfterUpdate() Me.PrPrice = DLookup("PrPrice", "TabPr", "PrID = '" & Me.PrID & "'") End Sub أرجو أن يكون هذا طلبك ...

أنا بانتظار ردك

يجب تعديل الكود حسب العناصر المتوفرة في الكود أنا وضعت Select Case LSellType Case "بالوزن": NewPrice = LPrice * LWeight Case "بالعدد": NewPrice = LPrice * LCount Case "بالمتر": NewPrice = LPrice * LLength Case Else NewPrice = 0 End Select أولا يتم التأكد من قيمة LSellType و هي نوع البيع ... (إذا كانت قيمتها "بالوزن" ) NewPrice هو ناتج الدالة ناتج الدالة = السعر * الوزن = LPrice * LWeight و إذا كانت "بالعدد" ناتج الدالة = السعر * العدد LPrice * LCount و هكذا لذلك يجب إضافة اختيارات المقايسة و العود هنا ... في هذا الجزء من الكود .. دون الحاجة الى تعديل الجداول حتى يمكن للدالة التعامل معهم أرجو إنك فهمتني ...

في الاستعلام ... يمكنك الدخول الى خصائص ... من القائمة View -> Properties تغيير قيمة TopValues الى 3 و تغيير ترتيب بالبيانات ووضعها بترتيب تنازلي بالفورم ... تضع خاصية ... OrderBy ... بترتيب تصاعدي... أو يمكنك عمل استعلام ثاني يعتمد على الأول و يرتب البيانات تصاعديا مرة أخرى احتمال يمكنك استخدام الدالة Rnd لاسترجاع الأرقام بشكل عشوائي ... هذا إذا كان الجدول يحتوي على أرقام أرجو إرفاق قاعدة بياناتك للتوصل إلى حل سليم و مؤكد

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

أرجو أن يكون هذا طلبك ملحوظة هامة : لتسهيل الكود و تقليله ... اعتمدت بشكل كلي على الآتي 1- أسماء مكونات الفورم ... كل القوائم المنسدلة و ال CheckBoxes و Labels ... فأرجو عدم تغيير أسماءها بالكود 2- أن يكون ال Caption للتسميات الملحقة ( Labels ) بمكونات الفورم ( CheckBoxes and ComboBoxes ) يطابق تماما أسماء الحقول في الجداول عموما .. أنت وضعت ال Caption مطابق لاسم العمود في الجدول و أنا استفدت من ذلك Copy_of_CV_Records_Old.zip

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

يمكنك الاشاره الى أي عنصر في أي فورم بالطريقة التالية: Forms("FormName").Controls("ControlName") بهذه الطريقة يمكنك استرجاع أو وضع أي قيمة بين الشاشات المختلفة

1- قم بوضع الفورم في المكان الذي تريد 2- قم بحفظ الفورم File -> Save 3- أغلقه و افتحه مره أخرى أرجو أن يكون هذا طلبك

1- الكود هذا لمسح ريكورد واحد فقط 2- يمكنك تغيير معايير البحث و الحذف في المتغير Criteria 3- أرجو قراءة ملاحظتي في الكود ... حول كيفية عمل ال RecordSet أرجو أن يكون هذا طلبك Dim rs As DAO.Recordset, Criteria As String Const TblName As String = "Test" ' Either You Use This RecordSet and Remove The RecordSource from The Form Set rs = CurrentDb.OpenRecordset(TblName) ' Or You use this Record Set and Set the Form Record Source to the table Test Set rs = Me.RecordsetClone With rs Criteria = "ID = " & Me.TxtID & _ " and Name = " & Me.TxtName & _ " and Phone = " & Me.TxtPhone & _ " and address = " & Me.TxtAddress .FindFirst (Criteria) If Not .NoMatch Then .Delete End If .Close End With

ضع هذا الكود في الفورم ... و أرجو أن يحقق مبتغاك Private Sub Form_Current() With Me .عدد_المخالفات = DCount("*", .RecordSource, "[اسم المالك] = '" & .اسم_المالك & "'") End With End Sub 1- يجب إحاطة اسم الحقل بأقواس [ 2- يجب إحاطة قيمة مربع النص ب ' (Single Quote) لم أسمع بها من قبل ... و لكن لدي بعض الكتب ( كتب عادية ورقية ) التي تشرح بعض هذه الدوال بالعربية ... يمكنك الحصول على كتب جيدة من المكتبات ... أو أحد الاخوان هنا يعطيك موقع جيد للشرح بالعربية

الترقيم التلقائي في الأكسيس يحتوي على بعض المشاكل عموما لذلك مصممي قواعد البيانات يفضلون وضع الحقل رقم عادي أخي الكريم ... مشكلة الترقيم التلقائي شائعة جدا ... و يوجد لها العديد من الحلول 1- يمكنك أن تهتم بالبيانات الموجودة بالفورم و ليس بالجدول ... لذلك يمكنك ببساطة تجاهل بيانات الجدول مهما كانت ... ووضع Unbound Control ... لحسبة الرقم التلقائي باستخدام الدالة me.Currentrecord 2- يمكنك عمل نسخة من الجدول المطلوب أولا ثم تجربة الآتي عليه مسح الترقيم التلقائي و تحويله الى رقم عادي و تعبئته باستعلام إلحاقي Append Query ... و من ثم التعبئة بالكود هذه نتائج البحث في المنتدى عن مشاكل الترقيم التلقائي مشاكل الترقيم التلقائي

أخي الكريم هذه لم تكن أسئلة و لكن مقترحات لصاحب المشكلة كل ما سأقوله هو ناتج لخبرتي المتواضعه و احتمال يكون خاطئ الفورم له طريقتين اعتياديتين للعرض 1- Design View 2-Form View أنت تريد أن تتحكم في عدد الأزرار في الشاشة ليكون مطابق لعدد الصفوف الموجودة في جدول الاجتماعات حسب خبرتي و اعتقادي ... لا يمكنك إنشاء أزرار أو إنشاء أي شيء بالفورم الا إذا كان في Design view لذلك .. إما أن تقوم أنت بإنشاء عدد كبير من الأزرار ( أكبر من عدد صفوف الجدول ) ... ثم التحكم في إخفاء الزائد منها لأن الفوم وقتها يكون في Design view أو أن تتحكم بفتح هذا الفورم عن طريق زر من فورم آخر ... بهذه الطريقة يمكنك فتح الفورم في Design view بالكود ثم إنشاء الأزرار المطلوبة ... ثم تحويله إلى Form view و لكن للأسف لم يمكنني إنشاء الأزرار المطلوبة و الفورم مفتوح في Form View ... لذلك لم أستطع وضع كود إنشاء الأزرار في الحدث On Open أعلم أن الكلام معقد شوي ... و لكن أرجو أن تكون قد فهمتني ...

أخي الكريم يوجد العديد من الكتب و المواقع ... انت اختر اللي ترتاح له 1- أعضاء منتدى أوفيسنا ممكن يساعدونك في أي سؤال 2- المساعدة الموجودة في الأكسيس نفسه ... مفيده جدا ... يمكنك وضع المؤشر على أي كود أو أمر لا تفهمه و اضغط F1 3- مواقع التعليم بالصوت و الصورة VTC 4- موقع طريقة شرحه للمواضيع رائعة موقع إنجليزي لشرح البرمجة و قواعد البيانات 4- كتب انجيزية مترجمة للعربية .. أنت تشتريها من المكتبة ( مكتبة جرير هي المفضلة لدي ) 5- مدرس خصوصي يجلس معك أنت فقط و يعلمك ما تريد بمقابل مادي و غيره

ضع الكود التالي في الحدث OnClick Private Sub Command15_Click() Dim rs As DAO.Recordset Const TblName As String = "Test" Set rs = CurrentDb.OpenRecordset(TblName) With rs .AddNew .Fields("ID") = Me.TxtID .Fields("Name") = Me.TxtName .Fields("Phone") = Me.TxtPhone .Fields("address") = Me.TxtAddress .Update .Close End With ' Removing the contents of the Text Boxes With Me .TxtAddress = "" .TxtID = "" .TxtName = "" .TxtPhone = "" End With End Sub تمت إعادة تسمية مربعات النصوص الى : TxtAddress , TxtName , TxtID , TxtPhone يمكنك تغيير أسماؤها بالفورم و الكود معا

أرجو أن يكون هذا طلبك Private Sub Name_AfterUpdate() Dim SearchResult As String, destinationCode As Integer SearchResult = Nz(DLookup("[code_no]", "[Personal data]", "[Name]=form![Name]"), "") If SearchResult <> "" Then MsgBox "هذا الإسم موجود من قبل !" destinationCode = CInt(SearchResult) DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, destinationCode End If End Sub باختصار قم بعمل الآتي 1- امسح الكود الموجود من الحدث BeforeUpdate و ضعه في AfterUpdate 2- امسح الأمر Me.undo