jjafferr

. 1. الجواب المختصر هو لا ادري ولكن حسب قرأتي البسيطة عن الموضع البارحة ، فهناك برامج تستطيع ان تفتح لك الملف . ابحث في الانترنت عن اسم الملف اعلاه ، وسترى النتائج. 2. عفوا ما فهمت قصدك ، واعتقد الافضل ان تعمل سؤال جديد وترفق معاه الملف اللي تتكلم عنه ، ولوسمحت اشرح المطلوب بإفاضة جعفر

وعليكم السلام اعمل استعلام تحديث: . ثم كود الطباعة سيكون: 1. احفظ السجلات حتى نرى التغييرات في التقرير ، 2. قد لا تستطيع ان تستخدم معاينة التقرير ، لأننا في الخطوة 3 سنقوم بتحديث جميع علامات الصح الى لا شئ ، 3. سنقوم بطباعة التقرير مباشرة ، 4. وبعد طباعة التقرير ، سنقوم بتحديث علامات الصح الى لا شئ وقد تحتاج الى عمل التالي ، حتى تنعكس النتائج على النموذج: me.form.requery جعفر

حياك الله

وهاي طريقة استيراد البياناتمن ملف اكسل يحتوي على الاسم والرقم الاكاديمي http://www.officena.net/ib/topic/65709-ترتيب-حقول-مستوردة-من-أكسل/?do=findComment&comment=427672 جعفر حياك الله استاذنا الفاضل جعفر

ماشاء الله عليك أخوي رمهان ، مو طماع جعفر

أخي طارق اسم الملف الحقيقي هو "smime.p7m" والظاهر ان له علاقة بالايميل المشفر. جعفر

السلام عليكم أخي طارق ارفق الملف وسننظر فيه ، وإلا فالكلام كله مافيه فايده جعفر

تفضل هذا الموضوع تكملة للموضوع: http://www.officena.net/ib/topic/65628-كود-لحذف-الاسطر-3-الاولى-من-شيت-اكسل-بالأكسس/ هذا الكود الجديد الذي يقوم بالعمل: Private Sub cmd_Remove3_Click() If Len(Me.txt_Dont_Delete & "") = 0 Then MsgBox "ÑÌÇÁ ÇÏÎÇá ÇáßáãÉ ÇáÊí ãäåÇ äÈÏà ÇáÊÓÌíá" & vbCrLf & _ "Please write the word to start writing from" Me.txt_Dont_Delete.SetFocus Exit Sub End If Dim TextLine, File_Name, File_ext, Folder_Name, nFile_Name File_Name = Dir(Me.txtPath) 'the file name only File_ext = Mid(File_Name, InStrRev(File_Name, ".") + 1) 'the file extension Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name 'a temp csv file to transfer to it the correct lines nFile_Name = Folder_Name & Mid(File_Name, 1, Len(File_Name) - Len(File_ext) - 1) & "_2." & File_ext 'open both Input and Output files Open Me.txtPath For Input As #1 Open nFile_Name For Output As #2 d = 0 i = 0 Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. i = i + 1 'skip the 1st 3 lines, and write the rest If InStr(TextLine, Me.txt_Dont_Delete) > 0 Then d = -1 End If If d = -1 Then Print #2, TextLine End If Loop Close #1 Close #2 'now we have a csv file correctly saved, 'convert it to xls 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False 'delete the temp cvs file Kill nFile_Name MsgBox "Done" End Sub جعفر 298.1.Remove_Lines_csv.mdb.zip

حياك الله ولطلب المزيد ، رحاء اتياع قوانين المنتدى ، وعمل سؤال جديد جعفر

حياك الله أخونا العود أبوخليل هذا قليل مقابل عطاءكم الكثير أخي عبدالرحمن الغالي ، شرفتنا جعفر

. 1. انا على قد حالي ، ما اعرف غير الاكسس 2. جميع معادلات التواريخ في الكمبيوتر تأخذ في الاعتبار السنوات البسيطة والكبيسة ، إلا اذا قمت انت بنفسك بحساب الايام بطريقتك الخاصة والتي لا تستعمل فيها معادلات التواريخ. جعفر

وعليكم السلام اذا اردت ان تحذف البيانات بين تاريخين ، فيجب وضع معيار بين تاريخين ، في الاستعلام ، هكذا: . اما جدول المعلمين ، فلأنه غير مرتبط مع الجداول الاخرى ، فيمكن حذف بياناته كامله ، هكذا: DELETE * FROM المعلمين جعفر 302.delete.accdb.zip

اذن لا تغير شئ في البرنامج ، والحقول الثلاثة اللي طلبتها موجودة جعفر

حياك الله تقدر تحذف الحقل اللي ما تريده ، ومن الكود ، احذف السطر التالي: Me.YMD = YMDDif2(Me.Date_From, Me.Date_To) جعفر

تفضل أخي الاستاذ ولكني لاحظت ان عدد الطلبة من جميع اوراق الاكسل بلغ 1527 ، والكثير منهم متكرر ، فاذا اردت ان تجعل الاسم غير متكرر (لما جربته وصل عدد الطلبة الى 218) ، فيجب ان تغيير اعدادات الاسم في الجدول ، هكذا: جعفر 299.ImportDegrees.accdb.zip

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

وقد تستفيد من النموذج في الرابط التالي: http://www.officena.net/ib/topic/65726-هدية-المدة-بين-تاريخين-،-و-اضافةخصم-سنوات-واشهر-وايام/ جعفر

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

وعليكم السلام ورحمة الله وبركاته مو علوم خبر تفضل: جعفر 300.حساب مدة عمل الموظف.accdb.zip

السلام عليكم أخي الموسى انا اعتذر منك لأني ماكنت ادري انك مدرس ملف الاكسل فيه معلومات كثيرة ، فهل انت متأكد انك محتاج هذه المعلومات الثلاث فقط!! مثل ما لاحظت في الرابط السابق ، استخرجنا الكثير من المعلومات من ملف الاكسل جعفر

وعليكم السلام سؤالك غير واضح فاذا كان قصدك انك تريد ان تجعل النموذج الفرعي تحت "رأس النموذج" الرئيسي ، فاليك الطريقة: اختر النموذج الفرعي ، احذفه ، اضغط على "راس النموذج" وسيتغير لونه ، اعمل لصق ، وسيكون النموذج الفرعي هناك جعفر

تفضل أخي صابر انت تختار الملف ، ويقوم الكود بالباقي الكود هو: Dim TextLine, File_Name, File_ext, Folder_Name, nFile_Name File_Name = Dir(Me.txtPath) 'the file name only File_ext = Mid(File_Name, InStrRev(File_Name, ".") + 1) 'the file extension Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name 'a temp csv file to transfer to it the correct lines nFile_Name = Folder_Name & Mid(File_Name, 1, Len(File_Name) - Len(File_ext) - 1) & "_2." & File_ext 'open both Input and Output files Open Me.txtPath For Input As #1 Open nFile_Name For Output As #2 i = 0 Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. i = i + 1 'skip the 1st 3 lines, and write the rest If i >= 4 Then Print #2, TextLine End If Loop Close #1 Close #2 'now we have a csv file correctly saved, 'convert it to xls 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False 'delete the temp cvs file Kill nFile_Name جعفر 298.Remove_3_Lines_csv.mdb.zip