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

اخر اعمالي في الاكسس، برنامج ادارة المختبرات الطبية. علما انها responsive اي انها تتحجم تبعاً لاختلاف حجم الشاشات

يمكن تصميم مثل هذه الشاشة بالاكسس وأفضل منها شكلا .. انظر هذه بعض الصور القليلة بالاكسس

تفضل 🙂 لا تضع قيمة للحقل Counter في التقرير ، وسنعطيه القيمة من الكود: Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Me.Counter = Nz(Me.Counter, 0) + 1 If Me.Counter = 21 Then Me.Counter = 0 End If End Sub هذا ليس بمعيار !! جعفر جعفر 1332.Report_Counter_20_ONLY.mdb.zip

السلام عليكم ورحمة الله استخدم هذا الكود Sub ClearData() Dim ws As Worksheet, Lr As Long Set ws = Sheets("ورقة2") Lr = ws.Range("B" & Rows.Count).End(3).Row ws.Range("B2:C" & Lr, "E2:E" & Lr).ClearContents ws.Range("J2:K" & Lr, "N2:T" & Lr).ClearContents End Sub

اضفت الحقلين OT_Groups للمجموعة ، و OT_Seq للتسلسل ، الى الجدول ، التسلسل 1-20 ويتكرر لكل مجموعة ثم استخدمت الكود التالي لهذه الارقام: Dim rst As DAO.Recordset Dim S As Integer Dim G As Integer Dim i As Integer Set rst = CurrentDb.OpenRecordset("Select * From all_data") S = 0 G = 1 'loop through the table Do Until rst.EOF S = S + 1 rst.Edit rst!OT_Seq = S rst!OT_Groups = G rst.Update If S = 20 Then S = 0 G = G + 1 End If rst.MoveNext Loop rst.Close: Set rst = Nothing MsgBox "Done" جعفر 1332.Report_Counter_20_ONLY.mdb.zip

السلام عليكم ورحمة الله كود للبحث بالرقم القومى و تلوين الاسم Sub SearchData() Dim ws As Worksheet, Sh As Worksheet Dim lr As Long, i As Long Dim data Set Sh = Sheets("البحث") data = Sh.Range("C7").Value Application.ScreenUpdating = False For Each ws In Worksheets If ws.Name <> "البحث" Then lr = ws.Range("A" & Rows.Count).End(3).Row i = 8 Do While i <= lr If ws.Cells(i, 1) = data Then Sh.Range("C8").Value = ws.Cells(i, 2).Value Sh.Range("C9").Value = ws.Cells(i, 3).Value Sh.Range("C10").Value = ws.Cells(i, 4).Value Sh.Range("C11").Value = ws.Cells(i, 5).Value ws.Cells(i, 1).Interior.ColorIndex = 10 End If i = i + 1 Loop End If Next Application.ScreenUpdating = True End Sub

تفضل هذا صنع لك خصيصا - لا تقلق مجانا الا دعوة بظهر الغيب - جرب ووافنا بالنتائج ExportToPDF.accdb

اليوم أقدم لكم موضوع يبحث عنة الكثيرين الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE و هو الباركود الثنائى الابعاد 1 - مرفق مجلد مضغوط به ملفين DLL احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32 2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts 3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به Option Compare Database Private Declare Sub QRCodeEncode Lib "QRCodeFont.dll" _ (ByVal Message As String, ByVal Version As Integer, ByVal Level As Integer, ByVal Mask As Integer) Private Declare Function QRCodeGetRows Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer Private Const Version = 0 Private Const Level = 0 Private Const Mask = 0 ------------------------------------------------------------------ Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim RowCount As Long Dim ColCount As Long Dim Message As String Dim EncodedMsg As String Message = Field1.Text Message = Message & vbCrLf & Field2.Text Message = Message & vbCrLf & "________" Message = Message & vbCrLf & " " Call QRCodeEncode(Message, Version, Level, Mask) RowCount = QRCodeGetRows() ColCount = QRCodeGetCols() EncodedMsg = vbCrLf For I = 1 To RowCount For J = 1 To ColCount EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1)) Next J EncodedMsg = EncodedMsg & vbCrLf Next I Text0.Value = EncodedMsg End Sub 4 - هذان السطران Message = Field1.Text Message = Message & vbCrLf & Field2.Text هما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE الحقل Field1 و الحقل Field2 5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى Message = Message & vbCrLf & -----------.Text و يوضع اسم الحقل المراد إظهارة بدلا من ----------- 6 - فى السطر قبل الاخير فى الكود Text0.Value = EncodedMsg Text0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة 7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا و شكرا لكم Desktop.rar

ملف اكسل فيه اوراق لتسهيل قضاء الصلوات الفائته اعرض الملف السلام عليكم 🙂 احتجت لطريقة لمتابعة قضاء بعض الصلوات الفائته ، فعملت هذا الملف وفيه 3 اوراق مختلفه ، حسب ذوق كل شخص ، ورقة لكل سنة ، اطبعها و أشّر على كل صلاة قضيتها ، وافضّل الورقة الثانية او الثالثة ، لانك تتحدى نفسك بملازمة تاريخك اليومي 🙂 مع مراعة اني لم التفت للسنة الهجرية ، وانما عملت على الاشهر الميلادية لتسهيل قضاء الصلوات اليومية مقارنة مع تاريخ اليوم الميلادي ، وللعلم ، فإن التاريخ الهجري اقل من التاريخ الميلادي بحوالي 11 يوم لكل سنة : 1. . 2. . 3. . جعفر صاحب الملف jjafferr تمت الاضافه 14 ينا, 2021 الاقسام أدوات عامة  

اظهار الفورم مباشر والاغلاق لفتح الشيت من الصورة وتعديل اسم الشيت والدخول لحدث الصفحة

The correct Code Select Not Needed Sub ClearData() With Sheets("Sheet1").Range("G2:L10000") .Borders.LineStyle = xlNone .ClearContents End With End Sub

السلام عليكم ورحمة الله سبب المشكلة لديك بالملف هو ان تسطير الجدول بخاصية الجداول الجاهزة و لابد من التخلص منها و اذا اردت ذلك فعليك بالخطوات الاتية : 1 - تحديد اى خلية بالجدول و لتكن الخلية "A2" سيظهر لك تبويب جديد يسمى "Design" 2 - اضغط على العبارة الاتية "Convert To Range" ستظهر لك رسالة اضغط "Yes" و سينتهى الامر 3 - يمكنك جعل التنسيق من خلال التسيق الشرطى او بأى شكل آخر ان شئت

صدقنى لحد الان لم افهم وعالعموم خلينا نمشى خطوه خطوه وان شاء الله نصل لما تريد قمت باضافه وحده نمطيه ووضع فيها متغير عام لياخذ قيمه الحقل نفوس من الصب فورم بعد اختياره وذلك لتمريرها عبر داله دكونت لجلب القيمه ووضعها في حقل DOSSIERS قم بوضع التاريخ ثم اضغط الزر تنفيذ لجلب القيمه Dim strSQL As String Dim xYesNo As Boolean xYesNo = 0 strSQL = "[OMT]=" & xYesNo strSQL = strSQL & " And [nfous]='" & xNfous & "'" strSQL = strSQL & " And [date_maha]=#" & Format(Me.date_taslim, "mm/dd/yyyy") & "#" Me.Taslimsub_Subform!dossiers = DCount("*", "farez", strSQL) جرب ووافنا بالنتيجه farezup(2).accdb

عليكم السلام ماذا تقصد بالاسكربت؟ كيف تريد تمرير كلمة المرور للقاعدة عن طريق ماذا؟

1. ممتاز 🙂 2. اذا التقرير اشتغل بطريقة صحيحة بعد التعديل ، فهذا دليل ان عملك تمام 🙂 3. ان شاء الله الآن اعمل على طلبك 🙂 جعفر

وبعد قراءتي لطلبك بتمعن اكثر ، انت لا تريد 20 20 ، وانما تسلسل واحد ، ولكن مجموعات 🙂 هذا الكود يقوم بالعمل: Dim rst As DAO.Recordset Dim S As Integer Dim G As Integer Dim i As Integer Set rst = CurrentDb.OpenRecordset("Select * From all_data") S = 0 G = 1 'loop through the table Do Until rst.EOF S = S + 1 rst.Edit rst!OT_Seq = S rst!OT_Groups = G rst.Update 'If S = 20 Then 'Repeating 1-20 'S = 0 If Int(S / 20) = S / 20 Then 'No Repeat G = G + 1 End If rst.MoveNext Loop rst.Close: Set rst = Nothing MsgBox "Done" جعفر 1332.Report_Counter_20_ONLY.mdb.zip

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

السلام عليكم 🙂 بما ان نوع الحقل في الجدول عبارة عن رقم ، فالشيء الذي يغير شكل الرقم هو التنسيق ، . فممكن في الاستعلام ، وانت في الحقل ، افتح على الاعدادات ، وقم بتغيير التنسيق . جعفر

جزاك الله خيرا غير هذا السطر ws.Range("g2:g" & lr1).Copy wb.Worksheets(1).Range("g" & lr2) بهذا ws.Range("g2:g" & lr1).Copy wb.Worksheets(1).Range("g2")

لعل هذا ما ما يناسبك فقط اشير أن الأرقام التسلسية في العمود A يجب ادخالها كأرقام وليس معادلة 1,2,3 وإذا كنت مصراً على المعادلات في العمود A أخبرني شكراً مع الإعتذار Sub test() Application.ScreenUpdating = False ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" For Each sh In Worksheets If sh.Name <> "Main" And sh.Name <> "Temp" Then With Sheets("Main") lr = .Cells(Rows.Count, 16).End(xlUp).Row + 1 .Range("$A$2:$AQ$" & lr).AutoFilter Field:=16, Criteria1:=sh.Name Set rang = .Range("$A$2:$AQ$" & lr).SpecialCells(xlCellTypeVisible) rang.Copy Sheets("TEmp").Range("A1") .Cells.AutoFilter With Sheets("Temp") a = .Cells(1, 1).CurrentRegion .Cells(1, 1).CurrentRegion.ClearContents a = Application.Index(a, Evaluate("row(2:" & UBound(a) & ")"), Array(26, 30, "", 13)) End With With sh x = 1 For Each myArea In .Columns(1).SpecialCells(2, 1).Areas n = myArea.Count myArea.Offset(, 1).Resize(n, 4).Value = Application.IfError(Application.Index(a, Evaluate("row(" & x & ":" & _ x + n - 1 & ")"), Evaluate("column(" & [a1].Resize(, 4).Address & ")")), "") x = x + n Next End With End With End If Next Sheets("Main").Select Application.DisplayAlerts = flase Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Master (1).xlsm

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

اشكرك على الرد ولكن لم يتم تنفيذ المطلوب ساحاول فى اعدادات الويندوز واشكرك مرة ثانية

السلام عليكم جرب : قم بتخفيض أمان الماكرو في اكسس في الجهاز الجديد

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

اهلا وسهلا اخي ناقل ، شرفت بمرورك وانا مثلك حاولت كثيرا ويبدو ان الرقم 52 عامل عصيان مدني ، لاني اذا غيرت في البيانات بالزيادة او النقص عمل الكود على اكمل وجه ولكن غير مقبول ان اضيف لجان وهمية او معلمين لذا تصرفت في الايام وجعلتها احد عشر يوما فعمل الكود بدون اي ملاحظات اخي هاني انظر مطلوبك في الاستعلامات الجدولية داخل المثال db4_1.mdb

جزاك الله خير اخي الحلوني صلاة الخوف ان كانت في الحرب فلها حكمها بقوله تعالى ( وَإِذَا كُنْتَ فِيهِمْ فَأَقَمْتَ لَهُمُ الصَّلاةَ فَلْتَقُمْ طَائِفَةٌ مِنْهُمْ مَعَكَ وَلْيَأْخُذُوا أَسْلِحَتَهُمْ فَإِذَا سَجَدُوا فَلْيَكُونُوا مِنْ وَرَائِكُمْ وَلْتَأْتِ طَائِفَةٌ أُخْرَى لَمْ يُصَلُّوا فَلْيُصَلُّوا مَعَكَ وَلْيَأْخُذُوا حِذْرَهُمْ وَأَسْلِحَتَهُمْ وَدَّ الَّذِينَ كَفَرُوا لَوْ تَغْفُلُونَ عَنْ أَسْلِحَتِكُمْ وَأَمْتِعَتِكُمْ فَيَمِيلُونَ عَلَيْكُمْ مَيْلَةً وَاحِدَةً وَلا جُنَاحَ عَلَيْكُمْ إِنْ كَانَ بِكُمْ أَذىً مِنْ مَطَرٍ أَوْ كُنْتُمْ مَرْضَى أَنْ تَضَعُوا أَسْلِحَتَكُمْ وَخُذُوا حِذْرَكُمْ إِنَّ اللَّهَ أَعَدَّ لِلْكَافِرِينَ عَذَاباً مُهِيناً ) وان كان الخوف بسبب انه يخشى على حياته من عدو يترص فيصلي في بيته وهنا يكون التأخير لا يتجاوز خروج الوقت وكذلك في حال كان الانسان غير مطمئن ويخشي الا يخشع في صلاته فيجوز التاخير عن اول الوقت ولايتعدى نهاية وقت الصلاة وايضا للحراسة ومافي حكمها فيصلي في محرسه ولايتجاوز وقت خروج الصلاة اما في حال المطر فيكون الجمع عادة جمع تقديم وهذا مانعمله عادة ولا علم لدي بجواز جمع التاخير للمطر والله اعلم احسن الله اليكم وثبتكم وجعلنا واياكم من المهتدين

شكرا اخوي خالد 🙂 في مجموعة قليلة من الاعضاء اللي يعرفون فائدة هذا البرنامج 😢 اما انا ، فهذا البرنامج اضعه على سطح المكتب ، ويكون مفتوح ، وبعد الانتهاء من بعض تعديلات على اي من برامجي ، على طول استعمل البرنامج هذا ، اطمئن ان الكود نظيف ويعمل اللي كتبته (في احد البرامج في اول ايامي في الاكسس ، من كثرة ما عملت تعديل على الكود ، صار الكود ما يعطيني نتائج صحيحة ، وحينها كنت محتاج لهذا البرنامج!!) ، ويعمل لي نسخ مختلفة (وهذا شيء جدا مهم ، وهو خلال عمل او تعديل اي برنامج ، يجب عمل نسخ منه خلال العمل وليس بعده فقط ، وانا عادة يكون عندي على الاقل 10 نسخ او اكثر ، وكنت اعمل نسخ ولصق) . يا ريت تخبرنا تجربتك ويخبرنا بقية الاعضاء ، فهي الطريقة الوحيدة لنشر مفهوم هذا البرنامج 🙂 دكتور حسنين ، واخوي محمد ، شكرا لكم 🙂 جعفر

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. تم وضع معادلة .. يفضل اخوي العزيز .. تغيير عدد الشيتات .. الى شيت واحد فقط .. تم اضافة Data Validation .. ووضع الاسماء به .. قم باختيار الاسم فقط .. لجلب البيانات من الشيت main .. في حال تغيير الاسم سوف يجلب لك بيانات العميل الاخر .. وهكذا .. Master.xlsm

سلسلة تعليم بور كويري الجزء الثامن كيفية تعبئة البيانات لأسفل وكيفية التعبئة لأعلى في البور كويري FILL DOWN - FILL UP IN POWER QUERY https://www.youtube.com/watch?v=ZOFlmn9i618

جزاكم الله خيراً أستاذ ماجد ... وإلى المزيد من الأعمال القيمة ...تقبل تحياتي العطرة

بارك الله فيك استاذ ماجد وجزاك الله خير الثواب

بارك الله فيكم جميعا وفى جهودكم

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

هذه ليست من خصائص الليست بوكس بل هى من خصائص الفورم نفسه ... أما بالنسبة ما تريد عرضه من خلال الماوس يمكنك مشاهدة هذا الموضوع بالمنتدى تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام-وذلك من خلال خصائص الفورم كما بالصورة كيف تقول هذا- شوف بنفسك هل اطلعت على الملف أم تتكلم بدون رؤية الملف ؟!!! اهذا ما تريد ان يكون المؤشر اتجاه اليسار الملف1.xlsm

بارك الله فيك استاذ ماجد كلها أعمال ممتازة

وعليكم السلام اتفضل هل هذا ما تريد ؟ Expr2: Val([n1])*100 function.accdb

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

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

تفضل بعد اذن الأستاذ سليم 1شركات test.xlsx

ممكن ذلك ترتيب ابجدي.New.xlsx

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

تحية طيبة استاذي الغالي جعفر المشكلة ليست من عندي و لا من عندك المشكلة من السوني بحد ذاته كما توقعت تماما للسوني سيناريو خاص به لالتقاط الصورة فعوضا عن الزر Camera يجب ارسال الزر Enter وعوضا عن المسار /sdcard/DCIM/Camera/ يكون المسار /sdcard/DCIM/100ANDRO وهذه ورقة اجابتي

بارك الله فيك وجزاك الله خير ونفع بم اخي جعفر دائما مبدع كعادتك وفقك الله

احرااااااااااااااااااااج حسستني اني من المطبلين بجد الحين اجرب

ياريت تخبرنا اذا اشتغل عندك البرنامج جعفر

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

اجعل التقسيم يبدأ بعد العلامات مثل & " , ,والطريقة : مسافة ثم علامة تحت السطر ( _ ) ثم انتر ( Enter) انظر الكود strFilter = strFilter & "([d] Like " & _ Me.filter1 & ")OR([d] Like " _ & Me.filter2 & ")"