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

وعليكم السلام Shared ، هذه خاصية تم ادخالها في الاكسس 2010 ، والتي يعمل الاكسس جدول خاص للصور ، ثم يحفظ الصورة/الصور في الجدول ، فهذا معناه ان هذه الطريقة في واقع الامر مدمجة Embedded ، ولكن ، الميزة انك تستطيع استعمال نفس الصورة مرارا في النماذج والتقارير بينما اذا رجعنا الى طريقة ربط الصور Linked ، فبعدما تربط الصورة ، كالتالي ، مثلا: اسم الحقل: img اسم النموذج: frm_Main ربط الصورة يكون هكذا ، مثلا: Me.img.Picture = application.currentproject.path & "\Images\myPic.jpg" . واذا اردت استعمال نفس الصورة في نموذج/تقرير ثاني/ثالث ، فيمكنك استعمال الكود التالي: Me.img2.Picture = Forms!frm_Main.img.picturedata والذي لن يأخذ الصورة من القرص الصلب ، وانما سيأخذ نسخة من الصورة التي في الحقل img في النموذج frm_Main ، وسيكون اسرع من استدعاء الصورة من القرص الصلب ، ويمكنك استعمال هذا الكود في جميع اصدارات اكسس جعفر

برنامج عملاء وموردين مفتوح المصدر مضاف نسخة بالتاريخ الهجري وأخري بالميلادي وبيانات الاستخدام كالتالي : البرنامج يعمل علي Office 2010 فما فوق اسم المستخدم : admin كلمة المرور : admin اسم المستخدم لتفعيل الشفت : ahmed كلمة السر : Ah0562982701 كلمة سر أكواد VBA فيجوال بيسك : ah0562982701 كلمة السر لتفريغ البيانات : 562982701 رابط البرنامج : http://www.mediafire.com/file/4atr6oxq1ptqm7q/إنجاز+نسخة+ميلادي.accdb http://www.mediafire.com/file/l2f334fkuyy7y5u/إنجاز+نسخة+هجري.accdb البرنامج مجاني و لا أريد الا دعوة صادقة لوجه الله تبارك تعالي بأن يعفر لوالدي ويديم الصحة والعافية علي والدتي وفي انتظار ارائكم ،،

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته اذا امكن كود برمجي لفتح قاعدة بيانات اكسيس خارجية محمية برقم سري وحسب البرنامج المرفق DB_Pass.rar

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

ولااروع سهولة في التطبيق .. سرعه في التنفيذ كود استدعاء للمبدع ياسر العربي Sub ALL() ''هذا الكود للعبقري ياسر العربي حفظه الله '' تم هذا الكود بتاريخ 8 / 10/ 2016 ''الهدف من الكود هو استدعاء البيانات ''شرح الكود ''متغيرات Dim myArray, lr, X, targt, targt1, targt2, targtN Dim SERCH As Worksheet, _ DATA As Worksheet '____________________________________________ 'اسم شيت قاعدة البيانات Set DATA = Worksheets("رصد الترم الثانى") 'اسم الشيت الخاص بالبحث Set SERCH = Worksheets("كشوف الطلبه") '____________________________________________ 'المدى الذي سيتم مسحه في صفحه الهدف Range("D10:AB1000").Clear 'المدى الذي سيتم نسخه لعدد محدد بخليه محدده Range("C9:AB9").AutoFill _ Destination:=Range("C9:AB" & _ Range("B4").Value + 8), Type:=xlFillDefault 'اخر صف به بيانات lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row + 2 'مدى صفحة الهدف وهو يبدأ بعد عمود المسلسل 'والرقم الموجود هو رقم عمود البدايه ' 'مسح نطاق البحث القديم SERCH.Range("D9:AB" & SERCH.Cells(Rows.Count, 4) _ .End(xlUp).Row + 1).ClearContents 'معيارين البحث ' targt2 = targt targt = "له* دور ثان في" targt2 = "ناجح" 'نطاق قاعدةالبيانات ' صفحة المصدرالذي سيتم البحث فيه myArray = DATA.Range("A7:FF" & lr) '____________________________________________ ReDim Y(1 To UBound(myArray, 1), 1 To _ UBound(myArray, 2)) For X = LBound(myArray) To _ UBound(myArray) If targt = "" Then Exit Sub 'هنا التعديل للمعيارين If myArray(X, 101) Like targt & "*" _ Or myArray(X, 101) Like targt2 & _ "*" Then rw = rw + 1 'متغير ارقام 'الاعمده المطلوب الاستدعاء منها 'العمود التاني بعد المسلسل Y(rw, 1) = myArray(X, 2) 'العمود الثالث بعد المسلسل Y(rw, 2) = myArray(X, 3) 'العمود الرابع بعد المسلسل Y(rw, 3) = myArray(X, 13) 'العمود الخامس بعد المسلسل Y(rw, 4) = myArray(X, 22) 'العمود السادس بعد المسلسل وهكذا Y(rw, 5) = myArray(X, 31) Y(rw, 6) = myArray(X, 40) Y(rw, 7) = myArray(X, 51) Y(rw, 8) = myArray(X, 52) Y(rw, 9) = myArray(X, 82) Y(rw, 10) = myArray(X, 101) Y(rw, 11) = myArray(X, 102) ' Y(rw, 12) = myArray(X, 110) ' Y(rw, 13) = myArray(X, 111) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 4).End(xlUp)(2, 1).Resize(rw, 13).Value = Y() End Sub الاستدعاء بطريقه ( خليفه عبد الله باقشير ) الاستاذ ياسر.rar

جرب المثال المرفق. جلب البيانات_ن001 .rar

تفضل جعفر

احسنت استاذي الفاضل Shivan Rekany هذا هو فعلا طلبي اريد برنامج يقوم بفتح اي قاعدة بيانات محمية برقم سري وشكرا لك استاذي الفاضل محمد سلامه مع جزيل الشكر لاستاذي الفاضل Shivan Rekany وربي يحفظكم يارب

السلام عليكم ورحمة الله وبركاته يا استاذ محمد سلامة الف تحية لك انا نزلت القاعدة ... وحسب فهمي للموظوع عو يريد ان يعمل له برامج لفتح قاعدة بيانات محمية مع تقدير

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

1. رحم الله والديك 2 و 3 هاي ما فهمتهم جعفر

اخ ابو نادر هذا اللى بطلع معي بعد تنفيذ الملف اللى انت أرفقته

اتفضل اتمنى ان ينال اعجابك واسف على التأخير الرد c (1) (1).rar

الله يعطيكم العافية وجزاكم الله خيرا استفدت جدا من الموضوع

السلام عليكم ورحمة الله استبدل المعادلة السابقة بهذه المعادلة =IF(B1="";"";COUNTA($B$1:B1))

وعليكم السلام أخي صالح اعتذر منك على التأخر في الرد ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية: 1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ، 2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ، 3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس جعفر

كل اللي احتاجه منك هو: 1. ادخل في الصفحة التي تريد ادخال البيانات فيها ، وإحفظ لي الصفحة بصيغة HTML (يكون عندك مجموعة خيارات ، واذا احترت بين خيارات الحفظ ، فاحفظ الصفحة بكل اختيار على حده) ، 2. اعمل نفس الشئ لكل صفحة تريد ارسال/استرجاع المعلومات منها ، 3. برنامجك الاكسس ، وياريت يكون عندك نموذج جاهز فيه جميع الحقول اللي تريد ارسال بياناتها ، وبرنامجك يكون فيه بيانات للتجربة ، 4. واعمل لي بالوورد/الاكسل/الاكسس جدول ، فيه اسم الحقل من برنامجك ، يقابله اسم الحقل الذي تريد ادخال البيانات فيه في الموقع ، 5. انسخ url (عنوان كل صفحة) ، واعمل لي بالوورد/الاكسل/الاكسس جدول بهذه العناوين. انا ما بيكون لي علاقة في دخول الموقع وكلمة السر ووووو ، وانما سأتعامل مع الصفحات فقط ، والله يسهل ان شاء الله جعفر

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

اولا الشكر للاستاذ شيفان ثانيا : اختي الفاضلة كويس ان ابو خليل ما كفشنا في مشاركاتنا السابقة فهي مخالفة نوعا ما بان احتوت على اكثر من موضوع ومن قوانين المنتدى يفرد كل موضوع لوحده الان ارى اختي بان تفتحي موضوع جديد بعنوان اخفاء نوافذ الاكسس نهائيا ولو بحثتي لوجدتي كثير من المشاركات حول هذا الموضوع بالتوفيق

تفضل ,,, هل هذا هو مطلوبك ؟ Search1.rar

اكتب هذه المعادلة في A2 و اسحب نزولاً =IF(C2="","",MAX($A$1:A1)+1)

اتفضل كما تريد c (1).rar

أخي الكريم هذا ما يقوم به الكود بالفعل ..قمت بتجربة الكود مرة أخرى فقام بتصدير الورقة Sheet1 إلى مصنف جديد وبه نفس اسم الورقة المنسوخ منها فقط تم تغيير السطر الخاص بالحفظ ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\YourFileName.xls", FileFormat:=56, CreateBackup:=False هذا السطر ليكون التصدير بصيغة 97/2003

اتفضل اخي كما تريد استيراد بيانات.rar

انظر داخل الكود في المثال ستجد السطر المسؤول عن تخصيص الملفات المعروضة strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") لا حظ انه حدد نوع الملفات عدل عليه كما تريد ، انظر السطر هذا اضفت اليه قواعد بيانات اكسس AddFilterItem(strFilter, "Excel and access Files (*.xls), *.xls, *.mdb") او تدري عن شي احسن من كل هذا : افتح اي شيء انظر السطر strFilter = ahtAddFilterItem(strFilter, "any Files (*.*)")

اتفضل ان شاء الله يكون ده طلبك غيرت هذا الجزء من الكود القديم ده (*.xls)", "*.xls") بهذا الكود (*.xls;*.xlsx)", "*.xls;*.xlsx") -2استيراد بيانات.rar

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

الافضل التحويل الي accde ثم تغيير الامتداد الي accdr ولكن عليك الاحتفاظ بنسخة لديك مفتوحة عشان او حبيت تعدل شئ اما البرامج السابقة لديك والتي غيرت امتدادها فقط الي accdr فقط اعد تغيير الامتداد مرة اخري الي accdb وعدل كما تريد حبيبي تحت امرك

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

تفضل اخي الكريم .. الموضوع انك غيرت الامتداد بتاع الملف ولم تقم بتشفيره واسف لو كلامى سببلك ضيق ولو احتجت شئ تحت امرك v1.rar

اتفضل البرنامج مفتوح المصدر طبعا عند الفتح اضغط مفتاح SHIFT اى خدمة ....... حصر.rar

الرابط

أستاذ جعفر جزاك الله خير لقد توصلت إلى كود يمكنني من عمل ضغط لأي قاعدة بيانات FileCopy "f:\100.accdb", "e:\100.accdb" Kill "f:\100.accdb" Set acc2007 = CreateObject("DAO.DBEngine.36") acc2007.CompactDatabase "e:\100.accdb", "f:\100.accdb", Nothing, Nothing Set acc2007 = Nothing Kill "e:\100.accdb" MsgBox "لقد إنتهت المهمة بنجاح" Quit أتمنى أن تعطيني رأيك في هذا الكود

وعليكم السلام تفضل . والنتيجة . اهم شئ في مثل حالاتك ، انك ما تضيف حقل "الترقيم التلقائي" AutoNumber ، وإلا فالاستعلام سيعطيك رسائل خطأ ولن يعمل جعفر 490.الحاق.accdb.zip

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

::: مبروك .. لقد حصل على الهدية .... Time counter .

السلام عليكم وحتى يكتمل الموضوع ، اخذت جزئية من احد برامجي ، وهي لحساب السنه والشهر واليوم ، يعني الحساب بالكامل . وهكذا ننادي الوحدة النمطية . والنتيجة . والوحدة النمطية Public Function YMDDif2(sDate1, sDate2) 'Public Function YMDDif2(sDate1, sDate2, Cont_Type, Res_Date) On Error GoTo err_YMDDif2 'sDate1 earliest date 'sDate2 later date 'Cont_Type = Contract Type 'Res_Date = Resignation Date Dim dInterim1 As Date ' If Cont_Type = "استقالة" Or Cont_Type = "متقاعد" Then ' sDate2 = Res_Date ' End If iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 YMDDif2 = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي" Exit Function err_YMDDif2: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . جعفر 473.2.db.mdb.zip

جرب هذا استاذ ابا خليل xf = "C:\abcd\" xid = 2 xt = 10 x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4) طبعا لابد من وجود المسار ويسمح بالكتابة عليه تحياتي

هذا يفتح مسجل الصوت x = Shell("c:\windows\system32\soundrecorder.exe ", 4)

جرب هذا الكود لانه ليس لديا أوفيس 2003 لتجربته Private Sub Workbook_Open() If Application.Version > "11" Then MsgBox "هذا الرنامج لا يعمل إلا على النسخة 2003", vbInformation + vbOKOnly, "خطأ" Application.DisplayAlerts = False With ThisWorkbook .Saved = True .Close End With End If End Sub

للعلم لكى يعمل المرفق بشكل سليم يجب وضع صورة متحركة فى نفس مجلد القاعده ويجب ان يكون اسم الصورة بالامتداد فى فولد القاعدة بهذا الاسم www.gif

أخي الحبيب محمد تفضل الملف المرفق ...كل ما عليك أن تضع أوراق العمل المطلوب جلب البيانات منها في مصفوفة بالترتيب الذي ترغب التعامل معه Sub CollectDataFromSheets() Dim MyArray As Variant, Item Dim LR As Long MyArray = Array("خط التعبئة والتغليف", "خط الاستلام والتجهيز", "1", "2", "3") Application.ScreenUpdating = False Sheets("شيت مجمع").Range("A3:H1000").ClearContents For Each Item In MyArray With Sheets(Item) .Activate LR = .Cells(300, 2).End(xlUp).Row .Range("B5:H" & LR).Copy With Sheets("شيت مجمع") .Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 2).End(xlUp).Row) = Sheets(Item).Name End With End With Next Item Sheets("شيت مجمع").Activate: Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ويتم ذلك من خلال السطر الرابع إليك الملف المرفق للتجربة ولا تنسى أن تحدد المشاركة التي تعجبك كأفضل إجابة ليظهر للأخوة الأعضاء أن الموضوع مجاب ، وعشان آخد نقطة (بعد التعب دا كله) تقبل تحياتي Collect Data From Sheets V2.rar

تحديث لبرنامج ( كشوف المناداة وقوام الفصول ) للطباعة المنفصلة لكشف المناداة وكشف الدور الثانى بحيث يتم لصقهم متجاوريين لكى يظهروا بالحجم المعقول قوائم الفصول وكشوف المناداة + كشوف الدور الثانى.rar

السلام عليكم أخي الكريم تفضل المرفق فاتورة جديدة2.rar

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

شاهد المرفق، _________________.rar