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

من الان يمكن الاتصال ما بين الهاتف المحمول و قاعدة البيانات مرفق مع مثال ملاحظة لابد من الاشتراك علي الموقع المرفق مجاني ويارب اكون افدتكم في حاجة https://www.experttexting.com/ Sample SMS.zip

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

افضل ان تجرب بنفسك اخي الكريم واذا لم يحالفك الحظ فأخوك ان شاء الله دائما معك بالخير

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

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

السلام عليكم ممكن شرح اكثر عن الطريقة وهل هي مجانية ام لا

اليك حل لكن بها مشكلة بسيطه واتمنى من الخبراء من لديه خبرة ان يعدلها والمشكلة هو حين بيطبع الفواتير اليوم المختاره كله راح يفتح ريكورد جديد انا عملت بعد تحديث او بعد اغلاق النموذج ان يحذف الريكورد الجديد لكن انا اعترف في ذلك هذا مش حل الافضل اليكم مع المرفق مع تقدير 111 (1).rar

تفضل نموذج فاتورة1.rar

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

جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) Dim My_Rg As Range Dim Target_Range As Range Dim My_Val As String Set My_Rg = Union(Range("time_1"), Range("time_2"), Range("time_3")) Set Target_Range = Sheets("sheet2").Range("a1:b30") On Error GoTo 1: If Not Intersect(Target, My_Rg) Is Nothing And Target.Count = 1 _ And IsNumeric(Target) Then Application.EnableEvents = False My_Val = Application.VLookup(Target, Target_Range, 2, 0) Target = My_Val End If 1: Application.EnableEvents = True On Error GoTo 0 End Sub الحل مرفق خطة أسبوعية salim.rar

::: بعد اذن الاخوه ......وعذرا للاخ vork056 لاستخدام مثاله في التعديل ::: لقد تم التعديل على المثال السابق هل هذا طلبك ؟ مثال _up.rar

اخي الكريم جربت الملف لا يوجد اي اخطاء فية ممكن تصور لي الخطأ فيديو حتى اشاهده

اللمسات الرمهانية دائما لها طعم ليس له مثيل كل الشكر والتقدير والامتنان استاذى القدير ومعلمى الجليل اسال الله تعالى ان يغفر لكم ولوالديكم ومن تحبون وللمسلمين اجمعين ان شاء انا قلت فى المرفق بتاعى ممكن يكون فى افضل بس دى فكرتى اللى على اد حالى >>-------------> لسه باتعلم اوم تجيلى الفكرة الافضل رمهانية حتما ولا بد ان تكون افضل وتكون ساحرة وكالعادى وعلى اد حالى كنت هاخبرهم بتغير الــ Me.Requery الى DoCmd.RefreshRecord ههههههههههه وكنت فرحان بيها قوى انها انحلت

مرفق الكود المستخدم لل زر Sub SearchBox() Dim myButton As OptionButton Dim SearchString As String Dim ButtonName As String Dim sht As Worksheet Dim myField As Long Dim DataRange As Range Dim mySearch As Variant Set sht = ActiveSheet On Error Resume Next sht.ShowAllData On Error GoTo 0 Set DataRange = sht.Range("A3:f1000") mySearch = sht.Shapes("UserSearch").TextFrame.Characters.Text If IsNumeric(mySearch) = True Then SearchString = "=" & mySearch Else SearchString = "=*" & mySearch & "*" End If For Each myButton In sht.OptionButtons If myButton.Value = 1 Then ButtonName = myButton.Text Exit For End If Next myButton On Error GoTo HeadingNotFound myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0) On Error GoTo 0 DataRange.AutoFilter _ Field:=myField, _ Criteria1:=SearchString, _ Operator:=xlAnd sht.Shapes("UserSearch").TextFrame.Characters.Text = "" Exit Sub HeadingNotFound: MsgBox "The column heading [" & ButtonName & "] was not found in cells " & DataRange.Rows(1).Address & ". " & _ vbNewLine & "Please check for possible typos.", vbCritical, "Header Name Not Found!" End Sub و لاسترجاع البيانات المفلترة Sub ClearFilter_Click() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub

وجدت الحل فى هذا العمل العظيم من اعمال الاستاذ عبد الله باقشير اتمنى انا يرجع بمشاركته العظيمة التى ابهرت الكل جزاه الله كل خيراً وجعلة فى ميزان حسناته فورم بحث1.rar

الاخ ياسر العربي عمل روعة . جزاكم الله خيرا

اخي الفضل .. فعلا ... Ctrl+ط يتم تكرار بيانات الحقل السابق في الحقل الحالي لكن الحقل السابق من السجل السابق .. في نفس الحقل في السجل الحالي ..يعني عند استعمال هذين المفتاحين يتم ( مثلا ) نسخ الجنسية او الوظيفة من الحقل في الجسل السباق ويضعها في نفس الحقل في السجل الحالي ... أما موضوع .. المفاتيح مثلا f4 فسوف اخصص لها درس منفصل انشاء الله اما اليوم ام غدا في كيفية التحكم بأداء المفاتيح وتخصيص المفاتيح اما عن طريق الماكرو ... أو عن طريق كود البرمجة ....