ناقل

اشكركم جميعا لحسن ظنكم بي ... اسأل العلي القدير ان يوفقنا جميعا لما يحبه ويرضاه .. بارك الله فيكم .

اسفل كل رد تجد علامة + اضغط عليها ثم ضعهافي ردك الجديد

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

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

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

طيب اذا الاجابة غير مناسبة لك قول عشان نشوف حلول اخرى ....... !!!!!!

تفضل .... docmd.print او docmd.printout

دالة الوقت والتاريخ.rar

هل هذا الحل يرضيك ......

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

المطلوب غير واضح ..... هل المطلوب عدد الايام في الجدولين ؟؟؟؟؟ أم امر اخر .... ممكن شرح للمطلوب ...

لاحظ الصورة الاولى تم الحفظ وظهرت رسالة باتمام التسجيل

قمت باضافة صنف جديد وانشأت له بركود ... ولم تظهر الرسالة ؟؟؟؟؟

الطلب لي ام صاحب السؤال ؟؟؟؟

Gyab_2.rar

شاهد هذه المواضيع .....

ان اردت الضغط والاصلاح قبلها مع رسالة ضع هذا الحدث تحت الزر ...... If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If Utilities.Restart

وانت في صحة وسلامة طيب انشئ وحدة نمطية وضع هذا فيه ::::::: Private Const TIMEOUT = 99 Public Sub Restart() Dim scriptpath As String scriptpath = Application.CurrentProject.FullName & ".dbrestart.bat" If Dir(scriptpath, vbNormal) <> "" Then If DateAdd("s", TIMEOUT * 1, FileDateTime(scriptpath)) < Date Then Kill scriptpath Else Application.Quit acQuitSaveAll Exit Sub End If End If Dim s As String s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST ""%~f1.%3"" GOTO CHECKLOCKFILE" & vbCrLf s = s & "start "" "" ""%~f1.%2""" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile Dim dbname As String, ext As String, lockext As String Dim idx As Integer For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = Left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) If Left(ext, 2) = "ac" Then lockext = "laccdb" Else lockext = "ldb" End If s = """" & scriptpath & """ """ & dbname & """ " & ext & " " & lockext Shell s, vbHide Application.Quit acQuitSaveAll End Sub تحت حدث الزر ضع هذا :::::::: Utilities.Restart

تفضل ... DoCmd.RunCommand acCmdPageSetup

تجد هنا بغيتك .......

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

ازل المسافة بين العبارتين ... وجرب

عندي تعرف على نوع الحقول تلقائي في جميع الشروط .....

وهذه لحقلين جميعهم ارقام ...... يبدو ان المشكلة لديك استاذ ز عمر