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

للاخوة المبتدئين بالاكسس مثلي اهديكم طريقة عمل عداد للوقت مرفق ملف العمل اذا في افكار أجمل من هيك مش غلط ( منكم نستفيد ) عداد الوقت .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

1- DoCmd.SetWarnings False DoCmd.OpenQuery "Dell" DoCmd.SetWarnings True

تفضل المرفق و به التعديل testcopy.mdb

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]). إن أخاك الحق من كان معك *** ومن يضر نفسه لينفعك أعرف أن الحديث الثاني طويل لكن لا أحب أن أقطع كلام رسوالله ..

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

كل المحبة والاحترام اخي الحبيب @وجيه شرف الدين

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

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

جربت المثال واحسست ببطئ مرور الوقت به هل هذا لاننا ننتظر موعد الافطار ؟

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

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

ياباشا تسلم ايدك تسلم ايدك تسلم ايدك والله متشكر جدا لحضرتك

اخي خالد انظر هنا و هنا افكار احصائية ولكن يعيبها البطء عند كثرة البيانات فالدالات : dlookup , dcount , dsum لا تقارن بــــ select

جزاكم الله خير استاذ احمد مرورك العطر هذا

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

يمكن استعمال هذا الماكرو Option Explicit Sub copy_choosen_columns() Dim My_Max: My_Max = Range("a1").CurrentRegion.Rows.Count Dim I%, k% I = 2: k = 1 Sheets("sheet2").Cells.Clear With Sheets("sheet1") Do Until .Range("H" & I) = vbNullString Sheets("sheet2").Cells(1, k).Resize(My_Max).Value = _ .Cells(1, .Range("H" & I)).Resize(My_Max).Value I = I + 1: k = k + 1 Loop End With End Sub الملف مرفق copy_col.xlsm

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

بارك الله فيكم جميعا كلها حلول ممتازة

بعد اذن الاخ وحيه هذا الماكرو 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 لما يتواجد بداخلية أمكانيات للتحكم بالملفات بشكل اقوى واكثر دقة

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

اتفضل الملف لعله يفى بالغرض نسخة من طباعة شهادات.xlsm

وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع 1ملف العملاء.xlsx

وعليكم السلام تفضل ملف العملاء.xlsx

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

هما مرفقان اكسس واكسل db1.mdb Book1.xls

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

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

نعم هذا صحيح.. في أكسس 2003 فما دون.. نعم هذا صحيح أيضا لكن في أكسس 2007 فأعلى.. فما الحل؟ الحل في تعديل إعدادات الربط الافتراضية.. الخصيصة IMEX في أكسس 2003 تأخذ القيمة (0): IMEX=0 في أكسس 2007 تأخذ القيمة (2): IMEX=2 يمكن الاطلاع على إعدادات الربط والقيم الافتراضية في الحقل CONNECT من جدول النظام MSysObjects يمكن تعديل قيمة الخصيصة IMEX عن طريق الشفرة على النحو التالي Sub CHANGE_EXCEL_LINK_MODE() Dim DB As DAO.Database Dim TD As DAO.TableDef Set DB = CurrentDb Set TD = DB.TableDefs("tblPage1") Debug.Print TD.Connect TD.Connect = Replace(TD.Connect, "IMEX=2", "IMEX=0") TD.RefreshLink Debug.Print TD.Connect End Sub يمكن ربط ملفات أكسل والملفات الأخرى عن طريق الاستعلام.. وفي نظري هذه الطريقة أسهل في التعامل SELECT * FROM [ورقة1$] IN 'C:\Users\LENOVO\Desktop\AccsAcsl\Book1.xls'[Excel 5.0;HDR=NO;IMEX=0;]; هناك بعض الأمور المتعلقة بالدليل الافتراضي للربط أتركه للسؤال..

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

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