نجوم المشاركات
Popular Content
Showing content with the highest reputation on 07 نوف, 2022 in all areas
-
السلام عليكم و رحمة الله وبركاته أشكرك أخى جعفر على طرح الموضوع ، وأشكر كل من أبدى رأيه من الأخوة الكرام و تعقيبا على الموضوع ،و للدخول مباشرة إلى السبب الجذري 🙂، فإنه على مدار عمل المنتدى منذ عام 2003 حتى الان لم تحدث مشكلة كبيرة فى هذا الشأن على ما أذكر ، وذلك بفضل الله و تعاون وتفاهم الجميع و ربما وجود كثافة أكبر للتواصل سابقاً أو تواجد أكبر لي بخلاف إدارة الموقع قد قل خلال الفترة الماضية، فضلا عن انسحاب عدد كبير من الأخوة القدامي تباعا من المشاركة فى العمل الإداري بسبب نشغالهم. وقد طفت مشكلة كثافة التعديل على المشاركات مؤخرا الي السطح و بفضل الله لم تعد هذه امشكلة موجودة الان بنفس الصورة على ما أعتقد بدءا من الايام القليلة الماضية. و بالنسبة لشكاوى الأعضاء فالقنوات الاساسبة للاعتراض أو الاقتراحات تتمثل فى القسم المخصص للشكاوى و المقترحات و قد يتم استخدام الرسائل او التصعيد من خلال فريق الموقع لمن هو متاح له ذلك. و انا اتابع قسم الشكاوي عن قرب و قد وردت فيه شكوي واخدة فقط على الرغم من كثافة التعديل الملحوظة على المشاركات و قد بدءت منذ ورودها فى التدخل عن طريق النصيحة بالتدريج. و عدم وجود شكاوي كثيرة من شيء قد يعطى انطباعا خاطئاً انه فى المجمل يمكن تقبله ما تعلمته مؤخرا هو : أن قنوات التواصل المتاحة لم تعد كافية و اننا فى حاجة لوجود تواصل اكثر فاعلية ، ربما في ضورة لقاء دوري أو ما شابه. وذلك على مختلف المستويات ، ليس فقط من أجل المشاكل لكن أيضا من أجل التطوير بالفعل هناك حاجة لصياغة وثيقة محدثة تضع الخطوط العريضة لكيفية استخدام الصلاحبات الادارية لاستخدام فريق الموقع. و ربما يتم نشرها من باب الشفافية. و بإذن الله نخطط لذلك خلال الفترة القادمة5 points
-
السلام عليكم 🙂 انا اعتبر المنتدى بيتي الثاني ، وفيه التقي مع اخواني الاعضاء (والذين معظمهم حتى لا اعرف اسمائهم الحقيقية)، وانادي كل منكم بأخي فلان ، ونتشارك بالمعلومة والنكات 🙂 فريق الموقع لهم صلاحيات في تنظيم عمل الموقع ، وهنا احب ان آخذ برأيكم في هذه الصلاحيات ، بحيث نريد لبقية الاعضاء ان يكون المنتدى بالفعل بيتهم الآخر ولا يكون عندهم ما يضايقهم اثناء مشاركتهم في مواضيعه. ونريد ان نتوسع في التفكير ، فالقصد ليس فقط الابقاء على الاخوة الموجودين في المنتدى ، وانما جذب اخواننا من خارج المنتدى كذلك 🙂 الاستاذ @محمد طاهر عرفه له يد مشهودة في تطوير هذا الصرح الكبير ، وارى من واجبنا ان نمد له اليد والمشورة للإرتقاء اكثر 🙂 جعفر ------------------------------ ملخص الاقتراحات من واقع مشاركات الاعضاء : 1- عدم اغلاق المواضيع ، 2- عدم تحرير المشاركات.2 points
-
حبيبنا اخى كانورى شكل اصحاب معلمنا العزيز لخبطوه 😀 🤣 معلمى العزيز مفيش واحد من اصحابك بقى لينا2 points
-
السلام عليكم ايه اخى @jjafferr هتغير الفريق كله ولا ايه شكلنا حسدناكم هههههههههههههههههههههه ولى سؤال للاستاذ @أبو ماجد الغامدي ما الفرق فالسؤال ده والسؤال السابق2 points
-
سبحان الله المبرمجين الظاهر يسحرون البرامج وتضبط معهم واحنا ي الغلابه ما تضبط معنا هههههههههه الجدول ما فيه استعلام الله يحفظك اخوي جعفر الجدول ما فيه استعلام اخوي جعفر الله يحفظك2 points
-
يا سبحان الله !! اخوي ابو ماجد كل شوي يقول مغادرة ، شو اللي خلاني اختار العودة الظاهر فريقي المساعد ما قادر يواكب التطور ، وصار الوقت أغير البخور جعفر2 points
-
من باب التنويع وتعدد الأفكار .. ومشاركة الأساتذة 🙂 هناك طريقة سهلة أيضا نفذتها على السريع .. 😉 فكرتها أنها تقوم بعمل سجل لكل التعديلات التي تجري على كل سجل وتكتب: ( اسم المستخدم ، اسم الحقل ، التاريخ والوقت ) .. وتلخيصها كالتالي : كل ما ستحتاجه هو حقل من نوع [ نص طويل ] تضيفه في الجدول .. وهذه الدالة في محرر الأكواد الخاص بالنموذج : Function WhoChangeWhat() Dim t As Date Dim U As String Dim Ctrl As String t = Format(Now, "yyyy/mm/dd HH:nn:ss") U = Environ("username") Ctrl = Screen.ActiveControl.Name Me.Changes = Changes & vbCr & " user : (" & U & ") change The Feiled : (" & Ctrl & ") At: " & t End Function ولك أن تغير ما تريد أن تكتبه لك الدالة في مربع النص .. 🙂 ولتطبيقها بأسهل طريقة : تقوم بتحديد جميع الحقول القابلة للتعديل .. ثم من لوحة الخصائص عند حدث ( بعد التحديث ) تكتب اسم الدالة هكذا : =WhoChangeWhat() ولك الخيار في الإبقاء على الحقل ظاهراً .. أو إخفائه بحيث يظهر للمدير فقط 🙂 UsersActions.accdb
2 points -
وعليكم السلام 🙂 وهذه طريقتي : . وهذه محركات العمل : Option Compare Database Dim Number_Exists As String Dim i As Long ' Sub Rnd_Number() Dim Max_Number As Long, Rnd_Number As Long Max_Number = DCount("*", "Char") For i = 1 To 5 Start_Over: Randomize Rnd_Number = Int((Max_Number * Rnd) + 1) 'check if this number was used If InStr(Number_Exists, Rnd_Number) > 0 Then 'this number exists, get another one GoTo Start_Over Else 'its a new number, add it Number_Exists = Number_Exists & Rnd_Number End If 'use the number, get the Char Me("T" & i - 1) = DLookup("Cha1", "Char", "IDW=" & Rnd_Number) Next i End Sub Private Sub cmd_Fresh_Sart_Click() Number_Exists = "" Call Clear_Fields Call Rnd_Number End Sub Private Sub Form_Load() Call Clear_Fields Call Rnd_Number End Sub Sub Clear_Fields() 'clear the lower fields For i = 1 To 5 Me("ch" & i) = "" Next i Me.Word0 = "" End Sub جعفر 1525.GAME WORD.accdb.zip
2 points -
عليكم السلام تفضل التعديل حسب فهمي , ارجو ان يكون طلبك GAME WORD_10.rar2 points
-
سؤالك هو عند اختيار الكود من كمبوبوكس يتجاهل اول رقمين من ناحية اليمين و يبحث عن اعلي قيمة في العمود (A) الكود 4801 او 4802 تو اي كود بدايته 48 يبحث عن اعلي قيمة بالمقابل االحل استبدل السطور التالية في الكود If Val(Me.ComboBox1) = Ws.Cells(i, "B") Then Me.TextBox1 = Ws.Cells(i, "A").Value الي السطر If Left(Val(Me.ComboBox1), 2) = Left(Ws.Cells(i, "B"), 2) Then Me.TextBox1 = Application.WorksheetFunction.Max(Ws.Cells(i, "A").Value) شرح التعديل انه لو الرقمين علي الشمال في الكود متساويتان للرقمين اليسار في العمود اختار اعلي قيمة مقابلة للبحث والنتيجة عند البحث باي الاكواد التي تبدا ب 48 او 49 الملف بعد التعديل بالمرفقات اتمني اكون افدك وبالتوفيق wo.xlsm
2 points -
انا منتسب للموقع منذ سنوات عديد ومبرمج متقاعد هي ثالث عضوية لي " معرفاتي السابقة تركتها بمحض ارادتي " ويشهد الله انني لم المس اي تحيز بشكل مقصود وانما اجتهادات البعض منها قد يكون غير موفق وعند محاولة تبريرها بحجة بعض القوانين فانه قد ينظر اليها كنوع من التحيز وانا على يقين انها ليست كذلك. في جميع الاحوال يبقى الموقع منار لنشر العلم والمعرفة وملتقي لاساتذة كبار استفدنا من علمهم وخبراتهم فلهم جميعا كل التقدير والاحترام. واتوقف هنا والى لقاء في موضوع اخر تحياتي2 points
-
اخي الكريم @أبو ماجد الغامدي عدل افضل اجابة .... لاني لم اجب على سؤالك بارك الله فيك ...1 point
-
اليك الشرح كاملا : 1. عدد سجلات الجدول ، 2. استخراج رقم عشوائي بين الرقمين 1 وعدد السجلات ، 3. هل الرقم العشوائي موجود في المتغير Number_Exists : 4. نعم موجود ، اذن ارجع لإختيار رقم آخر ، 5. لا ، غير موجود ، اذن اضفه الى المتغير Number_Exists . جعفر
1 point -
تقصد تغير الفريق بالكامل وتستدعي الاحتياط ... ههههه1 point
-
حسب فهمي من السؤال يجب أن يعدل على الإستعلام و اختيارحقل المغادرة عوض حقل تاريخ العودة1 point
-
وعليكم السلام 🙂 شكرا على المداخلة والتوضيح استاذ محمد 🙂 جعفر1 point
-
وعليكم السلام 🙂 ومشاركة مع اخي kanory 🙂 1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات . 2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة : . وهذا الكود على حدث زر الطباعة: Private Sub cmd_print_3_Copies_Click() Me.myText = "جزاءات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "جزاءات + ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time End Sub Sub Pause_Time() Dim PauseTime, Start PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop End Sub . قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي. جعفر 1527.Report_Label.mdb.zip
1 point -
كتير عليا والله أن يقوم عباقرة الموقع بالرد علي سؤال لي وكما تعودنا من حضراتكم دائما الابداع والاحترافية في الردود جزاكم الله كل خير اساتذتي الكرام شكرا جزيلا1 point
-
وعليكم السلام 🙂 تفضل: . . او بدل Last استعمل Max . جعفر 1526.ALI.accdb.zip
1 point -
محاولة أخرى و ربما بطريقة بسيطة بواسطة الكود حسب المثال المرفق Const cDQ As String = """" Sub AuditTrail(frm As Form, recordid As Control) 'Track changes to data. 'recordid identifies the pk field's corresponding 'control in frm, in order to id record. Dim ctl As Control Dim varBefore As Variant Dim varAfter As Variant Dim strControlName As String Dim strSQL As String On Error GoTo ErrHandler 'Get changed values. For Each ctl In frm.Controls With ctl 'Avoid labels and other controls with Value property. If .ControlType = acTextBox Then If .Value <> .OldValue Then varBefore = .OldValue varAfter = .Value strControlName = .Name 'Build INSERT INTO statement. strSQL = "INSERT INTO " _ & "Audit (EditDate, User, RecordID, SourceTable, " _ & " SourceField, BeforeValue, AfterValue) " _ & "VALUES (Now()," _ & cDQ & Environ("username") & cDQ & ", " _ & cDQ & recordid.Value & cDQ & ", " _ & cDQ & frm.RecordSource & cDQ & ", " _ & cDQ & .Name & cDQ & ", " _ & cDQ & varBefore & cDQ & ", " _ & cDQ & varAfter & cDQ & ")" 'View evaluated statement in Immediate window. Debug.Print strSQL DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If End With Next Set ctl = Nothing Exit Sub ErrHandler: MsgBox Err.Description & vbNewLine _ & Err.Number, vbOKOnly, "Error" End Sub نقوم باستراد الكود و الجدول المسمى Audit إلى قاعدة البيانات، و في النموذج أو النماذج نستدعي الكود في حدث قبل التحديث Private Sub Form_BeforeUpdate(Cancel As Integer) Call AuditTrail(Me, Auto_ID) End Sub حسب المثال نفتح النموذج Frm_info و نقوم بالتعديلات للتجربة ثم نفتح الجدول Audit و سوف نجد تسجيل لكل التعديلات، و خاصة اسم أدمن الجهاز أو المستخدم للجهاز رابط الكود للفائدة https://www.techrepublic.com/article/a-simple-solution-for-tracking-changes-to-access-data/ Access Tables Magic.accdb1 point
-
السلام عليكم ورحمة الله وبركاته أسأل الله تعالى لكم التوفيق والسداد1 point
-
هنيئا لنا بك .. وهنيئا لك بها وفقك الله ورعاك1 point
-
كل الاحترام اخينا ابو احمد AbuuAhmed1 point
-
طلعت النتيجة عندي صحيحة من المعادلة اعلاه !! طيب جرب Mid([total],1,Len([total])-1) & 01 point
-
علي ما حسب مافهمت من طلبك انك تختار المدرس من ليست بوكس تظهر بيانات المادة شرح الكود في حدث انطلاق اليوز فورم اضافة قائمة المدرسين بدون تكرار Private Sub UserForm_Initialize() On Error Resume Next 'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار Set SH = Sheet1 LsRow = SH.Cells(Rows.Count, "C").End(xlUp).Row With Me 'مسح قائمة الليست لمنع تكرار القائمة .LstItm.Clear: .ListBox1.Clear: .ListBox2.Clear Dim MyDahy As Collection, Dl As Range Set MyDahy = New Collection ' العمود ورقم الصف For Each Dl In SH.Range("C4:c" & LsRow) MyDahy.Add Dl.Value, Dl.Text Next Dl For j = 1 To MyDahy.Count .LstItm.AddItem MyDahy(j) .ListBox1.AddItem MyDahy(j) Next j: End With: End Sub وفي حدث الدبل كليك لليست بوكس 1 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'اضافة قائمةا المدرسين الى الليست بوكس بدون تكرار Dim R As Integer With Me If .ListBox1.ListIndex >= 0 Then R = .ListBox1.ListIndex .ListBox2.Clear .LstItm.Value = .ListBox1.List(R, 0) 'ارتفاع الليست بوكس .ListBox1.Height = 200: .ListBox2.Height = 200 End If: End With: End Su كود البحث لليست بوكس 2 من اليمين لليسار Sub UpDateLstBoX() If Me.LstItm.Value = "" Then Exit Sub 'ليست بوكس من اليمين للشمال Set SH = Sheet1 With SH .Activate LsRow = .Cells(Rows.Count, "C").End(xlUp).Row On Error Resume Next For a = 4 To LsRow If .Cells(a, 3) = LstItm.Value Then ListBox2.ColumnCount = 4 ListBox2.ColumnHeads = False ListBox2.AddItem .Cells(a, 6) ListBox2.List(C, 1) = .Cells(a, 5) ListBox2.List(C, 2) = .Cells(a, 4) ListBox2.ColumnWidths = "60,60,100,0" C = C + 1 : End If: Next End With: End Sub لاحظ النتيجة عند تكرار مواد مدرس 3 الكود مع الشرح بالمرفقات حتي تستطيع التعديل بما يتناسب مع فكرتك نسخ من الى .xlsm
1 point -
وعليكم السلام اخي بلال 🙂 المنتدى مليان بالامثلة ، ومنها : . . جعفر1 point
-
وعليكم السلام 🙂 هذا كود اخي حسام بعد التعديل: Dim appAccess Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Users\User10\Database1.accdb", , "كلمة سر قاعدة البيانات" appAccess.UserControl = True جعفر1 point
-
وعليكم السلام اخي جعفر بدخل في الموضوع مباشرة القوانين وضعت للتنظيم وليست للتنفير اغلب اعضاء الموقع ممن يسهموا في تقديم الحلول ومشاركة الخبرات يكتبون باسماء مستعارة فالهدف نشر المعرف وتقديم يد العون للاخرين كل بمجهوده والتضييق على البعض منهم باغلاق مواضيعهم او تحريرها بدون اسباب موضوعية امر يدعو للتعجب اخيرا قالت العرب : من شدد نفر و من تراخى تألف واصدق من ذلك قوله عز وجل " فَبِمَا رَحْمَةٍ مِّنَ اللَّهِ لِنتَ لَهُمْ ۖ وَلَوْ كُنتَ فَظًّا غَلِيظَ الْقَلْبِ لَانفَضُّوا مِنْ حَوْلِك " اكتفي بما سبق والله الموفق .1 point
-
السلام عليكم 🙂 اختي الفاضلة روان 🙂 وكما قال اخي المهندس قاسم ، فالتعامل بالايميل يخالف قوانين المنتدى ، والسبب ، نريد لبقية الاعضاء الاستفادة مما تستفيدين منه 🙂 جعفر1 point
-
السلام عليكم استاذ @husamwahab اطلعت على الملف الي قلت عليه (برنامج الرواتب) نعم جميل لكنك استخدمت الحقول المحسوبة وهذا لاينصح به اتمنى لو كان عندك شيء جديد وفق نظام الرواتب المعمول به (خطوات عمل احترافيه) اكون ممنون منك استاذي العزيز الله يبارك فيك1 point
-
شكرا اخى الكريم هذا ما كنت ابحث عنه لك الشكر1 point
-
وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Find_And_copy() Dim MH As Worksheet, MH2 As Worksheet Dim c As Range, f As Range Dim rngCopy As Range, rngCopyTo Set MH = Worksheet____37 Set MH2 = Worksheet____60 Application.ScreenUpdating = False 'يمكنك تفعيل هدا السطر في حالة الرغبة بحدف البيانات القديمة في نفس العمود المرحل اليه 'Call Find_And_clear '("H9")تحديد رقم العمود المرحل اليه من شيت ادخال الى شيت ارشيف في الخلية For Each c In Application.Intersect(MH.UsedRange, MH.Range("H9")) If Len(c.Value) > 0 And Application.CountA(c.EntireColumn) > 1 Then 'رقم صف البحث Set f = MH2.Rows(9).Find(what:=c.Value, LookIn:=xlValues, _ LookAt:=xlWhole) If Not f Is Nothing Then Set rngCopy = MH.Range(c.Offset(1, 0), _ MH.Cells(Rows.Count, c.Column).End(xlUp)) Set rngCopyTo = MH2.Cells(Rows.Count, _ f.Column).End(xlUp).Offset(1, 0) rngCopyTo.Resize(rngCopy.Rows.Count, 1).Value = rngCopy.Value End If End If Next c Worksheet____37.Activate 'مسح البيانات المرحلة 'Range("H10:H39").ClearContents Application.ScreenUpdating = True End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub Find_And_clear() '("H9") البحث عن رقم العمود بشرط الخلية 'وافراغ البيانات Dim i As Integer Dim LastRow As Long Dim MyColl As Collection Dim myIterator As Variant Set MyColl = New Collection Application.ScreenUpdating = False MyColl.Add Worksheet____37.Range("H9").Value LastRow = Worksheet____60.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Worksheet____60.Activate For i = 6 To 350 For Each myIterator In MyColl If Cells(9, i) = myIterator Then Range(Cells(10, i), Cells(LastRow, i)).Select Selection.ClearContents Cells(9, i).Select End If Next Next Worksheet____37.Activate Application.ScreenUpdating = True End Sub تقارير (3).xlsm1 point
-
وعليكم السلام أخي صابر 🙂 إطلع على موضوع المهندس جعفر حول هذا الأمر :1 point
-
احسنتم بارك الله في جهودكم1 point
-
وعليكم السلام أخي الكريم أعتذر إليك لأنني في الغالب أعتمد على تحديث يدوي للبيانات بدل من التلقائي فلو ضغطت على F9 لتحدثت البيانات لديك إليك هذا الملف مع التحديث التلقائي: test (1).xlsm1 point
-
فاجأتوني ، شكرا لكم على الثقة والترقية ، وشكرا لكم جميعا على التهنئة ، وإن شاء الله أكون عند حسن ظنكم دائما.1 point
-
Version 1.0.0
209 تنزيل
السلام عليكم ورحمة الله تعالى وبركاته اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا آلية العمل -عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية - البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به -المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية -المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك وهنا على سبيل المثال قاعدة الخلفية ArchivingTables2018 تم عمل باسورد لها للتجربة وهو 2018 اما القاعدة ArchivingTables2019 لم يتم عمل باسورد لها وكما تشاهدون فى الصورة تم التنقل بكل سهولة وبكل اريحية بين القاعدتين هناك ميزة اخرى ولكن لم استطع تجربتها وهى الاتصال كذلك بجهاز كمبيوتر اخر والذى يحتوى على قاعدة الخلفية فى حالة الشبكة المحلية وذلك بكتابة اسم مستخدم الجهاز كلمة المرور المخصصة للاتصال بالجهاز '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' _ +--officena------oOo-------oOo--------+ _ ' ' /o)| |(o\ ' ' / / | منتــديات اوفسيـنا | \ \ ' ' ( (_ | _ _ | _) ) ' ' ((\ \)+-/o)----oOo----oOo---------------(o\-+(/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/ \____/ ' ' ===============================oOo----oOo============ ' ' ----{ By Mohammed Essam )---- ' ' ----{ www.officena.net/ib/profile/129737-ابا-جودى )---- ' ' ======================oOo-------oOo================== ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' فى انتظار تجربتكم وابداء آرائكم القيمة وأبداعاتكم بأفكاركم الرائعة ☺ Automatically relink Access tables.rar Automatically relink Access tables.zip1 point -
@MOHAAPE-ATn @eng aoff jadaan ممكن مرفق من قواعدكم لاى المشكلة واقف عليها1 point
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)