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

وعليكم السلام .. ليس هذا السبب فقط ..اذا انتبهت للرسالة .. ال integer لايتحمل ارقام حسابية كبيرة ..راجع حجم البيانات التي يأخذها ولهذا استخدم Double OR long

اهداء الى كبيرنا استاذ جعفر 1- لا يوجد اخطاء ويعمل بكافة الشاشات 2- متضمن شرح بسيط اما اي جهاز الباركود وصل usb فقط من غير تعريفات! مع تثبيت برنامج bar وQ لتعامل مع الاكسس وبرامج الاوفس الاخرى فقط! استعراض بعض الادوات البسيطه اما Custom بتحديث تحميل برابط مباشر وسريع ميديا فير https://www.mediafire.com/file/ltn12uahk3hn3v6/-%7B%5BEzril%5D%7D-CustomScrollBar.V1.0.0.rar/file Ezril في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

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

طيب انظر هذا ..................

مشاركة مع استاذي المهندس @Eng.Qassim هل تريدها بهذه الصورة في استعلام ........

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

أخي الفاضل هاك برنامج محصلة من منتدانا اوفسينا يقوم بعمل ماتبغاه . excel_to_access.rar

وعليكم السلام استاذ محمد.. في رأيي..افضل طريقة بوضع شارطة قبل التسمية التي تريد كمثال ..محمد احمد/ مقاولات ...محمد احمد/ مقاولات عامة ثم تستخدم الموديول التالي ..وتستدعيه من الاستعلام .. Public Function splitword(myNamX As String) As String Dim exampleString As String Dim exampleArray() As String exampleString = myNamX exampleArray = Split(exampleString, "/") splitword = exampleArray(1) End Function

طيب شوف المحاولة هذه ..الحقيقة عملت تقرير تجميع بالاسماء وبعدها عملت تقرير لكل صلاحية .. طبعا حتشوف لما يفتح التقرير ان chkbox فارغ ل3 صلاحيات لان لايمكن تغييره عند فتح التقرير يمكن تنزيل جميعهم في التقرير ونعملهم مخفيات t11(1).rar

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

كل عام وانت بخير استاذ سامر اعذرني ..عملت لك كشف الحساب على السريع..لان ستدركني الامساكية nasser.rar

No need to change the headers to get what you need. I have opened outlook on my side and imitate creating VCards and this is the new working code for the first attachment and this will save the fields properly for you Sub Create_VCARDS() Dim ws As Worksheet, FirstName As String, LastName As String, FullName As String, Mobile As String, HomePhone As String, BusinessPhone As String, Email As String, vCard As String, sFolder As String, sFileName As String, lr As Long, i As Long Application.ScreenUpdating = False Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "A").End(xlUp).Row sFolder = ThisWorkbook.Path & "\VCARDS\" If Len(Dir(sFolder, vbDirectory)) = 0 Then MkDir sFolder For i = 2 To lr With ws FirstName = .Cells(i, 1).Value LastName = .Cells(i, 2).Value FullName = FirstName & " " & LastName Mobile = .Cells(i, 3).Value HomePhone = .Cells(i, 4).Value BusinessPhone = .Cells(i, 5).Value Email = .Cells(i, 6).Value End With vCard = "BEGIN:VCARD" & vbCrLf vCard = vCard & "VERSION:3.0" & vbCrLf vCard = vCard & "N:" & LastName & ";" & FirstName & vbCrLf vCard = vCard & "FN:" & FullName & vbCrLf vCard = vCard & "TEL;TYPE=CELL:" & Mobile & vbCrLf vCard = vCard & "TEL;TYPE=HOME:" & HomePhone & vbCrLf vCard = vCard & "TEL;TYPE=WORK:" & BusinessPhone & vbCrLf vCard = vCard & "EMAIL;TYPE=INTERNET:" & Email & vbCrLf vCard = vCard & "END:VCARD" & vbCrLf sFileName = sFolder & FullName & ".vcf" Open sFileName For Output As #1 Print #1, vCard Close #1 Next i Application.ScreenUpdating = True MsgBox "Done", 64 End Sub The code will create a folder with the name `VCARDS` at the same path of your workbook and it will contains all the VCFs --------------------------------------------------------------------- Now after creating the VCards, you can use late binding in the code you attached to export all the VCards to Outlook at one shot. I prefer to get the outlook application open before executing the code Sub Save_VCARDS_To_OutLook() Dim fso As Object, fsDir As Object, fsFile As Object, objOL As Object, colInsp As Object, objWSHShell As Object, sFolder As String, strVCName As String sFolder = ThisWorkbook.Path & "\VCARDS" Set fso = CreateObject("Scripting.FileSystemObject") Set fsDir = fso.GetFolder(sFolder) For Each fsFile In fsDir.Files strVCName = """" & sFolder & "\" & fsFile.Name & """" Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing: Set objWSHShell = Nothing End If End If Set objOL = Nothing Next fsFile Set fsFile = Nothing: Set fsDir = Nothing: Set fso = Nothing MsgBox "Done", 64 End Sub

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

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

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

وعليكم السلام أولاً لعمل منع تكرار بعمود رقم السيارة واسم المالك مجتمعين .. فيمكنك استخدام هذه المعادلة من خلال خاصية Data Validation =COUNTIFS($A$2:$A$2000,$A2,$B$2:$B$2000,$B2)=1 ولعمل حماية لصفحة البيانات بدون أكواد فعليك بالدخول على قائمة Developer ثم Visual Basic أو بالضغط على Alt F11 للدخول على محرر الأكواد ثم بعد ذلك اتبع الصورة المرفوعة للتعلم ..واذا أردت فك الحماية وإظهار الصفحة اتبع نفس الخطوات ولكن عليك بلإختيار الأول وهو -1-Sheetvisible ..كما تم حذف كل المكرر من البيانات وضبط الملف وشكراً متابعة الملاك.xlsx

وعليكم السلام-لك ما طلبت test search1.xlsx

تفضل index3.xlsm

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

تفضل ولكن ظهور مثل هذه الرسائل وذلك لإحتواء الملفات على فيروس فهذا منطقى لظهور هذه الرسالة فالطبيعى ان تفتح الملفات مباشرة بمجرد الضغط على الهايبر بارك الله فيك index2.xlsm

تفضل index2.xlsm

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

تفضل اخي الكريم هذا برنامج تم عمله مخصوص لغرض تحويل جملة الإستعلام SQL الى كود VBA كل ما عليك هو اتباع تعليمات البرنامج الموجوده عليه za_Convert_SqlToVba.rar