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

استبدلها بهذا If Vn1 = 0 Then Me.K1.Visible = False End If كودك بعد التعديل .... On Error Resume Next If Vn1 = 0 Then Me.K1.Visible = False End If If Vn2 = 0 Then Me.K2.Visible = False End If If Vn3 = 0 Then Me.K3.Visible = False End If If Vn4 = 0 Then Me.K4.Visible = False End If If Vn5 = 0 Then Me.K5.Visible = False End If

السلام عليكم تفضل اخي الكريم برنامج لفتح او الغاء الشفت للست ام عهود تحياتي برنامج فتح والغاء الشفت بالاكسس.rar

السلام عليكم معلومة في أكسس خيارات تقييم الموظف او العميل حسب طبيعة عملك للمبتــــــدئيـــــــــــــــــــن تقييم موظف.accdb

شوف كده مثال.rar

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

فك الضغط بعد التحميل وافتح تجد فولدلر Release تجد Stup وستب البرنامج ومن ابدأ تجد البرنامج فى القوائم بأسم MON2 منه شغل البرنامج ملف تعليم الرياضيات مستوى اول مرفوع على جوجل درايف https://drive.google.com/open?id=1ICbEnXogfnnYYv0jBHMGNAkRZkOaSFCn وهذا رابط أيضاً على ميديا فاير MONeer2

السلام عليكم اخي الفاضل zoom10 لو ملكش اي طلب تاني ف الموضوع ده يبقي كدة نعتبر تمت الاجابة ولا لسة فيه اي خدمة تاني نقدر نقدمهالك انا او اي اخ في المنتدي الجميل ده وكل سنة وانت طيب وبخير

الشكر لله أولا ولمن تعلمت منهم فى هذا الصرح العظيم بالتوفيق

الف شكر يااستاذ أشرف . بارك الله فيك

هذه المعادلة (Ctrl+Shift+Enter) ولا حاجة الى (IFERROR) =IF(E$1="الكل",Data!D2,IF(ROWS($B$4:B4)>COUNTIF(Data!$R$2:$R$200,E$1),"",INDEX(Data!$D$2:$D$200,SMALL(IF(Data!$D$2:$D$200<>"", IF(Data!$R$2:$R$200=E$1, ROW(Data!$D$2:$D$200)-ROW(Data!$D$2)+1)),ROWS($B$4:B4))))) الملف مرفق Cond_filter.xlsx

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

اشكرك اخي خالد جزيل الشكر هذا المطلوب بالضبط جعله الله بميزان حسناتك ان شاء الله

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

جزاك الله خيرا اخي على المعلومة تحياتي

وعليكم السلام-تفضل نموذج.xlsm

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

هل دا هو المطلوب؟ Book01.xlsx

أ.ازهر عبد العزيز أرجو ان اكون وفقت فى فهم السؤال جرب ووافنى بالنتيجة New Microsoft Access Database.accdb

اتفضل zoom10 اتمني ان يكون المطلوب اي تعديلات اهلا وسهلا 111f.rar

تفضل أخي . اضافة زر لضغط كل ملفات الموظف في مجلده بتعديل كود Ron ليناسب طلبك و رز للارسال الملف المضغوط عبر الايميل أنا وضعت هدا المسار الدي يحتوي على معلومات الموظفين C:\empfiles غير ما يناسبك داخل االاكواد TEST ATTACEHDfin.xlsm

1- تبديل اسماء الصفحات الى Source و Targ لجسن نسخ الكود ولصقه الكود Option Explicit Sub get_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim s As Worksheet, T As Worksheet Dim S_rg As Range, Find_rg As Range Dim Nme$, i% Dim RoT%, Ro%, m%: m = 3 Set s = Sheets("source"): Set T = Sheets("Targ") Nme = T.Cells(1, 1) RoT = T.Cells(Rows.Count, 1).End(3).Row T.Range("A3").Resize(RoT, 3).Clear If Nme = vbNullString Then GoTo End_Me Set Find_rg = s.Columns("M").Find(Nme, lookat:=1) If Not Find_rg Is Nothing Then Ro = Find_rg.Row + 2 Set S_rg = s.Cells(Ro, 1).CurrentRegion For i = 1 To 10 Step 3 S_rg.Cells(1, i).Resize(S_rg.Rows.Count, 3).Copy _ T.Cells(m, 1) m = m + S_rg.Rows.Count Next End If If m > 3 Then With T.Range("A3").CurrentRegion .InsertIndent 1 .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .Interior.ColorIndex = 35 End With End If End_Me: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With End Sub الملف مرفق Basma Sh.xlsm

جزاك الله خيراً على الشرح الوافي والمفيد 🙂

شكرا استاذ مجدى

تفضل

ضع الكود في حدث this workbook Private Sub Workbook_Open() Dim c As Range For Each c In Range("c2:c4") c.Formula = "=TickerChart|Live!'QO." & c.Offset(, -2).Value & ".TAD$lasttradeprice'" Next c Dim d As Range For Each d In Range("d2:d4") d.Formula = "=TickerChart|Live!'QO." & d.Offset(, -3).Value & ".TAD$lasttradeprice'" Next d Dim e As Range For Each e In Range("e2:e4") e.Formula = "=TickerChart|Live!'QO." & e.Offset(, -4).Value & ".TAD$lasttradeprice'" Next e End Sub 9.xlsm

هلا اخي هذه السلسلة مميزة

السلام عليكم أولا: أخي أحمد لم تضع مثالا لأقوم بالتعديل عليه أنت وضعت جدولا فقط لقد قمت بإضافة حقل لهذا الجدول اسمه value_web سوف توضع فيه القيمة المستوردة من الويب و أضفت نموذج به نموذج فرعي البرنامج يعتمد على قراءة الكود من النموذج الفرعي لكل سجل ثم يجلب القيمة من الويب و يضعها في الحقل value_web Suppliers-Copy-1.rar

استكمالا للموضوع والطريقه الموضوعه انقر بزر الماوس الايمن فوق الاستعلام 4 تصدير ملف نصى ثم ثم ثم ثم ثم التالى التالى وبهذا تم معالجه الخطأ الظاهر لديك بالتوفيق اخى

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

مثال تطبيقي حول التعامل مع المتصفح: الدخول إلى موقع أوفيسنا في متصفح Internet Explorer من خلال الأكسس المثال التالي يمكننا من إدخال اسم المستخدم و كلمة مرور أوفيسنا و عند الضغط على زر الدخول يفتح الموقع بحسابك الخاص في متصفح أنترنت أكسبلورر Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://www.officena.net/ib/login/" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = True Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.all.auth.Value = Me.str_UserName HTMLDoc.all.Password.Value = Me.str_Password HTMLDoc.getElementById("elSignIn_submit").Click ' oBrowser.Refresh ' Refresh If Needed Err_Clear: If Err <> 0 Then 'Debug.Assert Err = 0 Err.Clear Resume Next End If فتح موقع أوفيسنا.rar

بالنسبة للتحويل sqlservr في الخطوة الاولى تقوم بعملية استيراد الجداول من الاكسيس الخطوة الثانية الهامة جدا القيام بالتعديل على الجداول بما يتلائم مع قاعدة اس كيو ال فمثلا لا يوجد في اسكيوال ترقيم تلقائي بل يكون الحقل INTEGER ثم coulum properties ----identity spicification---IS edentity------yes بعد الانتهاء من التعديل تذهب تبدا انشاء العلاقات وذلك في قاعدة اس كيوال تختار ضمن قاعدة بياناتك يوجد فولدر اسمه database diagrams كليك يمين new database diagrams ستفتح لك شاشة فارغة تختار كليك يمين اضافةجداول ثم انشاء علاقات بالسحب وانصح كل شخص يريد ان يحول الى اس كيو ال كقاعدة خلفية ان يحضر السلسلة التالية على اليوتيوب وان شاء الله ساكتب المختصر المفيد للسلسة التي على اليوتيوب ان كانت الظروف ميسرة https://www.youtube.com/watch?v=muuj5KPv5lA&list=PLjE0e7CYrXToCWrkWp3VFN_-HCzvqn75x وان كانت باللغة الانجليزية لكن تستطيع ان تفهما بالنظر والتطبيق لانها تعتبر اهم من شرح طريقة الربط

السلام عليكم التحويل لقاعدة sql ليس بالصعب ولكن لا بد للشخص ان يحول قاعدته ان يكون يعلم حسب علمي وتجربتي الشخصية بsqlserver 2008 1-عند التحويل العلاقات بين الجداول تزول فيجب اعادة ربطها 2-اعادة تكوين المفتاح الرئيسي لبعض الجداول اذا كان لاكثر من حقل في نفس الجدول اوعدم وجوده اصلا 3-ميزات نسخ sql المجانية والمدفوعة تجدها في الفيديوhttps://www.youtube.com/watch?v=i3yb_-j5CbE

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