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

ان شاء الله

نصطاد هذا الخطأ ، جرب Private Sub cmd_Do_Records_Click() On Error GoTo err_cmd_Do_Records_Click Dim rst As DAO.Recordset Dim rstSUB As DAO.Recordset 'نقرأ بيانات النموذج الفرعي Set rstSUB = Me.Forme_Sub_Itinerary.Form.RecordsetClone rstSUB.MoveLast: rstSUB.MoveFirst RCsub = rstSUB.RecordCount 'نقرأ كل سجل من سجلات النموذج الفرعي For j = 1 To RCsub 'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد If rstSUB!Do_Changes = -1 Then 'نجهز الجدول لإدخال/حذف بيانات رقم المقعد mySQL = "SELECT Auto_Chair_ID AS Auto, Tabl_bus.*" mySQL = mySQL & " FROM Tabl_bus" mySQL = mySQL & " WHERE Num_Itinerary_ID=" & rstSUB!Auto_ID mySQL = mySQL & " AND Num_Itinerary=" & rstSUB!Num_Itinerary mySQL = mySQL & " AND Num_rihla=" & rstSUB!Num_rihla mySQL = mySQL & " ORDER by Auto_Chair_ID DESC" 'Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If RC > rstSUB!Number_seats Then 'نحذف سجلات رقم المقعد من الجدول For i = rstSUB!Number_seats + 1 To RC rst.Delete rst.MoveNext Next i Else 'نضيف سجلات رقم المقعد في الجدول For i = RC + 1 To rstSUB!Number_seats rst.addnew rst!Num_Itinerary_ID = rstSUB!Auto_ID rst!Num_Itinerary = rstSUB!Num_Itinerary rst!Num_rihla = rstSUB!Num_rihla rst![Chair_ No] = i rst.Update Next i End If 'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها rstSUB.Edit rstSUB!Do_Changes = 0 rstSUB.Update GoTo Exit_cmd_Do_Records_Click End If 'rstSUB rstSUB.MoveNext Next j Exit_cmd_Do_Records_Click: 'احذف البيانات من ذاكرة الكمبيوتر rst.Close: Set rst = Nothing rstSUB.Close: Set rstSUB = Nothing Exit Sub err_cmd_Do_Records_Click: If Err.Number = 3021 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

ووالديك ، وتصبح على خير

في النموذج frmEdrajSenfm ، حقل Alkmiah لا يقبل ادخال رقم اكبر من الحقل Alkmiah في النموذج الفرعي frm_mr هل انا وانت نتكلم عن نفس النماذج؟ انتبه ، انا لا اتكلم عن النموذج الفرعي SubSales

للاسف اخي جعفر نفس الشي انت الان لو لاحظت هي نفس الشي المطلوب انه يخصم من نفس الفاتورة انت الان لو عملت رقم الفاتورة2 وخصمت 4 وكان موجد بالفاتورة رقم واحد عدد3 بتشوف انه خصم من الفاتورة رقم واحد واصبع العدد سالب واحد

تفضل 828.احتساب الكميه 2.mdb.zip

وهكذا اصبح الكود ، ورجاء تجربته Private Sub cmd_Do_Records_Click() Dim rst As DAO.Recordset Dim rstSUB As DAO.Recordset 'نقرأ بيانات النموذج الفرعي Set rstSUB = Me.Forme_Sub_Itinerary.Form.RecordsetClone rstSUB.MoveLast: rstSUB.MoveFirst RCsub = rstSUB.RecordCount 'نقرأ كل سجل من سجلات النموذج الفرعي For j = 1 To RCsub 'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد If rstSUB!Do_Changes = -1 Then 'نجهز الجدول لإدخال/حذف بيانات رقم المقعد mySQL = "SELECT Auto_Chair_ID AS Auto, Tabl_bus.*" mySQL = mySQL & " FROM Tabl_bus" mySQL = mySQL & " WHERE Num_Itinerary_ID=" & rstSUB!Auto_ID mySQL = mySQL & " AND Num_Itinerary=" & rstSUB!Num_Itinerary mySQL = mySQL & " AND Num_rihla=" & rstSUB!Num_rihla mySQL = mySQL & " ORDER by Auto_Chair_ID DESC" 'Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If RC > rstSUB!Number_seats Then 'نحذف سجلات رقم المقعد من الجدول For i = rstSUB!Number_seats + 1 To RC rst.Delete rst.MoveNext Next i Else 'نضيف سجلات رقم المقعد في الجدول For i = RC + 1 To rstSUB!Number_seats rst.addnew rst!Num_Itinerary_ID = rstSUB!Auto_ID rst!Num_Itinerary = rstSUB!Num_Itinerary rst!Num_rihla = rstSUB!Num_rihla rst![Chair_ No] = i rst.Update Next i End If 'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها rstSUB.Edit rstSUB!Do_Changes = 0 rstSUB.Update GoTo Exit_cmd_Do_Records_Click End If 'rstSUB rstSUB.MoveNext Next j Exit_cmd_Do_Records_Click: 'احذف البيانات من ذاكرة الكمبيوتر rst.Close: Set rst = Nothing rstSUB.Close: Set rstSUB = Nothing End Sub . جعفر 806.2.AAddseat.accdb.zip

جرب هذا الملف و حاول تعديل المعادلات حسب الملف عندك Names&Codes.rar

جزاك الله كل خير وبارك فيك استاذ / ahmedkamelelsayed0 الكود في ابهى حلته مع شرح الاسطر المطلوبه بارك الله في كل من كانت له بصمه في هذا العمل Option Explicit Sub transfer_data() 'هذا الكود للمحترم سليم حاصبيا 'الهدف من الكود هو فلتره البيانات 'وترحيلها الى صفحات 'تم هذا الكود في 6/12/2007 '==================== Dim My_Rg As Range Dim S_sh As Worksheet, My_Sheet As Worksheet Dim i As Byte '====== 'عدد صفحات الملف كاملا او اكثر Dim arr(1 To 44) '====== With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With '====== 'عدد الصفحات المطلوب الترحيل اليها+ صفحة المصدر For i = 2 To 7 '====== arr(i - 1) = Sheets(i).Name Next 'اسم صفحه المصدر Set S_sh = Sheets("المصدر") 'بدايه النطاق المطلوب فلترته Set My_Rg = S_sh.Range("A14").CurrentRegion If S_sh.AutoFilterMode = False Then My_Rg.AutoFilter End If '====== 'عدد الصفحات المطلوب الترحيل اليها For i = 1 To 6 '====== Set My_Sheet = Sheets(arr(i)) 'نطاق المسح في صفحات الهدف My_Sheet.Range("B4:F500").Clear 'رقم عمود الفلتره My_Rg.AutoFilter field:=4, Criteria1:=arr(i) 'بدايه خليه النسخ في صفحات الهدف My_Rg.SpecialCells(12).Copy My_Sheet.Range("B4") My_Rg.AutoFilter Next With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With Erase arr Set S_sh = Nothing: Set My_Sheet = Nothing: Set My_Rg = Nothing: i = 0 End Sub

الله لا يحرمنا منك ومن ابداعاتك

السلام عليكم ورحمة الله وبركاته استاذ جعفر ممكن تعمل موضوع لهذه الجزئيه وتشرحها بالصور أن أمكن حاولت اطبقها وما ضبطت عندما اعمل استعلامات وارغب في تحويل جملة Sql الى كود ادوخ السبع دوخات ولعل طريقتك هذه تسهل علي الموضوع

ايش رأيك بأن يكون الفحص قبل انزال الكمية ،

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

للاسف هذا لا يقوم بالشرط الشرط هو انه يكون مطابق لرقم الفاتورة هذا ياخذ اول فاتوره فقط

نعم هذا المطلوب

وعليكم السلام تستطيع استعمال هذه الطريقة ، من اعدادات الحقل في النموذج مباشرة ، بحيث يكون الشرط: >0 and <1000000000 . . . جعفر

ابو ياسين انت تريد الكمية Alkmiah من الجدول Hrakatsanf بشرط رقم الفاتورة Rjmfatwra و رقم الصنف ID_Sanf يكونان الموجودان في النموذج الفرعي SubSales وهذا السجل هو السجل الموجود عليه التركيز هل هذا المطلوب؟

أستاذي الفاضل ناصر سعيد قم باستبدال For i = 1 To 4 بـ For i = 1 To 5 وسيعمل ملف الأستاذ سليم وإليك الملف المرفق بعد التعديل الفلتره للمحترم سليم حاصبيا Modifier.rar

هذا التعديل يعمل على 140 عمود تفضل جرب المرفق نقل بيانات6.rar

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

السلام عليكم ورحمة الله وبركانة تحياتى للجمبع برنامج طباعة الشهادات المدرسية للمرحلة الابتدائية ويشمل طباعة كشوف المنادة وكشوف ارقام الجلوس وطباعة الشهادات وايضا كشوف الدور الثانى . الاخت ايناس شكر لك لما قدمت من مساعدات ونماذج ومعلومات ومتابعة حتى تم الانتهاء من هذا البرنامج . تم العمل على هذا البرنامج من خلال متابعة الاخت ايناس فأرجو من الله ان يحوز اعجابها وينال رضا اخوانى المدرسين والمدرسات لعلى اكون قد اسهمت فى تقديم بعض المساعدة لهم وانال دعائهم . لمحة سريعة عن البرنامج البرنامج ذو شاسة رئيسية سهلة التعامل به مجموعة من الاكواد تحتوى على بعض الاجابات وطلبات الاعضاء السابقة على سبيل المثال لا الحصر يوجد ضمن البرنامج اجابة لسؤال الاخ عادل صادق عن (Title Bar) وايضا حل لمشكلة واجهت الاخ adel123 عن اسخدام ( Shape ) الدوائر الحمراء فى وجود القوائم المنسدلة فأرجو منهما الانتباه لذلك . واترككم مع شرح سريع لطريقة العمل على البرنامج ________________________________.rar

السلام عليكم ومثل ما اخبرتك: . في النموذج الفرعي sfrm_Room_No_Available ، السطر بين سطري j' هو الذي حل المشكلة: Private Sub cmd_Disposal_Click() Forms!frm_Rooms_Available.SetFocus If IsNull(Me.Patient_No) Or (Me.Patient_No) = "" Then MsgBox "There is no Patient", vbOKOnly, "" Me.Undo Cancel = True Exit Sub End If Me.Check = True Forms!frm_Rooms_Available!xxx = Me.Patient_No 'j Me.Dirty = False 'j DoCmd.OpenForm "frm_Discharge_Endorsement" DoCmd.OpenForm "frm_Rooms_Available", , , , , acHidden End Sub . جعفر

استبدل الرقم 5 بعدد الصفحات والرقم 4 بعدد الصفحات ناقص 1

السلام عليكم ورحمة الله تم تجسيد فكرتي في الملف المرفق، أرجو أن تفي الغرض المطلوب... الفكرة تتمثل أن العامل يعمل مثلا في اليوم من 08:00 إلى 12:00 ثم من 13:00 إلى 17:00 فيكون له دخول1 ثم خروج1 ثم دخول2 ثم خروج2 في اليوم الواحد وتتجدد العملية في اليوم الموالي وهكذا... جرب إدخال الرقم 1234567890111 أربع مرات لتشاهد النتائج في الجدول في شيت "تجميع الدخول والخروج"... إذا كان لديك اقتراحات أخرى تجدني إن شاء الله في الخدمة... والله أعلى وأعلم Classeur5.rar

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

تستحق اكثر من ذلك من الكلمات الطيبه .. جزاك الله كل خير وبارك فيك وقد تمت التجربه بعده معايير للفرز ( صفحات اكثر باسماء المعايير ) تمت بنجاح .. الخلاصه : لابد من ترك صفين تحت الرؤوس المدمجه ... الصف الاول الذي تركناه فاضي والصف اللي تحته يكون فيه اسماء العناوين بدون دمج .... أليس كذلك ؟ ============= مامهعنى هذه الجمله ولماذا هذه الارقام ؟ For i = 2 To 5 ولماذا تختلف عن هذه الجمله For i = 1 To 4

شكراً اخي ناصر على المرور والاطراء الذي لا استحقه الرقم 12 هو اختصار للعبارة "xlCellTypeVisible" ما رأيك لوكان في العامود اكثر (أو أقل) من اريع متغيرات (Criteria) (حاول ان تضع كود لعدد متغير من Criteria) بالتالي متغير من الصفحات الافضل ان يختتم الكود بهذه العبارة Erase arr Set S_sh = Nothing: Set My_Sheet = Nothing: Set My_Rg = Nothing: i = 0 كي لا تبقى شيء في الذاكرة يثقلها

أرفقت قاعدة البيانات شكرا لك

أشكركم جميعا على حسن الرد أولا قمت بتنفيذ كود الأخ جعفر وجارى تجربة و تنفيذ كود الأخ أبى خليل و أوافيكم بالنتائج أولا تعديل كود الأخ جعفر ليوافق ما أريد Private Sub Form_Load() Dim Counter As Integer Set rst = CurrentDb.OpenRecordset("Select * From tbltabs") rst.MoveLast: rst.MoveFirst rc = rst.RecordCount RF = rst.Fields.Count 'Records For i = 1 To rc Counter = 0 'Fields For j = 1 To RF - 1 'Debug.Print rst(j).Name & vbTab & rst(j) If rst(j).Name <> "tt_ID" And rst(j).Name <> "ttab_No_ID" And _ rst(j).Name <> "tt_tname" And rst(j).Name <> "h_c" Then If Len(rst(j) & "") <> 0 Then Counter = Counter + 1 End If End If 'rst Next j rst.Edit rst!h_c = Counter If Counter = 0 Then rst!h_c = 0 Else rc = 1 End If rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing End Subgadwal2003.rargadwal.rar كود الأخ أبى خليل يصعب كتابة اسم 49 حقلا جزاك الله خيرا ربما يصلح هذا الكود فى موضع آخر

My_Rg.SpecialCells(12).Copy My_Sheet.Range("B4") مامعنى العدد 12 ... ولماذا ال 12 تم تنسيق الملف ووضع كود استاذ سليم الرائع ونتعشم في شرح الكود الفلتره للمحترم سليم حاصبيا.rar

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

وعليكم السلام اخوي ابو ياسين لا تعمل جملة SQL في الكود ، اعمل العكس ، اعمل الاستعلام اللي تريده ، ثم حوله الى SQL ، ثم اخذه الى الكود واعمل التعديل. ادخل الكود عن طريق Ctrl + G (ولا تدخله بطريقة اخرى) ، والذي سيعطيك شاشة الكود ، بالاضافة الى شاشة صغيرة في الاسفل ، والتي سنأخذ منها SQL لتجربيته في الاستعلام. ولما تأخذ SQL الاستعلام الى الكود ، فككه الى اسطر ، واربط كل سطر مع اللي قبله (لاحظ الكود التالي) ، واهم شيء تعمله هو ان تكتب جملة debug.print mySQL بعد نهاية عمل جملة الـ SQL وقبل ان تنفذ الامر docmd.runsql ، هذا الامر سوف يعطيك في اسفل شاشة الكود ، سيعطيك جملة الـ SQL بعد اضافة القيم فيها ، عندها تستطيع ان تنسخ هذه الجملة من اسفل شاشة الكود ، وتذهب الى الاستعلام وتلصقه هناك ، وتشغل الاستعلام ، واذا اعطاك خطأ ، فإصلح الاستعلام ، ثم اخذ SQL الى الكود للمقارنه ، وهكذا .... هذه طريقة كتابة الكود (مثلا) : mySQL = "UPDATE [Hrakatsanf]" mySQL = mySQL & " SET [Alkmiah]=[Alkmiah]-" & [Forms]![frm_Recall_sales]![SubSales]![Alkmiah] mySQL = mySQL & " WHERE Rajmsanf='" & [Forms]![frm_Recall_sales]![SubSales]![Rajmsanf] & "'" mySQL = mySQL & " And Rjmfatwra='" & [Forms]![frm_Recall_sales]![frm_mr]![Rjmfatwra] & "'" Debug.Print mySQL DoCmd.RunSQL mySQL . جعفر

يحفظك الله ويرعاك استاذ بن عليه === ويحفظك الله ويرعاك استاذ hassanask ويحفظك الله ويرعاك استاذ YasserOriba

السلام عليكم ورحمة الله بدون ملف لا يمكن إعطاء حل للمسألة... لكن أقترح عليك مراجعة الرابط التالي لميكروسوفت علك تجد فيه ضالتك: Too Many Different Cell Formats Error وليس لي فكرة أخرى... بن علية حاجي

السلام عليكم ومشاركة مع اخي ابو آدم ، انظر الى طريقة عملي في هذا الرابط جعفر

اخي العزيز حفظ مرفق واحد في مربع الحوار المرفقات، انقر فوق حفظ باسم. يظهر مربع الحوار حفظ مرفق. استخدم القائمة حفظ في للانتقال إلى الموقع الجديد للملف، ثم انقر فوق حفظ. حفظ جميع المرفقات في مربع الحوار المرفقات، انقر فوق حفظ الكل. يظهر مربع الحوار حفظ المرفقات. استخدم القائمة بحث في للانتقال إلى الموقع الجديد لملفاتك، ثم انقر فوق حفظ. ........... Save a single attachment In the Attachments dialog box, click Save As. The Save Attachment dialog box appears. Use the Save in list to navigate to the new location for your file, and then click Save. Save all attachments In the Attachments dialog box, click Save All. The Save Attachments dialog box appears. Use the Look in list to navigate to the new location for your files, and then click Save.

تفضل جرب المرفق وأنا في انتظار تجربتك وموافاتي بالنتيجة أو أي تعديلات أن وجدت تقبل تحياتي نقل بيانات5.rar

يقول خبراء بان الخلافات المزعومة بين Exists و INفي التقنية و الاداء ناتجة عن عدم ادراك (implementations, limitations,bugs ) التطبيقات و المحددات او الحدود و الاخطاء لدى البعض ، و عموما ناتجة في غالبها عن قصور في فهم صحيح لقواعد البيانات . إن التحليل السليم وإحسان تعريف وإنشاء الجداول، ودقة الإحصاءات، وتكوين قاعدة بيانات سليمة ، لها تأثير على خطة التنفيذ للقاعدة وبالتالي على مقاييس الأداء والفاعلية . و للتفصيل نقول ، لا بد من ادراك المشغلات و الجمل و غاياتها و استيعاب تطبيقاتها و محدداتها ( حدودها ) قبل التعامل معها و / أو اختيار أي منها ، فلا بد من تطابق غايتنا من الاستخدام مع الغاية التي جعلها المطورون لهذا المشغل او الجملة ، بالاضافة لمراعاة الحدود و السرعة الافتراضية لاظهر النتائج و الوصول للغايات. و ابتداءا ... لماذا لا نتحقق من الناس الذين طوروا تلك المشغلات في أنظمتهم؟ الجواب المباشر من Microsoft يقول بان : IN Determines whether a specified value matches any value in a sub query or a list. لتحديد ما إذا كانت قيمة محددة تطابق أي قيمة في استعلام فرعي أو قائمة. EXISTS: Specifies a sub query to test for the existence of rows. تخصيص استعلام فرعي لاختبار وجود صفوف. و بالبحث في الغايات نجد أن : Exists مشغل يتحقق من وجود نتيجة استعلام فرعي ، يختبر المشغل ما إذا كان طلب البحث الفرعي يجلب صفا واحدا على الأقل ليعود بالقيمة True، اما اذا لم يتم إرجاع أي بيانات ، يقوم هذا المشغل بالعودة بالقيمة FALSE. Exists هو: · مشغل مقارنة comparison operator · يستخدم في جملة Where ليقيم شرط It Exists · يخبرك اذا كان الاستعلام قد عاد باي نتيجة · يعود بالقيمة True اذا كان الاستعلام الفرعي يحتوي أي صف SELECT agent_code,agent_name,working_area,commission FROM agents WHERE exists (SELECT * FROM customer WHERE grade=3 AND agents.agent_code=customer.agent_code) ORDER BY commission; IN مشغل يقوم بالتحقق من قيمة ضمن مجموعة من القيم مفصولة بفواصل واسترجاع صفوف الجدول المطابقة ، ويرجع بالقيمة 1 عندما تكون قيمة البحث الموجودة ضمن النطاق وخلاف ذلك يرجع بالقيمة 0. يمكن أن تكون قيمة التحقق قيمة نصية ، سلسلة أو كلمة أو جملة (string , word , sentence ) ، أو قيمة رقمية ، ويمكن أيضا التحقق من هذه القيم ضمن مجموعة من القيم مفصولة بفواصل واسترجاع الصفوف التي تحتوي على هذه القيم . SELECT * FROM agents WHERE working_area IN(‘London’,’Mumbai’,’Chennai’); و بالتنقيب بين ملاحظات المطورين و المستخدمين في باب الغايات و باب السرعة ، نورد لكم بعض الملاحظات و التطبيقات من هنا وهناك : IN يدعم فقط علاقات المساواة (أو عدم المساواة عندما يسبقه Not). وهو مرادف ل = أي / = بعض، على سبيل المثال select * from t1 where x in (select x from t2) ; Exists يدعم أنواع مختلفة من العلاقات، والتي لا يمكن التعبير عنها باستخدام IN ، على سبيل المثال select * from t1 where exists (select null from t2 where t2.x=t1.x and t2.y>t1.y and t2.z like '℅' || t1.z || '℅' ) ; في IN لا يمكن مقارنة أي شيء مع NULL ، ولكن شرط Exists يمكن مقارنة كل شيء مع NULL . عندما لا تعرف ان كان السجل موجودا أم لا، يجب عليك اختيار EXIST عندما يكون طلب البحث الداخلي لجلب ألاف الصفوف، سيكون Exists هو الخيار الأفضل عندما يكون طلب البحث الداخلي لجلب صفوف محدودة ، سيكون IN أسرع هذا عموم القول و بعض تفصيله .....

الاخ مصطفى وعليكم السلام ورحمة الله وبركاتة ضع الاضافات والاسئلة والاجوبة فى الملف ولو فيه طلب اطلبه على الملف

السلام عليكم كود اخي ابو خليل شغّال تمام ، بشرط ان تكون اعدادات النموذج تسمح بإصطياد ازرار الكيبورد قبل الذهاب الى الكود ، هكذا: . جعفر

بعد اذن اخوي ابو خليل الاخ فارس مع ابقاء الكود اعلاه ، قم بانشاء زر في راس الفورم Form Header ثم من خصائص الزر ضع خاصيه Transparent من تاب Format الى نعم , ومن تاب other ضع خاصيه Cancel الى نعم بعد ذلك ضع الكود التالي في حدث on Click للزر DoCmd.Close acForm, Me.Name ثم قم بالحفظ و تجربه مفتاح ESC

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.Close End If End Sub

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

تحياتى وتقديرى لك وهذا شرح الكود --- أى تغير يقوم بكتابتة فى ورقة 3 فى الخلية BQ1 --- ------------------------------------------------------------------------------------- فى حالة اختيار CheckBox1 تكون الخانة التى يتم ادراج بها تاريخ الميلاد غير ظاهرة textbox2 وكذلك Label3 غيرظاهرة اللى هى أسم تاريخ الميلاد وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة --------------------------------------------------------------------------------------- فى حالة اختيار CheckBox2 يكون فيه الخانة التى يتم ادراج بها تاريخ الميلاد ظاهرةtextbox2 وكذلك Label3 ظاهرة اللى هى أسم تاريخ الميلاد وكذلك Checkbox2 غيرمفعلة اللى هى رقم البطاقة ------------------------------------------------------------------------------------------- اى تغير يقوم بكتابتة فى ورقة3 فى الخلية br2 ----------------------------------------------------------------------------- اى تغير يقوم بكتابتة فى ورقة3 فى الخلية bs2 ------------------------------------------------------------------- لتصبح على هذا الشكل ------------------------------------------------------------------------------------------ زر الادخال الجزء الاول الذهاب الى ورقة 3 فى الخلية br1 استخدام if & VLookup للبحث عن كود الصيدلية المختارة والتى كتبت فى الخلية BQ1 المعادلة هى ------------------------------------------------------------------------------------------------------------------ الجزء الثانى - الذهاب الى ورقة 3 - اذا ComboBox1.Value أو TextBox1.Value لا تساوى , قيمة = "" اعطاء رسالة برجاء اكمال البيانات - ورقة 1هى التى يتم نقل البيانات الية بالخلية التى تلى اخرخلية بها بيانات بالعمود الاول a50000").End(xlUp).Row + 1 نقل محتوى الخلية br1 الى ورقة 3 اللى هى كود الصيدلية ورقة 1 فى العمود الاول azsh, 1 حيث واحد هى تريب العمود اذا تريد b مثلا يبقى تغيرها الى 2 --------------------------------------------------------------------------------------------------------------- الجزء الثالث من كود زر الادخال والاخير يقوم بنقل الخليتين br2 اللى هى رقم الجواز أو البطاقة على حسب الاختيار bs2 اللى هى تاريخ الميلاد Range("BQ1:BS3").Select Selection.ClearContents تعنى مسح المجال من bq1:bs3 وفى النهاية اعطاء رسالة تم بنجاح MsgBox " " ------------------------------------------------------------------------------------------------------- وفى النهاية اتمنى لك دوام الصحة والتوفيق