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

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

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

أنا كنت مجرب على هذا الموقع ولم يطلب مني التسجيل ممكن تجرب مواقع أخرى مجانية تقوم بتحويل pdf إلى وورد

وعليكم السلام ورحمة الله وبركاتة طلبك تجده على الرابط التالي ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

شكرا استذنا القدير kaser906 على الرد والمعلومة.بارك الله فيك.

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

بارك الله فيك اخي أبو آدم وجعله في ميزان حسناتك الله يعطيك الصحه والعافيه انت دائما ماتقصر بك موضوع وبعد اذنك استاذ ابو ادم بما ان الاخ ابو زاهر عندة مشكلة في الربط جعلت له الربط اتماتيك عند الاقلاع NA_B&R Final.rar

السلام عليكم أخي ابا زاهر هل تريد أن ارفق لك التطبيق معدلا ....

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

السلام عليكم أخي ابا زاهر ليس لديه طلبات خاصة ... المهم تطبيق الفكرة بشكل عام ، و اذا ظهرت امور اخرى نعالجها باذن الله الكود المرفق كما هو خلف حدث عند النقر لزر أمر الاسترداد في التطبيق لديك Dim fdg As FileDialog, vrtSelectedItem As Variant Dim strSelectedFile As String Set fdg = Application.FileDialog(msoFileDialogFilePicker) With fdg .AllowMultiSelect = False .InitialView = msoFileDialogViewDetails .InitialFileName = Application.CurrentProject.Path & "\Backup" .Title = "Please select BackUp File" .Filters.Clear .Filters.Add "Access Databases", "*.MDB,*.MDE,*.ACCDB,*.ACCDE" .Filters.Add "All Files", "*.*" .ButtonName = "Restore" If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems strSelectedFile = vrtSelectedItem Next vrtSelectedItem Else MsgBox "You did not select a BackUp File." & _ vbNewLine & "The Restore process was stopped ... ", vbCritical, "Operation Stopped" Exit Sub End If End With Set fd = Nothing relinkTables (strSelectedFile) ثم انسخ الروتين التالي في محرر اكواد النموذج Public Sub relinkTables(NewPathname As String) Dim Dbs As Database Dim tdf As TableDef Dim Tdfs As TableDefs Set Dbs = CurrentDb Set Tdfs = Dbs.TableDefs 'Loop through the tables collection For Each tdf In Tdfs If tdf.SourceTableName <> "" Then 'If the table source is other than a base table tdf.Connect = ";DATABASE=" & NewPathname 'Set the new source tdf.RefreshLink 'Refresh the link End If Next 'Goto next table End Sub جرب و وافني بالنتيجة .... كل مرة تختار فيها نسخة للاسترداد و تتم العملية اذهب الى الجداول لترى ان مصدرها هو النسخة التى اخترتها .......

بعد اذن اساتذتي شوف المرفق ده فيه طريقه مبسطه جدا طبعا ساعدني فيها استاذي الفاضل ابو خليل انشاء الله تظبط معك test1.rar

بارك الله فيك استاذنا kaser906.

الاستعلام هو عبارة عن جدول بل يتفوق عليه بالحسابات ، وكانوا سابقا ينصحوننا بعدم وضع الحقول المحسوبة في الجدول ، والآن اصبح الحقل المحسوب أساسي في الجدول . فإن اردت ان تثبت الحقل داخل الجدول فيجب نقل نتيجة المعادلة من حقل الاستعلام الى حقل الجدول انظر تم التعديل على النموذج والتحايل على القيمة ، بحيث وضعنا زرا ينقل القيمة من الاستعلام الى الجدول db1.mdb

تفضل txtdate2= DateAdd("m";"-8";[txtdate1])