jjafferr

وعليكم السلام البحث في المنتدى اعطاني: و وطبعا هنلك المزيد جعفر

السلام عليكم السيد جمال شرح طريقة ارسال رسائل عن طريق Gmail في الرابط التالي: جعفر

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

وعليكم السلام اخي سلمان انا استعملت حقل من نوع ATTACHMENT وادخلت الصورة مياشرة في الجدول. جعفر 366.SA1.accdb.zip

حياك الله والفضل يعود للأستاذ رمهان جعفر

أخي الفاضل مشكلتك ليست في الكود ، وانما في البرنامج ككل ، واعدادات الوندوز ، والدليل هو رسالة OLE Active x . افتح ملف اكسس جديد ، واستورد جميع كائنات هذه البرنامج الى البرنامج الجديد ، ثم جرب الكود جعفر

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

في نفس الحدث ، وبدل السطرين ، جرب السطر التالي: msgbox Me.ID_Tarif.Column(1) واخبرنا النتيجة بالصورة لوسمحت جعفر

وعليكم السلام انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل الوحدة النمطية التي تقوم بالعمل: Function myName(F) myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'") End Function ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا: Me.Caption = myName(Me.Name) والنتيجة جعفر 365.for form.Caption.mdb.zip

السلام عليكم غيّر الكود: بدل Me![Désignation] = Me![ID_Tarif].Column Me![Prix_unitaire] = Me![ID_Tarif].Column الى Me![Désignation] = Me![ID_Tarif].Column(1) Me![Prix_unitaire] = Me![ID_Tarif].Column(2) جعفر

وعليكم السلام أخي العراقي المدلل رجاء مراعاة كتابة اسم مناسب للموضوع في المرات القادمة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

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

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

تفضل عملت في الاستعلام مجموع المبالغ المستحقة على الاب: 1. Dsum يجمع المبالغ ، ولكن نوع الحقل يكون نص وليس رقم ، وعندما تريد ان تفرز الارقام تصاعديا ، فإنه يأخذ اول رقم على اليسار (كأنه اول حرف في الكلمة ، فالرقم بالنسبة له كأنه كلمة) ، فيفرز 1 ثم 10 ثم 100 ثم اذا لم تبقى ارقام اولها واحد ، فيأخذ الرقم 2 ، ... وهكذا ، 2. لذا ، نحول النص الى رقم عن طريق الامر Val ، فبالتالي نتيجة الحقل تكون رقم . وفي التقرير ، عملت فرز بهذا الحقل: . والنتيجة: . السبب ان الفرز لا يمكن فعله بطريقتك ، لأن التقرير يكتب مبالغ الاستعلام ، ثم يجمعها ، فحينها امر الفرز يكون فات أوانه ، لأنه لا يملك المجاميع لفرزها قبل كتابتها جعفر 364.Microsoft Access قاعدة بيانات جديد ‫‬.accdb.zip

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

وعليكم السلام أخي عمر انت قلت: وما لقيت هذا الحقل كذلك عطني مثال بالتفصيل لوسمحت جعفر

وعليكم السلام اختي البحث في المنتدى اعطاني عدة نتائج ، وهذه بعضها: http://www.officena.net/ib/topic/54860-ترقيم-تلقائي-يتجدد-كل-سنة/ http://www.officena.net/ib/topic/5773-ترقيم-تلقائي-إعادة-الترقيم-سنويًا-لكل-قضية/ http://www.officena.net/ib/topic/20551-ترقيم-x-ترقيم/ http://www.officena.net/ib/topic/2659-عمل-ترقيم-تلقائي-بتنسيق-مخصص/ http://www.officena.net/ib/topic/20068-ترقيم-جديد-كل-سنة-جديدة/ http://www.officena.net/ib/topic/13226-مساعدة-في-تسلسل-الأرقام/ جعفر

1. هل اتبعت الخطوات التي وضعتها انا في الموضوع اعلاه؟ 2. وهل عمل السكانر من برنامجي مباشرة؟ ممكن تخبرني الخطوات التي عملتها وجاتك هذه الرسالة؟ جعفر

السلام عليكم شباب الطريقة اللي جائت على بالي ، هي عمل جدول مؤقت متسلسلة بارقام الايصال: . وهذا اصبح كود زر البحث ، حيث يحذف جميع مكونات الجدول المؤقت tbl_Temp ، ثم يُدخل ارقام البحث بالتسلسل الى الجدول المؤقت tbl_Temp: Private Sub cmbsearch_Click() On Error GoTo err_cmbsearch_Click 'delete all the values of tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Temp") 'check if there are values for search If Len(Me.inv1 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv1: rst.Update End If If Len(Me.inv2 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv2: rst.Update End If If Len(Me.inv3 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv3: rst.Update End If If Len(Me.inv4 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv4: rst.Update End If If Len(Me.inv5 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv5: rst.Update End If If Len(Me.inv6 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv6: rst.Update End If If Len(Me.inv7 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv7: rst.Update End If If Len(Me.inv8 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv8: rst.Update End If If Len(Me.inv9 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv9: rst.Update End If If Len(Me.inv10 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv10: rst.Update End If If Len(Me.inv11 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv11: rst.Update End If If Len(Me.inv12 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv12: rst.Update End If If Len(Me.inv13 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv13: rst.Update End If If Len(Me.inv14 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv14: rst.Update End If If Len(Me.inv15 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv15: rst.Update End If If Len(Me.inv16 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv16: rst.Update End If If Len(Me.inv17 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv17: rst.Update End If If Len(Me.inv18 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv18: rst.Update End If If Len(Me.inv19 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv19: rst.Update End If If Len(Me.inv20 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv20: rst.Update End If If Len(Me.inv21 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv21: rst.Update End If Me!esano_1.Form.RecordSource = "qry_esano1" esano_1.Requery rst.Close: Set rst = Nothing Exit Sub err_cmbsearch_Click: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . هذا الاستعلام اصبح مصدر للنموذج الفرعي: . والنتيجة (لاحظ تسلسل السجلات في النموذج الفرعي ، والتي اصبحت بنفس تسلسل ارقام البحث) : . وحتى اذا فيه ارقام فاضية في خانات البحث ، كذلك يعطيك الترتيب: . بس علشان احاول افرق/اميز بين خانات البحث المليانه ، والخانات الفاضية ، اصبح النموذج: . وهذه طريقة عمل التفريق/التمييز بين خانات البحث المليانه ، والخانات الفاضية: . جعفر 362.test2.accdb.zip

وعليكم السلام اخوي علي انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر الخطأ 2220 معناه انه ما فيه صوره في المسار استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار جعفر

وعليكم السلام الرابط يقول اني احتاج الى صلاحية للوصول الى الملف استعمل برنامج winrar او winzip وارفع برنامجك على المنتدى هنا جعفر

تفضل نفس موضوعك ، بالمجموعات: http://www.officena.net/ib/topic/60480-طباعة-اصناف-محددة-معينة-بالنموذج-الفرعي-وليس-كل-الاصناف/ والنتيجة (لاحظ لون الرقم المسلسل يتماشى مع نوع الطبق): . وهنا التسلسل للسجلات: http://www.officena.net/ib/topic/63356-ترقيم-سجل-بعد-البحث/?do=findComment&comment=412591 جعفر

حياك الله في الحقيقة ، انا استخدم هذه الوحدة النمطية في برامجي الاساسية ، فالترقيم التلقائي فيها بعدة طرق (الامثلة موجودة في الوحدة النمطية) جعفر

السلام عليكم الاستعلام في وضع التصميم: ومهم جدا لنجاح هذه العملية ان يكون الاستعلام 1. بفرز مواد المجموعات ، ثم 2. بفرز الترقيم التلقائي مثلا ، وعمل الترقيم تقوم به الوحدة النمطية RowCounter : . والنتيجة: . ولتحديث الجدول Items ، يجب ان يكون لدينا الاستعلام اعلاه ، ثم يقوم الاستعلام qry_2_Update بتحديث الجدول على اساسه وهذه هي الوحدة النمطية: Option Compare Database Option Explicit Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function Public Function Correct_Last_Sequence() Dim rst As DAO.Recordset Dim Last_Seq As Integer Set rst = CurrentDb.OpenRecordset("Select * From 1 Order By Auto_ID Desc") rst.MoveNext Last_Seq = rst!M rst.MovePrevious rst.Edit rst!M = Last_Seq + 1 rst.Update rst.Close: Set rst = Nothing End Function جعفر 361.Database1.mdb.zip

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