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

جرب هذا مع تغيير بيانات الكود حسب بيانات النموذج لديك ...... Dim strnum As String Dim iCounter As Integer Dim arrnum() As String Dim Rep_lace As String strnum = Me.kan Rep_lace = Replace(strnum, "(", "") Rep_lace = Replace(Rep_lace, ")", "") arrnum = Split(Rep_lace, "-") For iCounter = LBound(arrnum) To UBound(arrnum) If arrnum(iCounter) > 5 Then With Me.kan .FontBold = True .ForeColor = 255 End With Else With Me.kan .FontBold = False .ForeColor = 0 End With End If Next

هذا الحل الذي أعددته في حال أن الأخ @elghoultk قال أن حقل النص بهذه الطريقة ( 15 - 20) .. ولكن قد سبقني بها عكاشة @kanory 😅 الحل أن تضع هذه الدالة في محرر الأكواد : Public Sub Check(FiledName As Control) Dim X As Integer Dim Count As Integer Dim TL As Integer Dim L As String TL = Len(FiledName) For X = 1 To TL L = Mid(FiledName, X, 1) If IsNumeric(L) = True Then If L > 5 Then Count = Count + 1 End If End If Next X If Count > 0 Then FiledName.FontBold = True FiledName.ForeColor = vbRed Else FiledName.FontBold = False FiledName.ForeColor = vbBlack End If End Sub ثم تناديها عند حدث بعد التغيير لمربع النص + وكذلك عند حدث في الحالي للنموذج .. هكذا : ( ولا تنسى تغيير اسم مربع النص ) 🙂 Private Sub Form_Current() If IsNull(Me.NumberxTxt) Then Exit Sub Check NumberxTxt End Sub Private Sub NumberxTxt_AfterUpdate() Check NumberxTxt End Sub والنتيجة عند عدم وجود رقم أكبر من الخمسة : وعند تحقق المطلوب : مرفق المثال : الرقم 5.accdb

وعليكم السلام 🙂 اخي عمر ، هذا سؤالك ، وكلما وضحته اكثر ، وبأمثلة ، سترى ان رد الاعضاء اسرع وادق 🙂 سؤالك مافيه سؤال ولا شرح وانما مجرد نموذج والسلام !! جعفر

السلام عليكم 🙂 هذه الرسالة تظهر بسبب اعدادات اللغة الداعمة لـ Unicode في كمبيوترك ، وهكذا تغيرها ، ليشتغل برنامج @Eng.Qassim : جعفر

عند كلمة function اكتب قبلها ptrsafe function عند كلمة long اكتب بعدها LongPtr

السلام عليكم ورحمة الله وبركاته.. من المعروف ان الواتس اب يسمح لك بارسال 5 رسائل فقط في كل مرة يعني لو كان لدينا 15 شخص نريد ان نرسل له رسالة علينا ان نقوم باعادة توجيه الرسالة 3 مرات كل مرة 5 اشخاص.. قمت بعمل اداة صغيرة في الـ NET. لتقوم بهذه المهمة. صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. Whatsapp-Message-Sender.rar

وعند جهينة الخبر اليقين 😅

Private Sub CommandButton1_Click() ActiveCell.FormulaR1C1 = "10" ActiveCell.Offset(1, 0).Select End Sub Private Sub CommandButton2_Click() ActiveCell.Value = Val(ActiveCell.Offset(-1, 0).Value) + 50 ActiveCell.Offset(1, 0).Select End Sub

شكرا جزيلا لاهتمام حضرتك و تقبل اعتذاري لاني أثقلت علي حضرتك

تفضل شيت حركه النقديه مفتوح المصدر.rar

ارفق ملفك لو تكرمت

انظر للمرفق. حين الانتهاء من الايجار يتم الضغط على حقل Empty فيتم ترحيله الى جدول اخر وبهذا تستطيع الفرز براحتك. ستبقى الشقق المستاجرة والفارغة HH.rar

اخي بارك الله فيك اولا واخيرا انا وضحت المطلوب اكثر من مرة بالفعل ، ربما لم اعبر جيدا بعتذر لك جداجدا وانا اريد الاجابتين مع بعض الاظهار والإخفاء والطباعة بارك الله فيك

اخي عبد الله السعيد كان يجب عليك التوضيح من قبل لان الوقت محدود لدي - اسأل الله ان يعين الجميع علي عمله علي العموم تفضل ما طلبت ملفك Zeroo.xlsm

السلام عليكم مشاركة مع استاذي ازهر اخي العزيز اول شيء لابد ان اسماء الدول لاتتكرر في القائمة بالنموذج وكذلك اسماء المدن حتلى تسهل عملية الفرز كان من المفترض ان تعمل جداول مرتبطة مجموعة مدن مرتبطة بدولة ومجموعة قرى مرتبطة بمدينة وهكذا تفضل الملف بعد التعديل حسب طلبك وفهمي للموضوع =DSum("totaly";"q";"country=[a] and city=[b] and village=[c]") ونستطيع اضافة لها NZ للتحويل القيمة الفارغة الى صفر =Nz(DSum("totaly";"q";"country=[a] and city=[b] and village=[c]");0) ddsum.accdb مرفق مثال توضيحي للقوائم المرتبطة تحياتي قائمة منسدلة متربطة بقائمة اخرى.accdb

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

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

محاولة على قدر فهمي لطلبك ddsum.accdb

طالما لديك نموذج مستمر اعمل هكذا وعند حدث النقر Private Sub b_Click() [f].[Form]![c] = Me.a End Sub

اي حقول تقصد؟

انظر للمرفق اخي yymm.accdb

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

اعمل تنسيق شرطي للخلية أخي العزيز .. بحيث لوكان قيمة مربع النص >5 يكون الخط سميك .. هذا حسب ما فهمته على فرض أن محتوى الخلية كله أرقام ، إلا إن كان قصدك أن محتوى الخلية يكون عبارة عن نص هكذا = ( 15 - 20) ؟ فالحل سيكون مختلف . للتكرم بالتوضيح .

تفضل أخي أحمد أحمد أحمد 🙂 ضع هذا الكود في موديول : Public Sub TakeBackup() On Error GoTo MyErr Dim OldFile, NewFile, CopyMyDB, wheretoBackup, BackupFolder, DBName As String OldFile = CurrentProject.FullName BackupFolder = SelectFolder DBName = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1) NewFile = BackupFolder & "\" & DBName & "-Backup-" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(OldFile, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MsgBox "Backup........Done" & vbNewLine & vbNewLine & "Saved in :" & vbNewLine & NewFile, , " " MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Sub Public Function SelectFolder() On Error GoTo ErrorHandler Dim FileDialog As Object Dim sPath As String Dim sFile As String Set FileDialog = Access.Application.FileDialog(4) With FileDialog .AllowMultiSelect = False .Filters.Clear .Show .Title = "Please select folder" SelectFolder = .SelectedItems(1) End With ExitHandler: Exit Function ErrorHandler: Select Case Err.Number Case Is = 5 MsgBox ChrW("1604") & ChrW("1602") & ChrW("1583") & ChrW("32") & ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1594") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1605") & ChrW("1585") & ChrW("32") & ChrW("46") & ChrW("46") & ChrW("46") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1604") & ChrW("1605") & ChrW("32") & ChrW("1578") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1576") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1571") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1587") & ChrW("1575") & ChrW("1585") & ChrW("41") _ , vbMsgBoxRight + vbMsgBoxRtlReading, _ ChrW("1578") & ChrW("1606") & ChrW("1576") & ChrW("1610") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("40") & ChrW("32") & ChrW("65") & ChrW("116") & ChrW("116") & ChrW("101") & ChrW("110") & ChrW("116") & ChrW("105") & ChrW("111") & ChrW("110") & ChrW("32") & ChrW("41") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1600") & ChrW("1607") Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select End Function ثم قم باستدعائه هكذا : Call TakeBackup()

انا بخدمتك استاذ عمر

استاذي العزيز ازهر.. انا لا اعمل في مجال البرمجة كمصدر رزق لي .. لكن لي اصدقاء وباسماء مشهورة على مستوى العراق مازالو يعملو على اكسس 2003

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

حسنا ..في رايي تعمل حقل ثاني مثلا c في حدث عن النقر على مربع التحرير b اعمل الكود التالي .. سوف يأخذ بياناته من الحقل a الذي لايمكن التعديل عليه ويمكنك اخفاءه ايضا لانك ستعتمد على الحقل c الذي يمكنك التعديل عليه Private Sub b_Click() Me.c = me.a End Sub

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

وعليكك السلام تفضل هذا الرابط اتمنى يكون المطلوب

اخي عبد الله السعيد - تفضل تم اضافة مسج يأسلك هل تريد الطباعه بعد المعاينة ام لا Sub طباعه_دون_فراغ() ActiveWindow.SelectedSheets.PrintPreview 'معاينة قبل الطباعة ' Reply = MsgBox(" هل تريد " & Chr(10) & " طباعة الفاتورة ", vbYesNo) 'هنا هل تريد طبع النسخ ام لا If Reply <> 6 Then Exit Sub 'هنا هل تريد طبع النسخ ام لا Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub الملف Zeroo.xlsm اظن هذا هو المطلوب

اخي ahmed88872 هذا الشرح الموجود داخل ملفك اريد ان يتم ترحيل التلاميذ اتوماتيك وجزاكم الله خيرا شرح غير كامل اولاً يجب عليك الاجابه علي الاتي 1:الي اي ورقة تريد الترحيل 2: ما هو الشرط الذي اذا تحقق يتم الترحيل وفي اي خلية يكن موجود الشرط جزاك الله خيراً

بعد اذنك استاذي العزيز @husamwahab الاخ صاحب المشاركة لايريد اظهار الوحدة السكنية التي تم اخلائها وفي نفس الوقت تظهر حين ايجارها المؤجر محمد انتهى ايجاره فيجب ان لا يظهر ...بينما يظهر سالم الذي قام باستجار نفس الشقة انا عملت جدول اخر لالحاق البيانات للشقة التي تم اخلاءها وبنفس الوقت احذفها من الجدول الرئيسي حتى تسهل عملية التصفية لكن الاخ غير متفاعل مع موضوعه

اختر اسم الشيت من الخلية الصفراء ثم ادخل كلمة المرور في الخلية الخضراء تفضل كلمة مرور لكل شيت.xlsm

اخي ahmed88872 ما هو الشرط

انا فاهم عليك ... واعتقد افضل شي عمل حقل نعم /لا ... اي تم تم الايجار ام لا

في هذه الحالة ، اضف علامة ' قبل بقية الاسطر (امام كل سطر ضع علامة ' الى آخر سطر في الدالة) ، على الاقل علشان ما تحصل على خطأ ، وجرب البرنامج مرة اخرى.

المرفق ليس الا مثال لكن تفضل هذا التعديل تم تشفير بيانات تسجيل الدخول الى البريد الإلكتروني كما يجب من اعدادات الايميل تمكين دخول البرامج الأقل أمانا myaccount.google بعد التمكين قم بإضافة الايميل و كلمة المرور لقاعدة البيانات صورة من الإيميل صورة الشهادة 12839.pdf Course certificates -Mohd+Moosa.zip

تفضل هذا التعديل بدون استخدام الأوت لك ستجد ازرار الضبط بجوار ازرار الإرسال ضع البريد الإلكتروني و كلمة المرور و ابدء في الإرسال Course certificates -Mohd+Moosa.zip

إنتهيت ولله الحمد.. تم التطبيق والعمل بنجاح أخواني @ناقل @ابا جودى @محب العقيدة .. فقط ينتبه لنقطة مهمة وهي : حقل الإيميل يجب أن يكون نص قصير وليس إرتباط تشعبي XX تفاديا لحدوث الأخطاء .. وكذلك برنامج الآوت لوك يكون مفتوح أثناء الإرسال .. أرفقت الملف للتجربة .. وهذا دليل على النجاح ولله الفضل والمنة : هذا شكل النموذج : Course certificates -Mohd+Moosa.rar