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

أذا كان المطلوب مسح ( إفراغ ) البيانات الموجودة في حقول الجدول استخدم هذا الكود وضعه تحت حدث عند نقر الزر DoCmd.RunSQL "UPDATE tbl_Q SET tbl_Q.q_Ch1 = "" "" ,q_Ch2 = "" "",q_Ch3 = "" "",q_Ch4 = "" "",q_Ch5 = "" "";" ' tbl_Q هو اسم الجدول 'q_Ch1 هو اسم الحقل الاول 'q_Ch2 هو اسم الحقل الثاني 'q_Ch3 هو اسم الحقل الثالث 'q_Ch4 هو اسم الحقل الرابع 'q_Ch5 هو اسم الحقل الخامي أما إذا كانت المقصود هو مس ( إفراغ ) بيانات مربعات النص في النموذج استخدم هذا Me.txt1 = "" Me.txt2 = "" Me.txt3 = "" Me.txt4 = "" Me.txt5 = "" ' txt1 هو اسم مربع النص الموجود في النموذج

بارك الله فيك أستاذ وجيه الكود ممتاز ويعمل بكفاءة جعله الله في ميزان حسناتك

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

جرب هذا =IIf([Forms]![lsh]![combo1]="M",[Qavilable]-[Q],[Q]-[Qavilable])*[Y]

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

وعليكم السلام -كان لزاما عليك من البداية رفع ملف وشرح عليه المطلوب بكل دقة تجنبا لعدم اهدار الوقت فخطوات عمل التقييد ومنع ادخال المكرر في عمود كالتالى : نقوم باختيار من قائمة Data data Validation ثم Setting وبعد ذلك Custom وبعد ذلك تقوم بلصق هذه المعادلة في المكان المخصص لذلك في Formula وذلك للتقيد في العمود الأول A Formula =COUNTIF($A$1:A1,A1)=1 وهذا هو ملف العمل تقييد المدخلات.xlsx

تفضل لك كل ما طلبت-نورتنا في المنتدى وضع علامة عشرية بعد رقمين وترحيل بيانات الموظف الى الإستمارة.xlsx

وعليكم السلام-تفضل لك ما طلبت-نورتنا في المنتدى 1فاتورة.xlsm

وعليكم السلام تفضل ProgControlCard.mdb

العفو أخي هذا لعدم عرض #خطأ في حال قيمة مربع DT تكون خالية

تفضل Projects.accdb

تفضل عدد العملاء معدل.xlsx

تفضل لإثراء الموضوع بعد اذن الأستاذ حسين المشتريات.xlsx

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

شكرا جزيلآ استاذي الكريم على اثرائي بهذه المعلومات مقدرا جهودك 🌹 تمت الإجابة

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

الملحوظة الأولي : تطبيق التلوين على المعادلات ايضا و ليس النصوص فقط ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية C1 جرب التعديل البسيط التالي لكود الأخ وجيه Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer If IsEmpty(Range("c1")) Then Exit Sub lr = Range("b" & Rows.Count).End(xlUp).Row Range("b4:b" & lr).Font.ColorIndex = xlAutomatic For Each c In Range("b4:b" & lr) For i = 1 To lr If Mid(c.Value, i, Len(Range("c1"))) = Range("c1").Value Then c.Characters(i, Len(Range("c1"))).Font.Color = vbRed End If Next Next End Sub

مثل العادة ابو عارف يبدع وسباق لكل خير نفس الكود بطريقة اخرى DoCmd.SetWarnings False Dim SQL As String SQL = "UPDATE العملية SET العملية.[سعر الشراء] = " & [سعر الشراء] & _ " WHERE (((العملية.[اسم المادة])='" & Me.الاسم & "'));" DoCmd.RunSQL SQL DoCmd.SetWarnings True

وياك وياك أخي

وعليكم السلام تفضل 2.rar

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

بسم الله الرحمن الرحيم برنامج صغير سهل الأستخدام للمنشآت الصغيرة سهل وحجم البرنامج صغير ،أكسس 2003 الرقم السري 1975 ، أي ملاحظات نرجو الأفادة item.mdb

السلام عليكم يمكن هذا حل آخر للمسألة... بن علية حاجي دوام.xlsx

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

ربما ينال الاعجاب هذا الملف Fuction_split_name.xlsm

معلومه جميله من مبدع مثلك

أستاذ @ابو عارف شكرا جزيلا

افترض ان هذا المطلوب (صفحة salim من هذا الملف) Dawam_new_1.xlsx

تفضل اخي الفاضل On Error Resume Next ''''''''''''''''''''''' Me.txt1 = DLookup("[BARCODEحقل]", "TABOL1 جدول", "[BARCODEحقل]='" & Me.SERH حقل البحث & "'") '''''''''''''''''' If Len(Me.TXT1 & "") = 0 Then MsgBox "هذا الباركود غير مسجل" Undo Exit Sub End If انشأ مربع نص غير منضم وسميه TXT1 ضع هذا الكود حذث بعد التحديث في مربع النص الذي تسميه الصندوك الذي تبحث فيه وهتسميه SERH

ضع هذا الكود Private Sub chek_Click() If op = True Then Me.op = False Else Me.op = True End If End Sub

انظر لهذا الملف لعله يفى بالغرض تلوين جزء من جملة فى خلية.xlsm

السلام عليكم الاخ الكريم وضعت فورم وفيه تيكسبوكس للبحث وليست بوكس لاظهار النتائج وزر للاستعلام اتمنى ان ما تبحث عنه تحياتي المرحليات.xlsm

مشاركة مع اخي كنري ضع هذا الكود في مدويل او براس النموذج Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Windows\System32\DBPix20.ocx" .AddFromFile "C:\Windows\SysWOW64\DBPix20.ocx" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function ثم استدعيه عند فتح النموذج او في زر امر كما تشاء Call AddRefs

شوف هذا لعله يكون هو طلبك للعم هذة الطريقه طبقها لي الاستاذ القدير ابوخليل xxx.rar

قم بعمل التنسيق في كل ورقة من الأوراق تم عمل ماكرو إظهار كل الصفوف حتى تتمكن من تنسيق الخلايا هناك فكرة يمكن عمل حيلة وهي إخفاء الصفوف الفارغة تلقائيًا عند فتح ورقة العمل Shool.xlsm

تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb

هذا الملف عملته في بداية تسجيلي في الموقع 😎 تحياتي لك ايها الشاعر الاديب 😀

وعليكم السلام -جرب هذا أستاذ محمد بمعادلات المصفوفة Quiry-لمساعدة فى كود استعلام بناء على اكثر من شرط.xlsx

بارك الله فيك وزادك الله من فضله

اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة(حسب اعدادات الجهاز عندك) لتبدو هكذا =SUBSTITUTE(TRIM(A1);CHAR(160);"")

المعادلة تعمل بكل كفاءة وتم تجربتها

فقط عليك وضع هذا الكود فى موديول عادى Public CntTme As Double Sub StartClock() ActiveSheet.Range("N1").Value = Now() CntTme = Now + TimeSerial(0, 0, 1) Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True End Sub ثم بعد ذلك عليك بوضع هذا الكود فى حدث This Workbook Private Sub Workbook_Open() StartClock End Sub لابد ان يكون امتداد الملف Xlsm

تفضل هذا كود لحفظ الملف بصيغة XLSM ويكون اسم الملف موجود بالخليتين M1 & M2 Sub SaveAs() ThisWorkbook.Save 'save current workbook in current name With Application.FileDialog(msoFileDialogSaveAs) .AllowMultiSelect = False .FilterIndex = 2 .InitialFileName = Range("M2").Text & Range("M1").Text 'specify folder - can also include default filename in here too If .Show Then ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _ FileFormat:=xlOpenXMLWorkbookMacroEnabled End If End With End Sub وهذا كود لحفظ الملف بصيغة PDF Sub PDFActiveSheet() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strTime = Format(Now(), "yyyymmdd\_hhmm") strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" strName = Replace(wsA.Name, " ", "") strName = Replace(strName, ".", "_") strFile = strName & "_" & strTime & ".pdf" strPathFile = strPath & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If myFile <> "False" Then wsA.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox "PDF file has been created: " _ & vbCrLf _ & myFile End If exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub

اجعل نوع الخط Wingdings 2

تفضل الكود ومعه ملف Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("c8:AH397")) Is Nothing Then If Target.Value = "" Then Cancel = True Target.Value = "P" Range("c8:AH397").Font.Name = "Wingdings 2" Else Cancel = True Target.Value = "" End If End If End Sub ادراج علامة صح.xlsm

لا يمكن هذا فلا يمكن ادخال البيانات فى الإكسيل بالصوت الا بمقابل فهذه خدمة مدفوعة الأجر وليست مجانية https://khamsat.com/technology/data-entry/490222-تفريغ-البيانات-إلى-ملفات-الاكسل واتمنى هذا الفيديو يفيدك فى ادخال البيانات https://www.youtube.com/watch?v=kcrOID5bJsg

تفضل دفتر التنقيط.xlsm

كيف نقوم بمساعدتك على ملف محمى بكلمة سر

المسألة واضحة ليست بحاجة الى شرح تم الاعلان عن متغير mys اذا تم الفتح بطريقة نظامية المتغير سيحمل القيمة 5 عند فتح اي نموذج والقيمة لا تساوي 5 يتم اغلاق قاعدة البيانات مرفق مثال بدون الوحدة النمطية التي تحمل قيمة mys وانما نستخدم الوحدة النمطية لاستعمالات اوسع dbx2.rar

نعم في المثال ما يغني عن المقال dbx.rar