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

أخي الكريم أما آن لك أن تقوم بتغيير اسم الظهور للغة العربية مسألتك في منتهى البساطة وليس لها علاقة بالكود ... في الملف يوجد تنسيق شرطي ..يمكنك الإطلاع عليه من التبويب Data ثم الأمر Conditional Formatting واختار Manage Rules ستجد معادلة التنسيق بهذا الشكل =NOT(ISBLANK(A6)) وتعني إذا لم تكن الخلية في العمود الأول فارغة يتم التنسيق بالشكل المطلوب وبجانب المعادلة يوجد النطاق الذي سيتم تطبيق التنسيق عليه قم بتعديل النطاق ليناسب الأعمدة التي تريدها =$A$6:$I$40 لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "أعجبني هذا" وأن تلتزم بالتوجيهات والنصائح المقدمة لك من الأخوة الأعضاء (يا مستر تويوتا)

السلام عليكم اخوانى وأساتذتى فى المنتدى وكل عام وأنتم بخير بمناسبة عيد الفطر اليوم أقدم لكم كيفية عمل اختصار لملف اكسل به صورتك على سطح المكتب فقد لفت نظرى طلب أحد الأخوة لهذا الموضوع لذلك قررت أن أضع بين أيديكم الطريقة الآتية 1 - فى ملف اكسل أدرج هذا المديول Option Explicit Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetActiveWindow Lib "user32" () As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Const CSIDL_PERSONAL = &H5 Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Dim FSO As New FileSystemObject Dim FLD As Folder Function UserNameOffice() As String UserNameOffice = Application.UserName End Function Public Function DesktopAddress() As String DesktopAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator End Function Private Function GetSpecialFolder(CSIDL As Long) As String Dim Path As String Dim FolderPath As Object Dim IDL As ITEMIDLIST Dim sh As New Shell32.Shell Set FolderPath = sh.NameSpace(5) If Not FolderPath Is Nothing Then GetSpecialFolder = FolderPath.Self.Path Exit Function End If GetSpecialFolder = "" End Function Function DirExists(strDirectory As String) As Boolean DirExists = (Dir(strDirectory, vbDirectory) <> "") End Function Sub Desktop_Shortcut() Dim WBName As String, Path As String, WB_Link As String, WB_Name As String Dim DesktopPath As String, TargetPath As String, StrSave As String Dim WSHShell As Object, MyShortcut As Object Set WSHShell = CreateObject("WScript.Shell") Dim FSO As Object, Folder As Object, File As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim WB As Workbook Set WB = ThisWorkbook Dim WSh As Worksheet Set WSh = Sheet1 WBName = WB.Name Path = "MyFile" DesktopPath = WSHShell.SpecialFolders("Desktop") WSh.Range("C2").Value = WB.Name WB_Name = WSh.Range("C3").Value WB_Link = WSh.Range("C4").Value On Error GoTo ErrHandle If Not DirExists("C:\" & WB_Name) Then 'Check C Drive If Not DirExists(GetSpecialFolder(CSIDL_PERSONAL) & "\" & WB_Name) Then 'Check My Documents Set FSO = CreateObject("Scripting.FileSystemObject") 'If not in C Drive or My Documents - then create shortcut FSO.CreateFolder "C:\" & WB_Name ChDir "C:\" & WB_Name SavePicture Sheet1.Image1.Picture, WB_Name & ".ico" 'Picture pasted onto Image1 on Sheet 1 - Link Shortcut Set FSO = CreateObject("Scripting.FileSystemObject") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & WB_Link) With MyShortcut .TargetPath = WB.FullName .IconLocation = "C:\" & WB_Name & "\" & WB_Name & ".ico" .WindowStyle = 1 .Description = "EEZIAdmin" .WorkingDirectory = WB.Path .Save End With Else End If End If ErrHandle: Set WSHShell = Nothing End Sub 2 - فى شيت 1 الخلية C3 ضع المعادلة =IF($C$2="";"";IF(MID($C$2;(LEN($C$2)-4);"1")=".";LEFT($C$2;LEN($C$2)-5);IF(MID($C$2;(LEN($C$2)-3);"1")=".";LEFT($C$2;LEN($C$2)-4);""))) وفى الخلية C4 ضع المعادلة الآتية =IF($C$3<>"";$C$3&".lnk";"") 3 - فى شيت 1 ادراج Image وعليها صورة : ندرج الـ Image كالتالى من developet tab ثم insert ثم more controls ثم Microsoft forms 2.0 image ثم ok ارسم الـــــ Image فى الشيت وبعدين كليك يمين عليها واخنر Properties فى قائمة الخصائص التى تظهر دور على الخيار Picture واعمل ادراج لأى صورة من على جهازك على الـ Image واحفظ وشغل الكود لكم كل التحية والتقدير Desktop Shortcut mokhtar.rar

تم تعديل الملف كي يعمل فقط على المعادلات اختر فقط من القائمة المنسدلة رقم السيارة و اكسل يقوم بالباقي اضغط اعجبني او افضل اجابة اذا كان كذلك المخالفات.zip

أخي الكريم عبد الواحد بعد فتح الملف بكلمة السر المميزة للأخين محمد حسن وعلاء رسلان (علامة النجمة) روح للأمر Save As حفظ باسم واختار تنسيق الملف Xlsm نفس التنسيق القديم وبجانب كلمة Save ستجد كلمة Tools بجانبها سهم صغير (ممكن تستخدم عدسة مكبرة عشان السهم صغير) انقر السهم هتلاقي General Options أي خيارات عامة انقر عليها واحذف كلمة السر واضغط Ok ثم أخيراً Save لو هتحفظ الملف في نفس المسار هيظهر لك رسالة تأكيد الاستبدال .. اضغط Yes للموافقة على الاستبدال أو غير اسم الملف الجديد باسم تاني وخلي القديم بكلمة السر زي ما هو (زي ما تحب .. تاكل سوداني أو تأزأز لب)

أخي الحبيب علاء بدلاً من استخدام جدول للنوع يمكن تعديل المعادلة لتؤدي الغرض بهذا الشكل بدون الاستعانة بجدول =VLOOKUP(A2,{"ذكر","ي";"أنثى","ت"},2,0)&IF(H2>=16,"وجه",IF(AND(G2>=10,H2<16),"نتقل","عيد السنة"))

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

اليك هذا الملف يمكنك اختايار المرتبة التي تريد و تبديل الاسماء التي تناسب العاشرة /الرابعة /الاولى حسب الختيار من الخلية J1 اضغط افضل اجابة اذا كان كذلك أعلى نتيجة اختيارية.zip

بارك الله فيك أخي وحبيبي في الله خالد الرشيدي معادلة في منتهى الجمال والروعة زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله - Function Kh_Names(FullName As String, ParamArray Index1()) As String Dim I As Integer Dim Kh_Split, MyArray, Arr Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Arr In MyArray RE = Replace(Arr, " ", "^") SN = Replace(SN, Arr, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(Index1) Kh_String = Kh_String & " " & Kh_Split(Index1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function استخدام الدالة =Kh_Names($F2,COLUMN(A$1)) أو يمكن بهذا الشكل =Kh_Names($F2,1) الرقم 1 يمثل الاسم الأول .. استخدم نفس المعادلة واستبدل الرقم 1 برقم 2 لاستخراج الاسم الثاني وهكذا تقبلوا تحياتي :fff: Split Compound Names.rar

الأخ الفاضل محمود بك إليك شرح للخطوط العريضة فقط وليس لتفاصيل المعادلة Transfer Data Based On Two Conditions By Formulas Help.rar

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

الحل الوحيد اللي خلاني مرضي شوية إني غيرت اسم الملف بتاعك وقبل التنفيذ غيرت الصورة ... ونجحت عملية إنشاء الاختصار بعد ما طلعت روحي الحمد لله هنام وأنا شايف صورتي الوحشة على سطح المكتب .. مقدرش أشوف سطح المكتب عندي عليه صورة حلوة وجميلة (دا مستحيل أبداً) تقبل تحياتي أخي الغالي مختار :signthankspin:

إسمح لى أخى الغالى أ/ محمد الريفى بتهنئة أخى الغالى / مختار حسين محمود داخل موضوع لحضرتك على الترقية المستحقة أيضا مع مزيد من التقدم والإزدهار

اخى الفاضل جرب المرفق لعلة المطلوب وابدى ملاحظاتك ان كان ما تريد قم بتحديدة كمجاب إقرار.rar

السلام عليكم أخى الفاضل ziso 777 حبذا لو غيرت اسمك الى اللغة العربية طبقا لتعليمات المنتدى أخى الكريم راجع الرابط التالى فله علاقة مباشرة بطلبك http://www.officena.net/ib/index.php?showtopic=62799

الاخ و الاستاذ الحبيب مختار حسين الف مليون مبروك على ترقيتك والشكر موصول لاستاذنا ومشرف اوفيسنا ياسر خليل واشكرك على تهنئتكم لى وكل عام وانتم بخير ومش عاوزينك تغيب عننا بقى علشان بتوحشنا تحياتى

اليكم الفيديو الثانى ادراج الصور وعمل موضوع بها وقريبا الفيديو الثالث

اخ ايمن /السلام عليكم جرب هذا الشيء المصنف1.zip

مخطئ تماما أيها الأخ الكريم أبو صاصا و كلامك مردود عليه أولا : لم تراعى قواعد المشاركة فى الموقع http://www.officena.net/Tips/Questions.htm خمسة دقائق لن تكلفك الكثير و ستريحك فى التعامل مع الموقع بشكل صحيح و فعال و إيجابى . ثانيا : لم تراعى قواعد المشاركة فى منتدى الأكسيل http://www.officena.net/ib/index.php?showtopic=60147 خمسة دقائق أخرى من وقتك الثمين و ستجد متعة فى التعامل بشكل صحيح و ميسر لك و لكافة الاعضاء ثالثا : جميع القواعد معلنة و بارزة و بمكان واضح و ليس مخفية أو سرية ستجعل منك عضوا متميزا فى أسلوبه و طرحه لمواضيعه سواء كانت سؤال او استفسار او شرح رابعا : أنت بكلامك قد أسئت للمنتدى بشكل صريح دون أن يكون هناك سبب لهذا التهجم و ذلك لأنك أهملت فى قراءة القواعد خامسا : أسئت لأحد المشرفين بشكل واضح و مباشر بالتعرض لإختصاصاته و مهامه الأساسية فهو القائم على تنفيذ قواعد المنتدى بشكل صارم و الا يعتبر مهملا كأى عضو عادى بالمنتدى لا يلتزم بالقواعد و لا يستحق منصبه القائم عليه سادسا : أسئت لغيرك من الأعضاء برغم من أن أحد لم يتأخر فى تقديم يد المساعدة و العون .. نحن هنا جميعا نساعد و نعاون دون أى مقابل الا مرضاة الله سبحانه و تعالى و نقتطع من أوقاتنا لمساعدة غيرنا على حلول مشاكلهم مع الأوفيس و غيره من البرامج أعضاء و مشرفين سابعا : لمجرد عدم حصولك على اجابة تصب جام غضبك على المنتدى برغم عراقته و كذلك كونه من أفضل المنتديات فى مجاله .. أنت لست أول و لا آخر واحد لا يجد لا لطلبه المسئلة قائمة على الفهم الصحيح للمشكلة حتى يتم حلها ( ليس سلق بيض أو قالب محفوظ ) و قائمة على تفهم قواعد الموقع و المنتدى و على إدراك صاحب المشكلة أنه قد أوصل مشكلته بشكل صحيح و مفهوم ثامنا : إن كنت ترى ان تأديه المشرف لمهامه استخفاف و إهانه فإن من واجبى كمسلم نصحك و إرشادك الى أنك مخطئ أخى الكريم من قمة رأسك لأخمص قدميك أرجو منك قراءة القواعد بعناية و قراءة كلامى بشكل صحيح حتى تعلم مكمن الخطأ و لا تظلم أحد فالظلم ظلمات يوم القيامة و بالنيابة عنك أعتذر لأخى الكريم ياسر خليل عما بدر من العضو الكريم من تعرض للمنتدى و له بشكل شخصى ارجو أن يتقبل أسفى و أعتذارى الشديد و لأخوتى الأفاضل 10 دقائق فقط يمكنها أن تجنبنا الخطأ و تقلل منه بشكل كبير بتفهمنا للقواعد تاسعا : الأخ الكريم أبو صاصا .. لم ترد على أى استفسار من الأعضاء و بدلا من ان ينصب همك على المشكلة انصب همك على شخصك و تحول الموضوع لمسئلة شخصية و ثأر وهميا فى مخيلتك .. فلا أنت تعرفنى بشكل شخصى او تعرف الأخ ياسر أو غيره و لا نحن نعرفك حتى نهينك او نستخف بمشاعرك على ما تظن و تعتقد عاشرا : نحن هنا جميعا فى خدمة بعضنا البعض دون مقابل الا مرضاة الله سبحانه و تعالى و كل شخص على قدر معرفته و علمه و كل منا يختفى وراء كلماته التى تفضح شخصيته الكلمة الطيبة يبقى أثرها فى النفوس و تذكر بخير و الكلمة الخبيثة يبقى اثرها و تذكر بشر مهما حاولنا و مهما اختفينا وراء الكلمات فهى تفضح مكنون النفوس فتخير كلماتك أخى الكريم و أحسن عرض أسلوبك لمسئلتك و انتقى من الخطوط ما يسر القلب و ما يريح العين ... ان كان كلامى خير فمن الله و فضله و ان كان كلامى شر فمن نفسى و أستغفر الله لى و لكم دمتم بخير جميعا و أعزكم الله

بارك الله فيك اخي علاء رسلان واستادياسر خليل أبو البراء وجعله في ميزان حسناتكم

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

السلام عليكم...نجمة أو نجم.... لاأعلم والله أعلم.

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

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

أخي علاء المحترم السلام عليكم ورحمة الله وبركاته: لست أدري ما سرّ هذا الملف من EXCEL الذي حاولت مراراً وتكراراً فتحه إلا أنه أبى... حتى أنني لم أر حرفاً مما هو مكتوب به لا شاشة افتتاحية (بداية ) ولا غيرها.. عجيب.. تقبلوا تحياتي....السلام عليكم.

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

المطلوب بالمرفق ان كان ما تريد حدد الموضوع كمجاب فاتورة_2.rar الحل بهذا التنسيق لاختصار الكود المستخدم

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

احبك الذى احببتنى فية استازى الحبيب ياسر كود رائـــــــــــــــــــــــــــع -اثاب الله صاحبة بالخير - شكراً جزيلاً لحضرتك - وجزاك خيراً فقد استفدت منة الكثير خالص احترامى وتقديرى

الأخ الكريم هشام كمال أعتذر عن التأخر في الرد إليك الملف التالي عله يفي بالغرض ماستر 2015-2016.rar

اخى الفاضل جرب الملف التالى ان كان ما تريد قم بتحديدة كأفضل إجابة ملف تقسيم الاسماء.rar

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

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

وكل عام وحضراتكم بألف صحة وسعادة

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

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

الاستاذ يوسف يستخدم اوفيس 2013 الخلل موجود في المكتبات واخص مكتبة البريد Outlook يمكنك استبدالها بالاصدار الاقدم

عيدكم مبارك وعساكم من العايدين كل سنه وبصحه سلامه يارب.. شكراً استاذ يوسف وعسى ان يكتب اجرها في ميزان حسناتك ياارب .. اتوقع فيها اخطاء بسبب الاوفيس اللي عندي , عندي 2010 ,,,, ( صاحب الموضوع الاستاذ يوسف , والاساتذه اللي ردو اثنو على الهديه يعني الخلل عندي انا مافيها كلام )

الجزء السابع للمبدع اسلام رجب

الجزء السادس

الجزء الخامس

الجزء الرابع

الجزء الثالث

تفضل اخى واتمنى ان يكون هو المطلبإقرار.rar

الأخ الفاضل الغندور إليك المرفق التالي .. Transfer Data Based On Two Conditions.rar

شرح الطريقة : ( حسب المثال المرفق) لدينا نموذج غير منضم يشتمل على عدة حقول ومربع تحرير مصدره جدول معين ونريد عندما نختار اسما معينا من مربع التحرير ان تظهر بقية بيانات السجل اسم مربع التحرير combo1 واسماء الحقول الاخرى txt1 .. txt2.. txt3...... وهكذا ____________________________________________ لنلقي نظرة على محتويات مربع التحرير الداخلية : - ننقر بزر الفأرة الايمن على مربع التحرير ونختار خصائص - نفتح على لسان التبويب : بيانات - ننقر على النقاط الثلاث التي بجانب القيمة : مصدر الصف سيفتح الاستعلام الذي هو مصدر الصف لمربع التحرير لاحظ ان الاستعلام يحتوي على 8 اعمدة وهي الحقول الموجودة في سجل الجدول معرف العمود الاول = صفر معرف العمود الثاني = 1 معرف العمود الثالث = 2 وهكذا ........ هذه المعرفات سنحتاجها عندما نرغب في جلب البيانات من مربع التحرير _________________________________________ الآن نرجع الى النموذج على عرض التصميم وننقر على مربع التحرير بزر الفأرة الايمن - نفتح على لسان التبويب : حدث - ننقر على النقاط الثلاث التي بجانب القيمة : بعد التحديث سيفتح محرر الفيجوال ونلاحظ وجود سطرين جديدين ننسخ الجملة التالية ونلصقها بين السطرين Me.txt1 = combo1.Column(1) Me.txt2 = combo1.Column(2) Me.txt3 = combo1.Column(3) Me.txt4 = combo1.Column(4) Me.txt5 = combo1.Column(5) Me.txt6 = combo1.Column(6) Me.txt7 = combo1.Column(7) (Me.txt1 = combo1.Column(1 تعني : الحقل الاول في النموذج يساوي الحقل1 في مربع التحرير وهكذا ... امل ان يكون الشرح وافيا db.rar

أحتاج لخيار آخر غير InputBox بحيث يكون قابل للسيطرة و متناسقاً مع النظام من حيث الشكل وتنسيق النماذج !! هذه هينة بإذن الله ... قم بإنشاء نموذج بالحجم الذي تجده مناسبا قم بانشاء مربع نص بإسم Text000 قم بانشاء زر أمر بإسم ComClose وسمه OK قم بانشاء زر أمر بإسم ComCancel وسمه Cancel وفي محرر الفيجوال للنموذج ضع مجموعة الكودات التالية : Private Sub ComClose_Click() If IsNull(Me.Text000) Or Me.Text000 = "" Then MsgBox ("You did not provide anything!") Else MsgBox ("You entered: '" & Me.Text000 & "' as the value!") End If DoCmd.Close acForm, Me.Name End Sub Private Sub ComCancel_Click() MsgBox ("You pressed Cancel!") DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Timer() DoCmd.Close acForm, Me.Name End Sub Private Sub Text000_Change() Me.TimerInterval = 0 End Sub التطبيق بسيط وفعاّل عند فتح النموذج وعدم التفاعل معه لمدة 10 ثواني يغلق تلقائياً عند إدخال أي نص في مربع النص تظهر الحروف على شكل نجمة (كلمة سر) بالموافقة على النص المدخل OK تظهر رسالة توضح النص المدخل ، وهنا يمكننا وضع الكود المناسب للتطبيق من حيث إعتماد القيمة أو رفضها ... في حال ترك مربع النص فارغاً وضغط OK تظهر سالة تفيد بانه لم يتم إدخال أي قيمة في حال الضغط على الزر Cancel يتم إشعارنا برسالة بخيارنا ويتم إغلاق النموذج جرب ....

في التقرير أريد أخفاء مربع نص من الصفحة الأولى فقط على أن يظهر في الثانية وما بعدها !! بسيطة ... في page header format نضع الكود التالي : If page > 1 Then Me.controlname.visible = false . . . Else Me.controlname.visible = true . . . End If

السلام عليكم ورحمة الله و بركاته بعد اذن الاخوة تعديل بسيط على الفورم و الكود و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته قاعدة بيانات ادخال وبحث HaNcOcK 2.rar

الخطوه الأهم في تصميم اي قاعدة بيانات هي وضع مخطط العمل , و لكي نعرف مخطط العمل لابد من الاحاطه بالهدف المطلوب من انشاء قاعدة البيانات . لدينا شركة NorthWind أو الرياح الشماليه , شركة تقوم بشراء وبيع البضائع , عملية الشراء غير مطروقه في هذه القاعده , و انما الاهتمام كله موجه لعملية البيع ( و طبعا بالامكان تصميم مايلزم لعمليات الشراء ) . عملية البيع تتم بناء على طلبيات مسبقه من العملاء , بحيث يتم تحديد الأصناف المطلوب ارسالها للعميل و الأسعار ووسيلة الشحن وموعد الشحن المطلوب و رقم الموظف الذي قام بتسجيل بيانات الطلبيه . بالنسبه للبضائع لابد من مراعاة أن يكون هناك مخزون متوفر حيث أن البضائع التي تم بيعها للعملاء ستخفض الرصيد الموجود بالمخازن , و طبعا في حال انخفاض هذا الرصيد عن حد اعادة الطلب , فيجب اعداد طلبية شراء لتغذية المخزون , و لكن كما ذكرنا عملية الشراء غير متطرق اليها في هذه القاعده . اذا يمكننا الآن أن نضع تصورا للجدول التي ينبغي انشاؤها حيث : - طالما لدينا بضائع يتم بيعها اذا لابد من انشاء جدول خاص بالبضائع Product - لدينا عملاء اذا نحتاج الى جدول للعملاء Customers - لدينا طلبيات اذا نحتاج الى جدول خاص للطلبيات اذ لكل عميل طلبيه مستقله Orders هذه هي الجداول الرئيسيه التي نحتاجها و سنقوم بتصميمها الآن . قبل البدء بتصميم الجداول لابد من الاشاره الى بعض التوصيات في بناء الجداول و هي : أولا : الجدول هو المادة التخزينيه للبيانات الرئيسيه , اذ يجب أن يحتوي على القيم التي لاتتأثر بغيرها اي على سبيل المثال اذا كانا نريد حساب المعادله التاليه القيمه = الكميه * سعر الوحده يمكن أن نضع حقلا للكميه المباعه و حقلا لسعر الوحده أما القيمة و التي هي عباره عن سعر الوحده * الكميه , فلا يجب أن يكون حقلا ضمن الجدول وذلك لأنه يتأثر بقيمة كل من الكمية و السعر فاذا تغير سعر الوحده فان الجدول لايستطيع حساب القيمه من تلقاء نفسه الا من خلال تشغيل كود معين , لذلك يستعاض عن هذا باستخراج القيمة من خلال استعلام يحوي حقل محسوب يساوي الكميه * السعر ثانيا : يجب فصل البيانات الخاصه بجزئيه معينه عن بعضها , مثلا الجدول الرئيسي لدينا هو جدول الطلبيات , و حيث أننا نريد أن ندخل اسم العميل في الطلبيه , و حيث أننا نحتاج بنفس الوقت لمعرفة بيانات كامله عن هذا العميل , فاذا كنا سنقوم بادخال بيانات العميل هذه كل مره في جدول الطلبيات فسيكون هذا عملا مرهقا , لذلك احتجنا أن تكون بيانات العميل في جدول مستقل تجتمع فيه بياناته الكامله , و نكتفي في جدول الطلبيات بوضع حقل واحد لرقم العميل , و بعملية الربط بين الجدولين نستطيع معرفة مانريد من بيانات عن هذا العميل . ثالثا : يفضل أن تكون استخدام الأسماء الانكليزيه لكل مكونات قاعدة البيانات و خاصة اسماء الجداول و الحقول , لأن استخدام الأسماء العربيه يسبب ارباكات أثناء العمل بالمعادلات و أكواد الفيجوال بيسيك رابعا : تجنب وضع مسافات في التسميات , مثلا اذا كنت تريد تسمية Product List فالأفضل وصلها هكذا ProductList لنبدأ الآن بتصميم الجدول الأسهل في هذه القاعده و هو جدول العملاء , و لنتصور أنه يحتوي الحقول التاليه : اسم العميل CompanyName العنوان Address المدينه City الدوله Country المنطقه Region الرمز البريدي PostalCode الهاتف Phone الفاكس Fax و سنحتاج اضافة لذلك بيانات عن الشخص الذي سنتصل به مثل اسمه ContactName و عمله الوظيفي ContactTitle و طبعا قبل كل ذلك نحتاج الى كود العميل CustomerID و هو الذي سيكون صلة الربط مع الجداول الأخرى و المفتاح الرئيسي لهذا الجدول قاعدة البيانات هذه موجوده بشكل جاهز مع الأكسس من قائمة الأدوات - أمثله , يمكن تنزيلها للاطلاع عليها , و لكن من أراد أن يستفيد أكثر فليحاول التصميم بنفسه لزيادة مهارته و ليبدأ بتصميم جدول العملاء و سنتابع ان شاء الله بقية الجداول في الدرس التالي

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