Bluemind

الرجاء قراءه قواعد المشاركه في المنتدى و الالتزام بها http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

موضوع مخالف يغلق

اخوي بارك الله فيك من خلال وصفك بظهور اللاستعلام و الجداول فقط وكذلك من الصوره المرفقه يتضح لي ان البرنامج لديك بصيغه mde اي لا يمكن تعديل على التصميم و المصمم للبرنامج لا يريد التعديل على النسخه

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

الاخ عبدالله وفقك الله لم افهم المطلوب من شرحك ماهو الكود الذي تقصد؟؟ الرجاء وضعه هنا في مشاركتك

تحية طيبة اخي bluemaind ما المقصود بحرف q الموجود في عبارة الاستعلام ؟؟؟؟ الاخ محمد q هنا هي مصدر بيانات وهي اسم الاستهلام وقد تكون اسم الجدول

الاخ الكريم الرجاء قراءه قواعد المشاركه في المنتدى و الالتزام بها http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

اخوي بارك الله فيك المشكله في العلاقات بين الجداول و الربط بينها كما هو مبين في الصوره المرفقه قمت بربط الجداول بالحقل معرف من نوع "ترقيم تلقائي" اي عند اضافه طالب للجدول الاساسي ياخد رقم مثلا 1 ويكون هو الرقم المنفرد لهذا الطالب ثم قمت بربط هذا السجل بالجدول الثاني الذي يوجد به حقل معرف من نوع ترقيم تلقائي اي عن اضافه سجل جديد للجدول الثاني فان هذا السجل ياخذ رقم منفرد وليس له علاقه بالطلاب في الجدول الاساس مثلا اضفت 3 سجلات للطلاب رقم 1 فان العلاقه سوف تريك فقط سجل رقم 1 من الجدول المرحله لانه مربوط بالسجل رقم واحد في الجدول الاساسي الحل هو اضافه حقل جديد في جدول المرحله ويكون مفتاح ثانوي اي يربط الجدول الاساسي باجدول المرحله وتكون العلاقه 1 الى متعدد اي كل طالب اديه اكثر من سجل في جدول المراحل و في الاخير كانت العلاقه بين الجداول 1 الى 1 وهو ما يمنع اضافه سجلات اخرى شاهد التعديل على قاعده البيانات New Microsoft Office Access 2007 Database.rar

هل تقصد = DLast("[Newbal]";"q") اذا نعم قم باضافتها في الاستعلام q وتكون كاتالي Last Assig: DLast("[Newbal]";"q") شاهد المرفق الانتداب.rar

افضل طبعا REQUERY

وعليكم السلام ورحمه الله الاخ محمد الرجاء قراءة و الالتزام بقواعد المشاركه بالمنتدى http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

اخوي بارك الله فيك ماهي الاخطاء التي تكون في ملفات الاكسل؟؟؟؟

الاخ عبدالله الرجاء وضع كل طلب في موضوع منفصل و الالتزام بقواعد المشاركه http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

الاخ احمد بعد الانتهاء قم بمسح السجلات المدخله ثم قم بضغط و اصلاح قاعده البيانات compact and repair ثم قم بتشغيل الوحده النمطيه السابقه

اخوي بارك الله فيك ضع الكود التالي في وحده نمطية جديده Sub SetAutoNumber(sTable As String, ByVal lNum As Long) On Error GoTo Err_SetAutoNumber ' Purpose: set the AutoNumber field in sTable to begin at lNum. ' Arguments: sTable = name of table to modify. ' lNum = the number you wish to begin from. ' Sample use: Call SetAutoNumber("tblInvoice", 1000) Dim db As DAO.Database ' Current db. Dim tdf As DAO.TableDef ' TableDef of sTable. Dim i As Integer ' Loop counter Dim fld As DAO.Field ' Field of sTable. Dim sFieldName As String ' Name of the AutoNumber field. Dim vMaxID As Variant ' Current Maximum AutoNumber value. Dim sSQL As String ' Append/Delete query string. Dim sMsg As String ' MsgBox string. lNum = lNum - 1 ' Assign to 1 less than desired value. ' Locate the auto-incrementing field for this table. Set db = CurrentDb() Set tdf = db.TableDefs(sTable) For i = 0 To tdf.Fields.Count - 1 Set fld = tdf.Fields(i) If fld.Attributes And dbAutoIncrField Then sFieldName = fld.name Exit For End If Next If Len(sFieldName) = 0 Then sMsg = "No AutoNumber field found in table """ & sTable & """." MsgBox sMsg, vbInformation, "Cannot set AutoNumber" Else vMaxID = DMax(sFieldName, sTable) If IsNull(vMaxID) Then vMaxID = 0 If vMaxID >= lNum Then sMsg = "Supply a larger number. """ & sTable & "." & _ sFieldName & """ already contains the value " & vMaxID MsgBox sMsg, vbInformation, "Too low." Else ' Insert and delete the record. sSQL = "INSERT INTO " & sTable & " ([" & sFieldName & "]) SELECT " & lNum & " AS lNum;" db.Execute sSQL, dbFailonerror sSQL = "DELETE FROM " & sTable & " WHERE " & sFieldName & " = " & lNum & ";" db.Execute sSQL, dbFailonerror End If End If Exit_SetAutoNumber: Exit Sub Err_SetAutoNumber: MsgBox "Error " & Err.Number & ": " & Err.Description, , "SetAutoNumber()" Resume Exit_SetAutoNumber End Sub ثم قم بالحفظ باي اسم ترغب ثم قم بفتح شاشه تففيذ الاكواد المباشره وذلك عن طريق ضغط زر G+Ctrl بعد ذلك قم بوضع الكود التالي في هذه الشاشه Call SetAutoNumber("tblName", 6510) طبع الرقم الموجود في هذا السطر هو الرقم الذي ترغب بداء الترقيم منه وكذلك لابد من تحديد اسم الجدول واستبداله مكان tblName و يفضل استخدام اللغه الانجليزيه ثم اضغط زر Enter شاهد المرفق بالتوفيق numbering.rar

الاخ بندر بارك الله فيك الرجاء قراءه قواعد المشاركه و الالتزام بها http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

للاسف غير واضح المطلوب في التقرير

اخوي بارك الله فيك في حقل قاعده التحقق من الصحه ضع التالي Is Null OR Between 1000 And 9999 وليس قناع الادخال

تفضل شاهد المرفق Mr.rar

الاخ احمد بارك الله فيك ماهو هو الفرق بين رمز العملية Stock و In؟؟

تفضل _الرقم القومى.zip

الاخ احمد بارك الله فيك الرجاء قراءه قواعد المشاركه في المنتدى و الالتزام بها http://www.officena.net/Tips/Questions.htm موضوع مخالف يغلق

ابوفيصل مثل ماقال ابو خليل ارفق البرنامج لتتضح الصوره قم بعمل نسخه من البرنامج وضع اسماء وهميه وليس بالشرط الاسم كامل وقم بمسح العناوين وارقام الاتصال والله يفكك من الجزاء بالتوفيق

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