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

أذا كان المطلوب مسح ( إفراغ ) البيانات الموجودة في حقول الجدول استخدم هذا الكود وضعه تحت حدث عند نقر الزر 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

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

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

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

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

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

السلام عليكم أعتقد أن الخلل يكمن في "الارتباطات الخارجية" بملف آخر (مغلق)... ارفق الملف المعني بالخلل حتى نتبين أكثر... تحياتي الخالصة

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

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

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

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

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

ضع هذا الكود 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

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

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

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

وذلك بتغيير اسم العملة فى الكود اى تغيير كل كلمة تقابلك فى الكود من Euro الى ما تشاء وتريد فكما تريد الى دينار مثلا

اى ملف تريد وليكن هذا كمثال مع مقارنة عمودين مع بعضهما.xlsm

تفضل اخى الكريم كان عليك استخدام خاصية البحث فى المنتدى قبل رفع المشاركة https://www.officena.net/ib/topic/39234-طريقة-تحويل-ملف-اكسل-الى-csv-أو-vcf/\ او يمكنك من هنا ايضا https://convertio.co/ar/xls-csv/

لماذا لم تضع كود المعادلة داخل الملف ؟!!!!!!!!! تفضل كله تمام . Classeur1.xlsm

تفضل كان عليك رفع ملف بالمطلوب من البداية Test.xlsx

تفضل هذا الكود اذا قمت بالكتابة فى العمود الأول A والعمود الثالث C سيعمل هذا الكود على تلوين المتشابه الغير متماثل باللون الأصفر Sub compare_cols122() Dim NameList As Worksheet Dim i As Long, j As Long Set NameList = Excel.Worksheets("Names") Dim rngNames As Range Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp)) Dim varNames As Variant varNames = rngNames.Value2 Dim rngData As Range Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp)) Dim varData As Variant varData = rngData.Value2 Application.ScreenUpdating = False For i = LBound(varNames) + 1 To UBound(varNames) For j = LBound(varData) + 1 To UBound(varData) If varNames(i, 1) <> "" Then If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then NameList.Cells(j, 3).Interior.ColorIndex = 6 NameList.Cells(i, 1).Interior.ColorIndex = 6 Exit For Else End If End If Next j Next i Application.ScreenUpdating = True End Sub

تفضل لك ما طلبت Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("a1:a5,F4,B12,C3,E10"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub

اهلا بك اخى الكريم فى المنتدى تفضل جمع وقسمة.xlsx

تفضل تفقيط فرنسى.xlsm

فقط عليك وضع هذا الكود فى موديول عادى 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

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