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

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

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

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

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

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 = "غير موجودة" استخدم هذا الكود

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

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

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

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

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

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

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

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

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

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

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

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

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

اخي خالد انظر هنا و هنا افكار احصائية ولكن يعيبها البطء عند كثرة البيانات فالدالات : 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

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

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