husamwahab

بالخدمة استاذي العزيز

عليكم السلام استاذ WESAMZALL1177 تفضل هذه المحاولة ارجو ان تكون طلبك فاتوره-2.rar

بالخدمة استاذ عربي عالمي

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

بالخدم استاذي العزيز ويارب مشافى ان شاء الله انت وجميع الناس بحق محمد وال محمد

نعم الكود شغال تمام دون اي خطا بعيدا عن صحة النتائج هل هي طلبك ام لا

تفضل هذه المحاولة ارجو ان تكون طلبك Database1.rar

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

بالخدمة استاذ ابا جودي نظام التشغيل ويندوز 7 والنواه 64 Bit اضفت المكتبتين لكن نفس المشكلة فقط صوت المراه , صوت المراة مصر ان يحتل المشهد اصل المراه مسيطرة عندي والظاهر ان البرامج عندي تشتغل بنفس برمجتي

نعم ظهرت هذه الرسالة عندي رغم ان صوت المراة هو الشغال

نعم عدا المرفق الاخير كان جيد جدا وبدون رسائل خطا فقط صوت الرجل غير شغال

ابداع استاذ ابا جودى وتسلم ايديك بالمناسبة صوت الرجل غير شغال لكن مو مهم اهم شي صوت المراة شغال

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

وهذه مشاركة مع اساتذتي الاجلاء وهو تعديل على المرفق الاول ليشمل العدد الكلي Root-30.rar

عليكم السلام استاذ ٌRayan Zakho تفضل هذه المحاولة ارجو ان تكون طلبك Root-20.rar

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

السلام عليكم استاذ أكسس وبس هذه محاولة باضافة وحدات الحديد وان كانت موفقة فيمكن تطبيقها على بقية الوحدات وانا بخدمتك Root220.rar

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

بالخدمة استاذي العزيز والدعاء بالصحة والسلامة لك ولجميع الناس امين رب العالمين

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

وعليكم السلام استاذ اشرف تفضل التعديل حسب فهمي On Error GoTo err: ' Requires reference to Microsoft Office 14.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant Dim i As Long ' Clear listbox contents. Me.PicPath1 = "" Me.PicPath2 = "" Me.PicPath3 = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = True ' Set the title of the dialog box. .Title = "Please select images" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.Add "jpg image", "*.jpg" ' Show the dialog box. If the .Show method returns True, the ' user picked at least all files. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then i = 1 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems If i = 1 Then destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "a." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath1 = destpath ElseIf i = 2 Then destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "b." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath2 = destpath Else destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "d." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath3 = destpath End If i = i + 1 Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number

السلام عليكم استاذأكسس وبس تفضل هذه المحاولة ارجو ان تكون موفقة Root210.rar

تفضلي التعديل والتعديل هو ادخال اسم الملف للكود بدل من عبارة اسم ملف pdf وكذلك اضافة مكتبة Acrobat Compressed.rar

السلام عليكم استاذ f16 اعتذر لتاخري بالرد والحمد لله انك وجدت الحل

تفضلوا هذا التعديل Private Sub ÃãÑ0_Click() Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc Dim PDPage As Acrobat.CAcroPDPage Dim thePDF As String, PNum As Long '... thePDF = CurrentProject.Path & "\اسم ملف pdf.pdf" Set PDDoc = CreateObject("AcroExch.pdDoc") Result = PDDoc.Open(thePDF) If Not Result Then MsgBox "Can't open file: " & FileName Exit Sub End If '... PNum = PDDoc.GetNumPages For i = 0 To PNum - 1 Set newPDF = CreateObject("AcroExch.pdDoc") newPDF.Create NewName = CurrentProject.Path & "\" & "Page_" & i & "_of_" & PNum & ".pdf" newPDF.InsertPages -1, PDDoc, i, 1, 0 newPDF.Save 1, NewName newPDF.Close Set newPDF = Nothing Next i End Sub