ابوخليل

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

هل جلبت الوحدة النمطية الى برنامجك ؟ ايضا شغل متتبع الأخطاء

هذه لم افهمها ! الكود موجود في في فورم welcom1 ما تم تلوينه صح

يعني تريد الرقم الذي يحمله الـــ id اذا فهمي صحيح اكتب السطر التالي في حدث قبل التحديث للحقل الأخير msgbox me.id

نعم اعتقد عرفت مشكلتك المفترض نموذج البداية الذي يشتمل على الكود ان يكون غير منضم .. اي بدون مصدر بيانات

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

هناك ثوابت وقواعد يجب اتباعها عند الشروع في تصميم اي برنامج وهذه الثوابت معظمها يتمركز في تصميم الجداول مثلا البيانات الثابتة التي تخص الموظف تكون فيجدول واحد كـــ الرقم المعرف/الاسم/الهاتف/مكان العمل/ العنوان/ ..... الخ ثم في جدول العمليات يتم جلب هذه البيانات متى احتجنا اليها

ملحوظة : سيحدث لديك اخطاء في الاسماء المركبة التي بينها فراغات لأن الكود يعتمد على المسافات الفارغة بين الأسماء .. فيأخذ الفراغ الأول والثاني والأخير

تفضل .. وتجنب اخي تسمية الحقول بكلمات محجوزة مثل name Public Function spltTxt(txtNm As String) On Error Resume Next Dim x, i As Integer Dim t1, t2, t3 As String x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) For i = 0 To x If i = 0 Then t1 = Split(txtNm, " ")(0) If i = 1 Then t2 = Split(txtNm, " ")(1) If i = 2 Then t3 = Split(txtNm, " ")(2) If i = x Then t4 = Split(txtNm, " ")(x) Next spltTxt = t1 & " " & t2 & " " & t3 & " " & t4 End Function Database18.rar

عجيب شغلك لا ارتباط بين الجداول ، المفروض معرف الموظف يكون في جدول الاسماء ويدخل آليا ولا يدخل يدويا .. حتى جهة العمل لانه يوجد الاسماء مكررة مرة بجهة ومرة اخرى بدون جهة تفضل تم تحقيق طلبك بدون استخدام الدالة data2.rar

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

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

حتى الآن لم تصل الفكرة ما رأيك نناقش الفكرة بطريقة اخرى ؟

هل برنامجك يفتح ويعرض البيانات بعد تغيير اسم القاعدة ؟ اذا لا فمؤكد ستظهر لك رسائل تصف لك الخلل يمكن تعبت وحابة تستريح شوية

انت تتعلم اللي يصعب عليك عمله اعرضه هنا

هل المسألة صعبة عليك ابا حسان ؟؟ اكسس غالبا هو يعملها .. استخدم معالج النماذج .. كل ما ستعمله هو التنسيق والترتيب

مشكلتك في اعدادات اللغة في وندوز

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

هذه وحدة نمطية تقوم بعمل جدول لاظهار الفهارس في جميع الجداول مع شرح دلالة الحقول في الجدول وارفقت لك مثالا بذلك .... ويمكنك نقلها الى برنامجك انتبه !! المثال لا يشتمل على جداول .. لرؤية النتيجة يجب جلب جداول اليه 'This code creates a table called tbl_IndexTable and populates it with records stating which fields in your database are indexed. 'The table has the following fields. 'tbl_IndexTable 'IndexId......... The primary key for the table 'FieldName........ The name of the field that is indexed 'IndexName....... The Name of the INDEX 'TableName ....... The name of the table 'IsPrimaryKey........ Is the field a primary key 'Clustered........ Is it s clustered or Non-Clustered index 'Required........ Is the field Required or Not Required 'Foreign........ Is it the field a foreign key field Function ListIndexes() ' Procedure: ListIndexes ' DateTime : 1/04/2010 08:05 ' Author : Dane Miller ' Purpose : Creates a table and Lists ALL Indexes for ' every user created table in your database ' Arguments : N/A ' References: Microsoft ActiveX Data Objects x.x Library ' : Microsoft DAO x.x Library ' Returns : N/A '--------------------------------------------------------------------------------------- Dim db As DAO.Database Dim rst As DAO.Recordset Dim idx As DAO.Index Dim tbls As DAO.TableDefs Dim fld As DAO.Field Dim idx_Fields As String Dim tbl As DAO.TableDef Dim StrCreateTbl As String, StrInsertIndex As String On Error GoTo Errhandler Set db = CurrentDb() Set tbls = db.TableDefs() 'create the table to hold the indexes. StrCreateTbl = "CREATE TABLE Tbl_IndexTable (" & _ "[IndexId] INTEGER not null identity(1,1)," & _ "[FieldName] VARCHAR(100) , " & _ "[IndexName] VARCHAR(100), [TableName] VARCHAR(100), " & _ "[IsPrimaryKey] VARCHAR(5), " & _ " [Clustered] VARCHAR(5) , [Required] VARCHAR(5), " & _ "[Foreign] VARCHAR(5))" CurrentProject.Connection.Execute StrCreateTbl Set rst = db.OpenRecordset("tbl_IndexTable") For Each tbl In tbls ' loop though all the indexes ' do not consider system tables If Left(tbl.Name, 4) <> "MSys" And Left(tbl.Name, 1) <> "~" Then ' Enumerate Indexes collection table. For Each idx In tbl.Indexes With rst .AddNew ' Remove the Plus (+) sign from fields idx_Fields = Replace(idx.Fields, "+", " ") ' remove the semi colon from fields and replace with a comma idx_Fields = Replace(idx_Fields, ";", ",") .Fields("TableName") = tbl.Name .Fields("FieldName") = idx_Fields .Fields("IndexName") = idx.Name .Fields("IsPrimaryKey") = IIf(idx.Primary = True, "Yes", "No") .Fields("Clustered") = IIf(idx.Clustered = True, "Yes", "No") .Fields("Foreign") = IIf(idx.Foreign = True, "Yes", "No") .Fields("Required") = IIf(idx.Required = True, "Yes", "No") .Update End With Next idx End If Next tbl If MsgBox("Index Table Created. Do you want to open it now?", vbYesNo) = vbYes Then 'open the table to show all the results. DoCmd.OpenTable "tbl_IndexTable", acViewNormal, acReadOnly End If exithandler: Exit Function Errhandler: If Err.Number = -2147217900 Then 'if the table already exist Then delete records CurrentProject.Connection.Execute " DELETE * FROM TBL_IndexTable" Resume Next Else: MsgBox Err.Number & " " & Err.Description Resume exithandler End If 'clean up rst.Close Set rst = Nothing db.Close Set db = Nothing End Function المصدر Database99.accdb اعتقد عليك انقاص الفهرس الذي لا تحتاجه فعلا من خصائص الحقل مفهرس =لا

اعتقد العدد للجدول الواحد اعمل زر وفي حدث النقر ضع الكود ادناه .. ولا تنسى تضع اسم جدولك بدل الظاهر هنا MsgBox CurrentDb.TableDefs("your table").Indexes.Count

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

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

ما دمت على الخط وستستمر .. المستخدمين والدخول نؤجله الى نهاية البرنامج الآن اختر بندا واحدا ... لأننا سنسير خطوة خطوة سأختار لك البند الأول : وستعمله انت بأناملك اللطيفة ، وترفعه عند الانتهاء ((( 1 )))) نماذج ادخال البيانات .. وهذه ليست بحاجة الى اكواد الا ما قل نموذج للحسابات / ونموذج للاصناف نموذج العمليات ستحتاج الى رئيسي وفرعي

الموضوع قديم .. بارك الله فيك اكتب موضوعا جديدا ... ويمكنك الاشارة الى هذا الموضوع بوضع رابط له

ما خط بالاحمر غير مفهوم هل جربت انشاء حقل جديد في الجدول الرئيسي وتعطيه الاسم المناسب .. ثم تربطه بالجدول الجديد ؟