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

للاخوة المبتدئين بالاكسس مثلي اهديكم طريقة عمل عداد للوقت مرفق ملف العمل اذا في افكار أجمل من هيك مش غلط ( منكم نستفيد ) عداد الوقت .accdb

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

السلام عليكم طبق كما في الصورة

حيا الله الجميع اشارك ب 1. ممكن وضع كود الاخ محمد لطفي عند حدث الحالي للنموذج افضل ولكن سيحتاج معالجة اكثر عند وضع الموشر على سجل جديد 2. هذا كود يعمل حتى لو على سجل جديد Private Sub Form_Current() Me.Parent!id.SetFocus DoCmd.GoToRecord , , acGoTo, Me.CurrentRecord End Sub 3. يغنيك عن هذا كله استخدام نوع العرض للنموذج = نموذج مقسم split form . وهنا فقط اعمل النموذج الرئيسي واختر نوع العرض مقسم وتستطيع التحكم في مكان النموذج المنقسم عن طريق الخاصية اتجاه العرض وخصائص اخرى مثل قابلية التعديل وغيرها بالتوفيق

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

ما فى اجمل منك استاذ @عبد اللطيف سلوم بس شوف هذا المرفق ماشاء الله الوقت يجرى بســــــــرعه وممكن عمل ايقاف مؤقت واستكمال على الوقت ذاته والتسجيل فى جدول DB stopwatch.accdb

هيفرق كتير ربنا يعينك وفي تقدم ان شاء الله

يمكن ايضا الان لمجموعات الخبراء و العضوية الذهبية و الماسية اختيار افضل اجابة فى المواضيع السابقة برجاء التجربة و المساهمة فى تفغيل هذه الخاصية للتسهيل على أعضاء المنتدى

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

المرفق لا يوجد به سوى فورم لليوزر والباسوورد فلم أتمكن من رؤية هذه القفزات.

حياك الله استاذنا / @رمهان اولا كل عام وحضرتك بالف خير وصحة ثانيا الكود الذي قمتم بكتابته خطير جدا فهو يقوم بالمطلوب والعجيب ان ينشط اول سجل وينشط السجل المختار يعني سجلين منشطين اما بالنسبة للنموذج المنقسم فهو شئ غير مرئي يعني يوجد عندك نموذج ولكنه غير مرئي لو حاولت ان اعمل بحث له فليس امام نموذج احسن شئ فعلته اني جعلت مكان النموذج الفرعي مربع قائمة LIST BOX ففيه يتم عمل كل شئ حتي البحث يكون افضل اما اذا كان هناك حل جازم بان اضغط في النموذج الفرعي تظهر البيانات في الرئيسي دون تنشط اي سجل الا المختار فقط اكون شاكر اشكرك استاذي ومعلمنا / رمهان وجعله في ميزان حسناتك ولا انسي الكود الجميل للاستاذ / محمد لطفي والاستاذ QATHI

بارك الله فيك أستاذ سليم وأستاذ وجيه

بعد التجربة الكود الاول فى حدث عند النقر ( مرة واحده ) ولكن اضغط مرتين ستجد يذهب الى الخلية المطلوبة كود أستاذ / @qathi فى حدث عند النقر (مرة واحدة ) يذهب الى الخلية المطلوبة

الأخ الكريم طاهر الوليدي كى تحصل على جواب يرضيك فأرفق مثال لما تريد كى يتم التعديل عليه .. فالمرفق هنا هو مجرد إجتهاد قد يكون او لا يكون ما تريده. Database1.rar

جزاك الله خيرا ووالدك أيضا نريد المزيد

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

السلام عليكم ورحمة الله و بركاته كيف يمكن تشغيل استعلام الحذف من خلال زر الحذف من النموذج عن طريق الكود وجزاكم الله خيرا testcopy.mdb

شكرا أستاذى @ابا جودى شكرا أستاذى @عبد اللطيف سلوم تمت الاجابة

2- كتابة الاستعلام داخل المحرر Dim Strsql As String Strsql = "DELETE TableA.* FROM main INNER JOIN TableA ON main.namex = TableA.namex;" DoCmd.SetWarnings False DoCmd.RunSQL Strsql DoCmd.SetWarnings True

تفضل testcopy.mdb

Dim i As Long Dim Countnamex(0 To 1) As Integer Countnamex(0) = DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]") Countnamex(1) = DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]") i = 0 Do While (i < UBound(Countnamex) + 1) i = i + 1 Loop If Countnamex(0) = 1 Then city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]") If Countnamex(1) = 1 Then city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]") If Countnamex(0) = 0 And Countnamex(1) = 0 Then city = "غير موجودة" استخدم هذا الكود

On Error Resume Next If Me.city = DLookup("city", "[TableA]", "[namex]=[Forms]![main]![city]") Then Me.city = Nz(DLookup("city", "[TableA]", "[namex]=[namex]=[Forms]![main]![city]"), "") Else If MsgBox("المدينة غير مسجلة مسبقا هل تريد تسجيلها الآن ؟" & vbCrLf & "", vbYesNo, " مدينة غير مسجلة") = vbYes Then Dim x As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("TableA") Rs.AddNew Rs!city = [Forms]![main]![city] Rs.Update Set Rs = Nothing MsgBox "تم التسجيل بنجاح", vbOKOnly, "تأكيد التسجيل" End If End If فقط الصق الكود في حدث بعد التحديث ان كانت المدينة غير مسجلة مسبقا سيتم تسجيلها

الاستاذ/ @عبد اللطيف سلوم جزاك الله خير وبارك الله فيك

يا @ابا جودى .. بعد هذا الكلام .. أسمع .. أشهد الله أني أحبك في الله .. فنعم التواضع ونعم الأخ أنت وابشرك بحديث عن النبي صلى الله وعلية وسلم أنه قال: (( والله في عون العبد ما كان العبد في عون أخيه )) وكذلك .. قال رسول الله صلى الله عليه وسلم: «أَحَبُّ النَّاسِ إِلَى اللَّهِ أَنْفَعُهُمْ لِلنَّاسِ، وَأَحَبُّ الأَعْمَالِ إِلَى اللَّهِ سُرُورٌ تُدْخِلُهُ عَلَى مُسْلِمٍ، أَوْ تَكْشِفُ عَنْهُ كُرْبَةً، أَوْ تَطْرُدُ عَنْهُ جُوعًا، أَوْ تَقْضِي عَنْهُ دَيْنًا، وَلأَنْ أَمْشِيَ مَعَ أَخٍ لِي فِي حَاجَةٍ، أَحَبُّ إِلَيَّ مِنْ أَنْ أَعْتَكِفَ فِي هَذَا الْمَسْجِدِ -يَعْنِي مَسْجِدَ الْمَدِينَةِ- شَهْرًا، وَمَنْ كَفَّ غَضَبَهُ سَتَرَ اللَّهُ عَوْرَتَهُ، وَمَنْ كَتَمَ غَيْظَهُ، وَلَوْ شَاءَ أَنْ يُمْضِيَهُ أَمْضَاهُ، مَلأَ اللَّهُ قَلْبَهُ يَوْمَ الْقِيَامَةِ رِضًا، وَمَنْ مَشَى مَعَ أَخِيهِ فِي حَاجَةٍ حَتَّى يُثْبِتَهَا، أَثْبَتَ اللَّهُ قَدَمَيْهِ يَوْمَ تَزُولُ الأَقْدَامُ، وَإِنَّ سُوءَ الْخُلُقِ يُفْسِدُ الْعَمَلَ، كَمَا يُفْسِدُ الْخَلُّ الْعَسَلَ» (السلسلة الصحيحة: ج2، [906]). إن أخاك الحق من كان معك *** ومن يضر نفسه لينفعك أعرف أن الحديث الثاني طويل لكن لا أحب أن أقطع كلام رسوالله ..

معلومة في اوفسنا اعتقد انه يجهلها الكثيرين اذا بدك تعرف عدد مشاركاتك ومشاهدة مشاركاتك كلها وعدد مرا ت التحميل شاهد الصور المرفقة او اذا نشرت شيء قبل فترة وحبيت ترجع له بسهولة هنا الحل

شكراً لك استاذ @عبد اللطيف سلوم ..

أهلا بكم.. أشكرك أستاذ @رمهان على ثقتك بي وأثني بالزملاء الكرام.. في مخيلتي طريقتان سوف أعمل عليهما.. إن شاء الله..

جزاكم الله كل خير

لاضفاء حركة على النموذج الفرعي قمت بعمل id hyperlink منظر جمالي ويسهل للمستخدم الضغط عليه الموظفين.accdb

استاذ @محمد طاهر "أحياناً ليس كل مانشعر به نستطيع البوح به، فبعض الشعور ينحصر بين القلب واللسان ، وجزء منه يُحتجز في أعيننا، وفِي هذه اللحظة نصاب بالذهول من شدة الفرح وتضيع منا سحر الكلمات" جعلكم الله ممن صام فاتقى .. وقام فارتقى .. ومن ينابيع الرحمة استقى أسأل الله العظيم بكل ماتحمله هذه الساعات من فضل أن يجعلكم من أسعد السعداء .. وأن يتم عليكم النعم والهناء كما أسعدتم قلوبنا .. كل الشكر والتقدير والامتان بالجميل لحسن كرمكم واستضافتنا معكم فى هذا الصرح الشامخ

وبعد تعب وتحضير مثال وتضييع وقت تجد ردا يصيبك بالاحباط ولو قلت للاخ الكريم صاحب المسألة حتى لو لم تجبه انت ان من قدم المساعدة لم يضرب الودع حتى يقف على مرادك ويقدم لك ما تريد يرد عليك وتكون انت المخطأ كيف ترد بمثل تلك الكلمات ويتعقدون انك تتكبر عليهم او او .... لذلك انا اطلب المرفق دائما ولا احب الرد على المجهول لاننى اشبهه بمن يحرث فى الماء فانه يحرث بلا جدوى فلن يجنى غير التعب بوجع عام ضع المغيار الاتى فى استعلامك على حقل التاريخ Between [start dat] And [end date]

ما شاء الله استاذ على شيت رائع جزاكم الله خير

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

عروستــــــــــــــــــــــــــــــــــــــى انا لم افهم ممكن توضح عملى مثال على كل طلب وبم تقصد ينقل المدينه ؟ اتمنى منك الاخذ فى الحسبان اننا صائمون ههههههههههه

ما شاء لله استاذنا الحبيب شرح رائع جزاكم الله خير

رااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااائع جدا جدا جدا جدا جدا جدا جدا جزاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

قم بالتجربة لاحظ المعادلة في BB7 Cash Payment Request (3).xlsm

تم تحميل الإضافة برجاء التجربة 😆

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

وعليكم السلام-تفضل ترحيل pdf.xlsm

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

اخي الكريم اقترح عليك عدم تضمين نموذج الدخول بجدول المستخدمين يجب الغاء مصدر السجلات في النموذج و الحقول ضع كود التحقق من صحة بيانات المستخدم من خلال الكود و هذه افضل طريقة خاصة اذا تم مشاركة قاعدة البيانات سيتم الاتصال بالقاعدة عند الحاجة فقط تغضل المثال Database1.accdb

الاستاذ / @qathi جزاك الله خيرا دائما تقوم بمساعدتي وضعت الكود كما اشرت انت مرة عند النقر ومرة اخري عند النقر المزدوج ما زالت المشكلة قائمة يذهب التركيز علي اول سجل في الفرعي كل الاحترام والتقدير لكم

بعد اذن الاخ وحيه هذا الماكرو Option Explicit Sub Get_Blanks() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim Pr As Worksheet Dim Da As Worksheet Set Pr = Sheets("Print") Set Da = Sheets("Data") Dim LR_Pr%, k% Dim separator%: separator = 14 If IsError(Application.Match(Pr.Range("f2"), Da.Range("G:G"), 0)) Then MsgBox "Wrong name of Section" Pr.Range("A14:f5000").Clear GoTo Exit_Sub End If Dim x%: x = Application.CountIf(Da.Range("G:G"), Pr.Range("f2")) LR_Pr = Pr.Cells(Rows.Count, "b").End(3).Row If LR_Pr > 13 Then Pr.Range("a14").Resize(LR_Pr, 6).Clear End If For k = 1 To x - 1 Pr.Range("PRINCE_RG").Copy Pr.Range("a" & separator).PasteSpecial separator = separator + 14 Next Application.CutCopyMode = False fill_data Pr.Range("c4").Select Exit_Sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Rem==================================== Sub fill_data() Dim col_Dt As New Collection Dim Pt As Worksheet: Set Pt = Sheets("Print") Dim Dt As Worksheet: Set Dt = Sheets("Data") Dim First_Row_dt%, Fix_Row_dt% Dim find_rng As Range Dim kk%: kk = 4 Dim Collec_num% Set find_rng = Dt.Range("g:g").Find(Pt.Range("f2")) If Not find_rng Is Nothing Then Fix_Row_dt = find_rng.Row: First_Row_dt = Fix_Row_dt col_Dt.Add Dt.Cells(Fix_Row_dt, 1).Value Do Set find_rng = Dt.Range("g:g").FindNext(find_rng) Fix_Row_dt = find_rng.Row If First_Row_dt = Fix_Row_dt Then Exit Do col_Dt.Add Dt.Cells(Fix_Row_dt, 1).Value Loop End If For Collec_num = 1 To col_Dt.Count Pt.Range("c" & kk) = col_Dt(Collec_num) kk = IIf(kk < 15, kk + 13, kk + 14) Next Set col_Dt = Nothing End Sub الملف مرفق Print_Shahadat.xlsm

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

زيادة في اثراء الموضوع هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$2" And _ Target.Count = 1 Then My_validation End If Application.EnableEvents = True End Sub Rem================================ Sub My_validation() Dim Bayanat As Worksheet: Set Bayanat = Sheets("البيانات") Dim Amaliate As Worksheet: Set Amaliate = Sheets("العمليات") Dim arr(), Ro%, t%, Col%, st$ Ro = Bayanat.Range("a:a").Find(Amaliate.Cells(2, 1)).Row Col = Bayanat.Cells(Ro, Columns.Count).End(1).Column For t = 2 To Col ReDim Preserve arr(1 To t - 1) arr(t - 1) = Bayanat.Cells(Ro, t) Next st = Join(arr, ",") With Amaliate.Cells(2, 2).Validation .Delete .Add xlValidateList, Formula1:=st End With Amaliate.Cells(2, 2) = arr(1) Erase arr End Sub المبف مرفق variable_data_val.xlsm

ممكن تجربة هذا الكود بيان الموظفين.xlsm

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

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

يلا شباب بدي ردود سأضع بين أيديكم أكثر من 3000 برنامج بس بدي تشجيعكم BackUpWithCompact2k.zip