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

Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub

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

ههههههههه سامحك الله اخي @حمدى الظابط .. فهاذا سؤ ضن منك بما أنك قلت هذه العبارة استوجب عليا الرد .. وحتى تعلم الفرق بين أنسان يبحث عن البرامج الجاهزة الموجودة بالانترنت وما اكثرها وبين أنسان له منذو عام 2016 عضوا يسأل ويناقش ويشارك ويبحث في هذا المنتدى العريق فأرجو أن تتقبل ردي هذا بحسن نية وسعة صدر كم استفدنا من الملفات النهائية الذي يهديها اساتذتنا واعظاء المنتدى مثل ( ابانا الغالي @jjafferr و @صالح حمادي و @Shivan Rekany و @ابو جودي و @Moosak و @ابوخليل و @أ / محمد صالح و @ابوآمنة ........الخ .. وغيرهم الكثبر فالقائمة تطول ) ولديهم ملفات أكثر تعقيدا بالاكواد .. ( ابحث عن برامجهم وملفاتهم الذي اهدوها لنا في المنتدى وانظر بنفسك ) كم أستفدنا منها .. وليس شرطا أننا قمنا بعمل نسخ ولصق لملفاتهم وانما عرفنا طريقة عمل الاكواد وطريقة البناء السليم للملفات .. أسأل الله أن يجعلها لهم ذخرا وثواباً يوم القيامة وأن يدخلهم جنته الفردوس الأعلى .. وأسأل الله أن لا ننساء هذا لهم وأن نشهد لهم يوم القيامة بما قدموه لنا من المساعدة وضحو من اجلنا أثمن اوقاتهم .. فجزاهم الله عنا وعن جميع المسلمين كل خير .. للعلم اخي واستاذي حمدي ليس ملفك بالضبط هو مانريدة ونكتفي به .. وانما نريد الاطلاء على الاكواد والاستعلامات ووووالخ حتى نستفيد في طريقة عملها ونقوم بتعديلها في برامجنا .. فليس مجالي برامج المدارس .. ولا احب ان ادخل فيه .. وانما مجالي أمراً أخر .. فأكبر غلطة نرتكبها نحن العرب أننا نكرر نفس الاخطاء ونعيد نفس التجربة كل مرة في الاخطاء ويضيع عمر الانسان في ذلك . وكلامي هذا لا يقلل من احترامي لك ولا من همتك العالية في وصولك الى النتيجة .. كما لك الحرية في ان تضع ملفك او لا ونصيحة لك: أن تكون لك دعوة في ظهر الغيب خير لك من كنوز الدنياء وعلى العموم أكرر شكري واحترامي لك وشكرا على الروابط ...

جزاكم الله خير الجزاء ورفع قدركم ❤️❤️

وعليكم السلام .. ضع في control source of (doyoun)..شيء كهذا DLookUp("[tot]";"Query_table1";"[coud]=" & coud)

تفضل أخي print eta-1.accdb

وهذه طريقتي في كود الإضافة والبحث والذهاب إلى آخر سجل. Option Compare Database Option Explicit Private Sub btnsave_Click() Dim db As DAO.Database Dim rst As Recordset On Error Resume Next If Nz(Me.sname, "") = "" Or Nz(Me.sage, "") = "" Then MsgBox "لا يمكن ترك احد الحقول فارغا" Screen.PreviousControl.SetFocus Exit Sub End If Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenDynaset) With rst Err.Clear .AddNew !sname = Me.sname !sage = Me.sage .Update If Err.Number = 0 Then Me.sname = Null Me.sage = Null Me.sname.SetFocus Else MsgBox Err.Description, , Err.Number End If End With Set rst = Nothing Set db = Nothing End Sub Private Sub btnview_Click() Dim db As DAO.Database Dim rst As DAO.Recordset On Error Resume Next Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenSnapshot) With rst .FindFirst "sname='" & Nz(Me.sname, "") & "' And sage=" & Nz(sage, 0) If Not .NoMatch Then Me.ID = !ID Else MsgBox "لا يوجد سجل بهذه البيانات" End If End With Set rst = Nothing Set db = Nothing End Sub Private Sub cmdLastRec_Click() Dim db As DAO.Database Dim rst As DAO.Recordset On Error Resume Next Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenSnapshot) With rst .MoveLast Me.ID = !ID Me.sname = !sname Me.sage = !sage End With Set rst = Nothing Set db = Nothing End Sub Test_01.accdb

هذا البرنامج يحل لك كل مشاكلكPassword.Recovery.Kit.Professional.12.3.6332.rar

من الجيد تعديل العنوان بعد تبديل كلمة عمارير إلى عمائر.

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

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

تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb

سيصبح هكذا Dim a, werldr1, werldr2 As String a = Choose_File(FolderPath(Nz(Me.AttachmentPath, ""))) Dim fileName As String fileName = a Dim vPathSplitter As Variant vPathSplitter = Split(fileName, "\") werldr1 = (vPathSplitter(UBound(vPathSplitter) - 1)) werldr2 = (vPathSplitter(UBound(vPathSplitter) - 2)) If Nz(a, "") <> "" Then Me.AttachmentPath = werldr2 & "\" & werldr1 & "\" & Right(a, Len(a) - InStrRev(a, "\")) If Not IsNull([AttachmentPath]) Then MsgBox "تم إضاف اسم المرفق بنجاح", vbInformation, "إضافة مرفقات" Else MsgBox "عفواً لم يتم تحديد المرفقات", vbInformation, "لا يوجد مرفقات لهذه الموضوع" End If آمل ان تدرس الكود جيدا تحديد اسم المرفق2.rar

بارك الله فيك اخي الحبيب تم نغيير البريد والحمد لله اشكرك علي اهتمامك اخي الفاضل ودوما في تقدم وازدهار

تم عمل اشياء بسيطه ومن خلالها كمل لاني مشغول جدا اخي العزيز تقريب لك الفكرة.rar

تفضل أخي تم عمل طلبك الاول اما الثاني تم اضافة جدول (tbl_Data) للترحيل به ........... ووافني بالرد electrivahro-1.accdb

تفضل هذا طلبك أخي @naguib_3778 🙂 Private Sub Command1_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) End If End Sub Private Sub Command0_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane End If End Sub Hide Navigation Pane.accdb