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

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

1. النموذج الاول frm_1 فيه الحقلين a1 و a2 ، 2. قصدك وانت على النموذج الاول ، وفيه زر "cmd_Open_frm_2" ، تنقر عليه لتفتح النموذج الثاني frm_2 3. وعند فتح النموذج الثاني ، تأخذ قيمة a1 و a2 من frm_1 ، وتعطيهم الى b1 و b2 في النموذج frm_2 Private Sub cmd_Open_frm_2_Click() DoCmd.OpenForm "frm_2" Forms!frm_2!b1 = Forms!frm_1!a1 Forms!frm_2!b2 = Forms!frm_1!a2 DoCmd.Close acForm, Me.Name, acSaveNo End Sub . هذا نفس كلام اخي عبداللطيف ، ولكن بتفصيل اكثر 🙂 جعفر

وعليكم السلام 🙂 هذا الكود يقوم بالازم : =[iData] & " " & String(50-Len([iData] & " "),".") هذا الامر معناه اعمل 50 مرة ، الحرف/العلامة اللي بين "." string(50,".") . ولكن بسبب ان عرض الحروف ليس متساوي ، نرى الفرق بين الاسطر . جعفر 1096.Dots.mdb.zip

forms![xx]!n1=forms![x2]![n2] xx ... اسم النموذج n1... اسم الحقل في الجدول x2....اسم النموذج الذي تريد النقل اليه n2.... اسم الحقل المنقول اليه

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها 'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico" 'Hide Access >>---> CallStartForm() 'CenterObjects >>---> Call CenterFrm(Me) 'Minimize To Systray >>---> Call AppMini() 'To Quit Application >>---> Call AppQuit() 'To Close Any Forms >>---> Call AppCloseFrm() 'Application Name >>---> Call AppName() 'Designer Name >>---> Call DesName() 'Designer Phone >>---> Call DesPhone() 'Designer Email >>---> Call DesEmail() 'call Any Message From Table '>>>>> StrMyCriteria = "MyCriteria ='xxxx'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle '>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria] '>>>>> Example MyCriteria >>---->> msgDesData '>>>>> StrMyCriteria = "MyCriteria ='msgDesData'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle هذا المرفق الاول بدون عمل اختصار للبرنامج Utilities Hide Ico Minimze To SysTray.zip --------------------------------------------------------------- هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية Utilities Hide Ico Minimze To SysTray V.02.zip

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تحية طيبة وبعد لدي استعلام باجمالي الاصناف الواردة ( Q_total_in ) واستعلام باجمالي الاصناف الصادرة ( Q_total_out ) ما اريده من حضراتكم هو وضع الاستعلامين باستعلام واحد حتي اصل الى رصيد الاصناف التابعة لكل عقد بعد عملية الوارد والمنصرف لكل عقد حاولت عمل استعلام توحيد ولكن ما ظبط . بارك الله فيكم item_Balance.rar وهذا شكل توضيحي للمطلوب

لو أرفقت مثالا لكان افضل لنا ولك

هذا سجل جديد ، لأنك جئت الى هنا لإضافة سجل 🙂 جعفر

ما اعرف انا فهمت المطلوب بشكل صحيح ام لا جرب المرفق item_Balance.accdb

الطلب عن تغير كلمة السر يتوقف البرنامج ولا يتم تغير كلمة السر

ممتاز وعمل رائع جزاك الله خيرا .. مشكور

يعمل بشكل جيد الف شكر استاذ عبد اللطيف

كود جميل جدا منك ايها الجميل استاذ خالد...

واضافة لما اشار اليه استاذي الفاضل جعفر ممكن اضافة اكثر من نموذج فرعي والتبديل بينهم من خلال زر امر لاختيار النموذج المطلوب جرب الملف المرفق Database141.accdb

وعليكم السلام-اهلا بك في المنتدى -تفضل https://www.officena.net/ib/topic/49929-برنامج-لادارة-الأشتراكات-الشهرية-ضاحي-الغريب/page/5/?tab=comments#comment-457788

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

جرب هذا الملف wafiyat.xlsm

يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(99^99,--RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),ROW($1:$15))),"") أو هذه =0+(SUBSTITUTE(RIGHT(SUBSTITUTE(LEFT(B1,FIND(" عاماً",B1)-1)," ",REPT(" ",99)),99),",","")) وهذه معادلة ثالثة أيضا يمكنك استخدامها =--TRIM(RIGHT(SUBSTITUTE(RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),15)," ",REPT(" ",15)),15)) وهذه معادلة رابعة =LOOKUP(99^99,--("0"&MID(B1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},B1&"0123456789")),ROW($1:$10000)))) استخراج العمر 2.xlsx

اهلا بيك استاذ عبد اللطيف للاسف نفس المحاولة الذي قمت بها والمشكلة هى تكرار البيانات اعتقد ان الموضوع محتاج استعلام توحيد حتي يكون بنفس الشكل الاول ( الموضح على شيت اكسيل ) مشكور وبارك الله فيك

جزاك الله خيراَ استاذ علي لكن الـــ Udf تلعب دورها اكثر في حال اختيار اكثر من رقم واحد للتجميع =IFERROR(SALIM_SPLIT($A1,"(\w{2})",COLUMNS($B1:B1)),"") لتفهم قصدي جرب هذه المعادلة في الصف الاول واسحبها يميناً =IFERROR(SALIM_SPLIT($A1,"(\w{2})",COLUMNS($B1:B1)),"")

جزاك الله كل خير أستاذ سليم عمل رائع ولإثراء الموضوع بعد اذن حضرتك هذا حل اخر بالمعادلات العادية فإذا كان مثلا الرقم القومى موجود بالخلية A2 فيمكنك استخدام هذه المعادلة مع السحب بباقى الأعمدة =MID($A2,COLUMN(A2),1) الرقم القومي.xlsx

تفضل 🙂 جعفر 1097.AutoKeys DataMacro close Form Report.zip

هات مثالاً عما تريد وخذ ما يدهش العالم على كل حال جرب هذا الملف SpliT_cell.xlsm

عاشت ايدك بارك الله فيك استاذ عبداللطيف نفس الرسالة التي ظهرت للاستاذ صالح

شاهذ هذا الفيديو https://www.youtube.com/watch?v=wH03Xnr3Pug

عمل جدول متغير حسب المعطيات المطلوبة - بمجرد كتابة عدد الاسطر يتم عمل ادراج الجدول الفيديو الصور

جزاك الله خير أخ عبداللطيف لكن نفس مشكلة أبو آمنة تظهر الرسالة لدي

تم التجربة و هو يعمل شكراً أستاذى

وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز ومن واقع جدول المرفق لــ أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr مع بعض التغير داخل الجدول لتغيير التنسيق ثم تمرير التاريخ الى الموديول لنحصل على تنسيق موحد كما نريد Control Format Date - 2.accdb

طيب وبعد إذن أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr اعتقد هذه الفكرة قد تفى بالغرض ان شاء وبكل سهولة تمريردالة الوقت و التاريخ الى المتغير العام CustmNow داخل الموديول ليتم التعامل معه لاحقا حسبما نريد Public Function CustmNow() On Error GoTo errsub CustmNow = Replace(Format(Now(), "hh:nn:ss AM/PM" & Space(3) & "dd\/mm\/yyyy"), "MMM-", "") errsub: If Err.Number <> 0 Then 'MsgBox Err.Number & vbCrLf & Err.Description End If End Function وهذه التسيقات التى استخدمتها داخل الموديول ليتم استدعائها بجميع زوايا البرنامج بكل اريحية Public Function TimeNow() TimeNow = Format(CustmNow, "hh:nn:ss AM/PM") End Function Public Function DateNow() DateNow = Format(CustmNow(), "dd\/mm\/yyyy") End Function Public Function DateNowFull() DateNowFull = Format(CustmNow(), "dd\/mmmm\/yyyy") End Function واخيرا المرفق Control Format Date.accdb

جرب هذا الماكرو دوال الاكسل لا يمكنها تغيير النتسيقات( انها تنظر فقط الى محتوى الخلايا ولا يهمها الخطوط في الخلية ولا اذا كانت مدمجة أو لا) Option Explicit Sub test() Application.ScreenUpdating = False Range("B8").CurrentRegion.Clear Range("B2").CurrentRegion.Copy Range("B8") Range("B8").CurrentRegion.UnMerge Range("C10").Cut Range("C9") Range("B10:d10").Clear Application.ScreenUpdating = True End Sub الملف مرفق Small_example.xlsm

السلام عليكم 🙂 عملت نموذج جديد لإدخال بيانات القائمة ، غير مضمن ، والحقل اللي فيه كذلك غير مضمن . اضفت اسم هذا النموذج ، كنموذج تحرير لبيانات القائمة . انقر على القائمة ، حتى يفتح لك النموذج بالحقل الصحيح : . جعفر 1093.Ex2.accdb.zip

شكراً لمقترحاتك الرائعة ، أما استفساراتك كل ذلك في اعتقادي ممكن وابحث في المنتدى عن الحماية وطرقها كما في الموضوع الشيق لمعلمنا sandanet ______________________________________________________________ الأخ سمير سأطلق عليك لقب ( مدقق البرنامج ) ملاحظاتك تهمني كثيراً ، وتم إصلاح الملاحظات . جرب واعطني خبر الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" وبالتوفيق

وعليكم السلام و رحمة الله و بركاته تفضل اخي Database8.rar

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

هل عدلت على الاستعلام مصدر البيانات للتقرير بحذف المعيار رقم العميل؟ احذفه وبيعمل معك الكود

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

تفضل الحل في المرفق... المصنف01.xlsx

جرب هذا الملف Grade.xlsm

وعليكم السلام-تفضل لك ما طلبت مواقيت 2الصلاة.xlsm

برنامج جدول الحصص الألمانى الشهير جدا aSc Timetables وجميع شروحاته في مدونتى أبو يوسف وأتشرف بالصداقة على الفيس بوك تفضل الرابط https://gadwlabuyosef.blogspot.com/

السلام عليكم ماعم يفتح معي برنامج عم يفتح ملف اكسل

السلام عليكم ورحمة الله وبركاته أتمنى أيفيد أحد Sub GetPiv() 'Excel VBA to Create a Pivot Table. Dim PTCache As PivotCache Dim Pt As PivotTable For Each Pt In ActiveSheet.PivotTables 'Checks and deletes any pivot tables. Pt.TableRange2.Clear Next Pt Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set Pt=ActiveSheet.PivotTables.Add(PTCache, [G10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Sub GetPiv2() 'Excel VBA create Pivot table in new worksheet. Dim PTCache As PivotCache Dim Pt As PivotTable Dim ws As Worksheet Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set ws=Worksheets.Add Set Pt=ws.PivotTables.Add(PTCache, [A10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Create Pivot Table with Excel VBA.rar

السلام عليكم يمكن تنفيذه ولكن متعب جدا ويحتاح تركيز وقد قرأت الكثير من الحلول في المنتديات الاجنبية ولكنها مطولة وتجيب وجع الراس شاهد مثلا الكود التالي: والذي ليس له علاقة بطلبك وانما لترى وتفهم ما قصدته من وجع الراس Sub PopulateCrossTab() 'Count ocurences of Colour and Price Code _ combinations in database Dim Field_ColourData As Variant Dim Field_PriceCodeData As Variant Dim CrosstabRowHeader As Variant Dim CrosstabColHeader As Variant Dim TestArray1() As Long Dim TestArray2() As Long Dim TableArray() As Variant 'Load arrays Field_ColourData = Range("Colour") Field_PriceCodeData = Range("PriceCode") CrosstabRowHeader = _ Range("Crosstab").Resize(, 1).Offset(, -1) CrosstabColHeader = _ Range("Crosstab").Resize(1).Offset(-1) x = UBound(CrosstabColHeader, 2) y = UBound(CrosstabRowHeader, 1) Records = UBound(Field_ColourData, 1) ReDim TestArray1(1 To Records) ReDim TestArray2(1 To Records) ReDim TableArray(1 To y, 1 To x) For r = 1 To y For c = 1 To x 'Build test arrays for sumproduct For i = 1 To Records TestArray1(i) = _ Field_ColourData(i, 1) = CrosstabColHeader(1, c) TestArray2(i) = _ Field_PriceCodeData(i, 1) = CrosstabRowHeader(r, 1) Next TableArray(r, c) = _ WorksheetFunction.SumProduct(TestArray1, TestArray2) Next Next Range("Crosstab") = TableArray End Sub واخترت لك حلين مبسطين :(بالمرفق) Sub kh_Test() Dim Rng As Range, N As Range Dim WS As Worksheet Set WS = ورقة1 Set Rng = WS.Range("F6:G10") Rng.ClearContents For Each N In Rng N = Application.Evaluate("SUMPRODUCT((offices=" & WS.Cells(N.Row, 5).Address & ")*(asnaf = " & WS.Cells(5, N.Column).Address & ")*(totals))") Next End Sub والثاني: Sub kh_Test_1() Dim WS As Worksheet Dim Rng As Range, N As Range Dim kh_1, kh_2 Set WS = ورقة1 Set Rng = WS.Range("F6:G10") Rng.ClearContents For Each N In Rng kh_1 = WS.Cells(N.Row, 5) kh_2 = WS.Cells(5, N.Column) N = Application.Evaluate("SUMPRODUCT((offices=""" & kh_1 & """)*(asnaf = """ & kh_2 & """)*(totals))") Next End Sub وابسط الحلول مو ما طرحته سابقا وهو الذي استخدمة انا في التعامل مع هذه الدالة في الاكواد وهو من اسهل الحلول ولا يحتاج تنفيذه الى وقت طويل شاهد المرفق test1.2 sumproduct.rar

السلام عليكم انا استخدم اوفيس 2003 ولا يوجد عندي اوفيس 2007 جرب التعديل في التالي: غير الكود الممائل لهذا الكود في فورم البحث بالتالي: Private Sub UserForm_Activate() Dim C As Integer, R As Integer Dim My_path As String, K As String Set MyRange = Range("MyRange_Find") Comb_Find_Fill.Clear Comb_Find_Fill.AddItem "بحث في جميع الملفات ON " With MyRange For C = 1 To .Rows.Count If .Cells(C, 4).Text = "ON" Then K = .Cells(C, 1).Text My_path = ActiveWorkbook.Path & "\" & K If Not Dir(My_path, vbDirectory) = vbNullString Then Comb_Find_Fill.AddItem K Comb_Find_Fill.List(R + 1, 1) = .Cells(C, 2) Comb_Find_Fill.List(R + 1, 2) = .Cells(C, 3) R = R + 1 If Workbook_Open(K) = False Then OpenFill My_path End If End If End If Next C End With Comb_Find_Fill.Text = Comb_Find_Fill.List(0) Check_Button_Find.Value = False End Sub حيث قمت بازالة نوع الملف من المتغير K وفي عمود اسماء الملفات اضف نوع الملف لتسمية الملف مثلا: Class1.xls KHBOOR.xlsx جرب الطريقة دي واخبرنا بالنتيجة

تفضل

هذا ما أقوله لك يمكنك تجربة ملف كهذا -اسهل وأدق في التعامل من ملفات الجداول الجاهزة فقط يمكنك تغيير البنود والأصناف فهذا هو الأدق في عمل خروج ودخول الأصناف Stock.xlsm