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

الأخ الفاضل خالد العنود جرب المرفق بالتوفيق Befor Del confirm.zip

أهلا بك @ازهر عبد العزيز حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

الأستاذة الكرام @Khalf @ابا جودى أبو إبراهيم الغامدي شكرا لكم جزيلا معكم تم الحل ربي يحفظكم

حل الاستاذ @عبد اللطيف سلوم = الحل الذى قدمته اليكم لا فرق بينهما الا انه تم بناء جملة الاستعلام داخل محرر الاكواد بينما طريقتى الاستعلام تم انشاءه بالفعل واليك المميزات والعيوب لكل طريقة - بناء الاستعلامات داخل محرر الاكواد افضل لانها تقلل من حجم قواعد البيانات خاصة مع كثرة السجلات التى سوف يتم معالجتها ( اهم ميزة ) - باغلاق القاعدة بتحويلها لا يستطيع المستخدم معرفة الية العمل او البناء الا من يستخدك البرامج المدفوعة والتى تعتمد على خوارزميات الهندسة العكسية والتى تعيد فك التشفير - بعد عن الحماية والاغلاق تحمى القاعدة من العبث والتغيير بقصد او بدون على بنية الاستعلام من وجهة نظرى المتواضعة ان كنت تقدر على ادارة استعلاماتك داخل المحرر يكون افضل واسلم انا بينت الطربقة السهله فقط

الأخ العزيز عبد اللطيف سلوم تفضل الأستاذ kha9009lid بالرد على إستفساركم .. ولمزيد من الشرح والإستخدام يمكنك مراجعة الرابط التالى: https://support.office.com/en-us/article/eval-function-8c4a1b10-85ba-40db-b0c8-5290da4d4166 تقبل تحياتى

دالة في اكسيس ينتج عنها سلسلة نصية او قيمة رقمية ويمكن استخدامها في منشئ التعبير وتستخدم ايضا في الجافا وفي php <?php eval("$msg"); ?>

حبيبى أستاذ/ ازهر عبد العزيز بارك الله فيك .. ولكن بين الحين والآخر تشغلنا الدنيا بما فيها .. فرج الله كربنا جميعا

🙂 أبو جودي قاصدها يا أستاذ عبد هلأ بدك تدفع هههههه ::

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

أولا : أخي @ابا جودى كل الشكر لك على الشرح ثانيا : لم أقصد التحدي ولكن عندما رأيت المرفق محول ل mde قلت امكن تقصده من ضمن الحماية بارك الله فيك ثالثا : أكرر شكري لك وسعت صدرك رابعا : أنا لست محترف ..... بل هاوي فقط ....... ليه ياعم أنا مليش دعوه في برامج الناس لأن هذا أصلا يعتبر حرام .. والا ايه شكرا لك دائما روحك المرحة في موضوعاتك .... بارك الله فيك .... أخوك الصغير .... Kanory

هذه واحدة منها

اخواني ممكن الطريقه تسجيل مقطع صوتي داخل الاكسس مع كل الشكر

السلام عليكم ورحمة الله وبركاته 🙂 في الواقع ، عرضت هذا الموضوع في منتدى الفريق العربي للبرمجة سابقا ، ولكني اعرضه هنا ، حتى تعم الفائدة ويستفيد منه الجميع. في بعض الاحيان نعمل برنامج بلغة معينة (العربية مثلاً) ، ثم لاحقا نريد هذا البرنامج لمستعملين بلغة اخرى (الانجليزية او الفرنسية مثلاً) ، مما يضطرنا ان نعمل نسخة اخرى من البرنامج 😞 اضع بين يديكم طريقة عمل برنامج بعدة لغات ، والطريقة هي الاحتفاظ بالمعلومات المطلوبة (ولا اقصد البيانات) في جدول. 1. هذه هي البيانات بلغات 3 ، العربية والانجليزية والفرنسية (والكلمات تم ترجمتها من الانجليزية الى الفرنسية عن طريق Google Translation): الخانات الموجودة بسيطة ومعرفة معناها لا يأخذ وقت ، اما تنسيق الحقل فهو:1. اسم الخط ، 2. حجم الخط ، 3. ثخانة الخط ، 4. منحني ، 5. تحته خط ، 6. لون الخط: 2. النموذج الرئيسي ، به واجهة البرنامج (والتي سنراها على الجهة اليمنى من الشرائح التالية) ، واول نموذج هو لعمل التغييرات على تنسيق الحقل ، وذلك بالنقر المزدوج في الحقل ، فتنفتح لنا نافذة اختيار الخط ، وعندما نطمئن لإختيارنا للخط ، يجب ان نحفظ هذا التنسيق ، وذللك للّغة التي نريدها: 3. اما النتائج المرجوة من البرنامج ، فتظهر لنا في هذا النموذج: باللغة العربية: باللغة الانجليزية: وباللغة الفرنسية: والكود الذي يقوم بجلب الكلمات والتنسيق هو التالي ، ولا يوجد حاجة الى تغيير الكود ، وانما العمل يكون بإضافة الخانات في الجدول: Private Sub Form_Load() On Error GoTo err_Form_Load mySQL = "Select * From tbl_Controls_Properties" mySQL = mySQL & " WHERE Form_Name='" & Me.Name & "'" mySQL = mySQL & " AND Language='" & Forms!frm_Main!Lang & "'" Dim rst As DAO.Recordset Dim x() As String Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst iTwips = 576 '576 twips/cm , 1440 twips/inch For i = 1 To rst.RecordCount Me(rst!ctl_Name).Caption = rst!ctl_Caption Me(rst!ctl_Name).Left = rst!ctl_Left * iTwips If Len(rst!ctl_Style & "") <> 0 Then x = Split(rst!ctl_Style, "|") With Me(rst!ctl_Name) .FontName = x(0) .FontSize = x(1) .FontWeight = x(2) .FontItalic = x(3) .FontUnderline = x(4) .ForeColor = x(5) If rst!Language = "A" Then '0=General '1=Left '2=Center '3=Right '4=Distribute .TextAlign = 3 Else .TextAlign = 1 End If End With End If rst.MoveNext Next i Exit Sub err_Form_Load: If Err.Number = 438 Or Err.Number = 13 Then 'ignor, Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وهذا الكود الذي يفتح لنا msgbox : Public Function aRemark(N) 'call the Arabic Remarks in Table tbl_Controls_Properties aRemark = DLookup("[Remark]", "tbl_Controls_Properties", "[Form_Name]='" & Me.Name & _ "' And [Language]='" & Forms!frm_Main!Lang & _ "' And [Remark_ID] = " & N) End Function هذا البرنامج برنامج بدائي ، والذي يمكن تطويره 🙂 جعفر MultiLanguage2.zip

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String On Error GoTo ErrorHandler 'to call the Function 'Hijri to Milady 'txt Milady date = ToWhat(txt Hijri date, "H") ' 'Milady to Hijri 'txt Hijri date = ToWhat(txt Milady date, "M") Dim CorctAdjustDay As Integer CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate") If To_Hijri_Milady = "M" Then myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 1 d = CDate(myData) VBA.Calendar = 0 Else myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 0 d = CDate(myData) VBA.Calendar = 1 End If s = CStr(d) ToWhat = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal ErrorHandlerExit: Exit Function ErrorHandler: If Err = 13 Then MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Function 'Resume Next Else Resume ErrorHandlerExit End If End Function جعفر

انا تعلمت معك ولم اقدم اى شئ مطلقا كل الشكر والتقدير لاساتذتى الكرام الاستاذ @Khalf / الاستاذ @أبو إبراهيم الغامدي

بل كل الشكر والتقدير لكم تعلمت منكم وعلى يديكم شيئا كنت اجهله

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

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

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

السلام عليكم بعد إذن الأخ الغالي أبا جودي ما تحتاجه في المرفق الملاحظات : تخصيص Enter.accdbحتى يعمل تخصيص زر الإنتر عليك بجعل Key Preview إلى Yes ووضع الكود في حدث KeyDown If KeyCode = vbKeyReturn Then 'طريقتان لاستدعاء الزر إما بوضع الشيفرة التي وراءه 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "U1" 'DoCmd.SetWarnings True 'Me.Requery 'DoCmd.Close ' أو باستدعاء الزر بـ 'call Call الأمر11_Click End If

جميل جدا ربي يبارك فيكم ويحفظم يارب

لا حاجة للمعادلات في هذا املف الـــ Vba يقوم بكل ما يناسب الملف مرفق مع الشرح الكودات اللازمة Option Explicit Sub Edit_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("b8:l8"), Range("c9:l9")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d6")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("d6")).Row With Me.Range("b8") .Value = Cells(r, 2): .Offset(, 1) = Cells(r, 3): .Offset(, 2) = Cells(r, 4) .Offset(, 3) = Cells(r, 5): .Offset(, 4) = Cells(r, 6): .Offset(, 5) = Cells(r, 7) .Offset(, 6) = Cells(r, 8): .Offset(, 7) = Cells(r, 9): .Offset(, 8) = Cells(r, 10) .Offset(, 9) = Cells(r, 11): .Offset(, 10) = Cells(r, 12) .Offset(1, 1) = Cells(r, 13) End With End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub ADD_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d2")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Find_rg.Row With Me.Range("b4") Cells(r, 2) = .Value: Cells(r, 3) = .Offset(, 1): Cells(r, 4) = .Offset(, 2) Cells(r, 5) = .Offset(, 3): Cells(r, 6) = .Offset(, 4): Cells(r, 7) = .Offset(, 5) Cells(r, 8) = .Offset(, 6): Cells(r, 9) = .Offset(, 7): Cells(r, 10) = .Offset(, 8) Cells(r, 11) = .Offset(, 9): Cells(r, 12) = .Offset(, 10): Cells(r, 13) = .Offset(1, 1) End With End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Ta3dil() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("B4:L4"), Range("C5:L5")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("D2")) If Find_rg Is Nothing Then MsgBox "This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("D2")).Row With Me.Range("b4") .Value = Cells(r, 2): .Offset(, 1) = Cells(r, 3): .Offset(, 2) = Cells(r, 4) .Offset(, 3) = Cells(r, 5): .Offset(, 4) = Cells(r, 6): .Offset(, 5) = Cells(r, 7) .Offset(, 6) = Cells(r, 8): .Offset(, 7) = Cells(r, 9): .Offset(, 8) = Cells(r, 10) .Offset(, 9) = Cells(r, 11): .Offset(, 10) = Cells(r, 12) .Offset(1, 1) = Cells(r, 13) End With End Sub T-2019_Salim.xlsm

كما يمكنك استخدام ماكرو كالمرفق K_1.zip

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

اتفضل أخى الكريم تعديل بسيط على الكود الموجود بالملف يوضع فى حدث الضغط على الزر الموجود بالفورم سيقوم بفتح الملف الآخر Backup data الموجود بنفس المجلد الموجود به الملف الأول ( شرط اساسى ) وسيقوم بترحيل البيانات ثم حفظه وإغلاقه الكود Dim sh As Worksheet, ws As Worksheet Dim wkb As Workbook If TextBox1.Value = "" Or TextBox2.Value = "" Or ListBox1.Value = "" Or ListBox2.Value = "" Or ListBox3.Value = "" Or ListBox4.Value = "" Or ListBox5.Value = "" Then MsgBox "برجاء اكمال البيانات" Exit Sub End If '========================================================= Set wkb = Workbooks.Open(ThisWorkbook.Path & "\Backup data.xls") Set ws = Sheets("TAG CALL") ws.Activate '======================================================== LROW = Range("A" & Rows.Count).End(xlUp).Row Range("A" & LROW + 1).Value = TextBox2.Value Range("A" & LROW + 1).Offset(0, 1).Value = ListBox2.Value Range("A" & LROW + 1).Offset(0, 2).Value = ListBox4.Value Range("A" & LROW + 1).Offset(0, 3).Value = ListBox3.Value Range("A" & LROW + 1).Offset(0, 4).Value = ListBox5.Value Range("A" & LROW + 1).Offset(0, 5).Value = ListBox1.Value Range("A" & LROW + 1).Offset(0, 6).Value = TextBox1.Value TextBox1.Value = "" TextBox2.Value = "" ListBox1.Text = "" ListBox2.Text = "" ListBox3.Text = "" ListBox4.Text = "" ListBox5.Text = "" '--------------------------------- wkb.Close SaveChanges:=True

استاذ kanory & AlwaZeeR طيب واللي مش مبرمج محترف وليس لديه الخبرة العملية الكافية لحماية برنامجه يعمل ايه هل لنا بأمثلة لبعضاً من هذه العراقيل وليكن بذكر أشهرها من حيث الصعوبة

استاذي @عبدالرحمن هاشم بارك الله فيك كما ذكر سابقا ليست هناك حماية مطلقة ..... لذلك هي مجرد وضع العراقيل لعملية أو سرعة الوصول الى تلك البيانات .... قد تكون هذه العراقيل بسيطة مثل منع الشيفت وغيرها أو صعبة مثل كتابة بعض الأكود داخل البرنامج ,,,,,,,, وفي النهاية هي مسألة وقت ... وبالمناسبة هناك برامج مدفوعة الثمن لمثل ذلك ... لأن البرامج المكتوبة بلغات برمجة قوية .... يمكن فك تشفيرها ... ( مثل برامج الشركات الكبيرة مثل ميكروسوفت وغيرها ) لأن من يحاول فكها يستخدم البرمجة العكسية وهكذا ...... خلاصة القول ( لكل مبرمج طريقته الخاصة في منع أو تأخير أو تعجيز الوصول لبيانات برنامجه ) وهذا يمثل رأي الذي أعتقده والله أعلم ...

اتفضل استاذ / هشام جرب الكود التالى إن شاء الله يفى بالغرض المطلوب انسخ الكود وضعه فى موديول جديد واربطه بزر تنفيذ Sub MD_To_PDF() Dim ws As Worksheet Dim Fname As String Dim lr As Long Application.ScreenUpdating = False Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "X").End(xlUp).Row '------------------------------------------------ With ActiveSheet On Error Resume Next .Range("X9:AA" & lr).Select Fname = ThisWorkbook.Path & "\Exported " & ws.Name ws.Range("X9:AA" & lr).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook _ .Path & "\" & ActiveSheet.Range("z1").Value & ".pdf", Quality:=xlQualityStandard _ , IncludeDocProperties:=True, IgnorePrintAreas:=False End With '------------------------------------------------ Application.EnableEvents = True Application.ScreenUpdating = True End Sub

الفيديو التاسع مطلب جماهيري مشهور جدا كيف لما أحدد اسم فى نموذج أفتح نموذج آخر للتفاصيل على نفس الاسم باختصار كيف تفتح نموذجا على سجل محدد من أهم المهارات المطلوبة فى أكسيس اخترنا طريقتين لعمل ذلك بعيدا عن التعقيدات و التحابيش شاهدوا الفيديو https://www.youtube.com/watch?v=4OXU6UFzk8k

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى فهناك موضوع كبير للعلامة الراحل عماد الدين الحسامى يخص طلبك ,موجود على كل هذه الروابط https://www.officena.net/ib/topic/63602-أعمال-العلامه-القدير-الراحل-عماد-الدين-الحسامى/?tab=comments#comment-413052 https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/?tab=comments#comment-260297 https://www.officena.net/ib/topic/56966-اريد-عمل-شجرة-حسابات-بالtree-view-فى-الاكسيل/?tab=comments#comment-361556 وأيضا هذا هو البرنامج شجرة الحسابات.xls

وعليكم السلام-تفضل Fuddruckers OD Jun 2019.xlsx

لا يمكن العمل على التخمين عليك برفع الملف وشرح المطلوب عليه بكل دقة

تفضل تم العمل بمعادلات المصفوفة -فلا يمكن الحل بمعادلة Vlookup نهائياً معادلة اظهار نتائج بحث.xlsx

اتفضل المتغير (2).accdb

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

اخر تحديث يمنع اضافة الاقساط اكثر من مرة تمت الاضافة بواسطة الاخ @kha9009lid اقساط.accdb

تفضل غيرت اسم جدول 2 الى tbl2 المتغير.accdb

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.xls

=DLookUp("[سعر الشراء]","[stock_query]","[الصنف]='" & [Type] & "'")

تفضل لك ما طلبت ,تم التعديل للطلبات الجديدة مستحقات 1.xlsx

اتفضل كل شئ بالعربى >>---> التاريخ الميلادى - التاريخ الهجرى - الوقت دونما التقيد بلغة النظام المتغير (1).accdb

وعليكم السلام 🙂 جوابك قد تحصل عليه في احد هذه الروابط . . . جعفر

احسنت أستاذ عبد اللطيف بارك الله فيك ورحم الله والديك

تفضل لك ما طلبت كشف استهلاك المواد.xlsx

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

Microsoft Office Picture Manager برنامج يمكن التعمل مع الصور و تغيير حجمها و خصائصها Microsoft Publisher. يستخدم لصميم الصفحات الاعلانية و البروشورات الدعائية و المطبوعات الاعلانية .... Microsoft Share Point Designer يستخدم لتصميم صفحات الاتش تي ام ال فى المواقع المصممة بالشير بوينت Microsoft Project إعداد و متابعة البرامج الزمنية Office Lens لعمل مس ضوئي للمستندات

مرفق رابط برنامج لاداره المخازن و نقاط البيع و المعدات و موظفين و حسابات من تصميمي البرنامج بسعر رمزي مرفق نسخه تجربيه من البرنامج https://www.4shared.com/rar/qjf1M8dzgm/SSP_2019_-_V_4_Demo.html للتواصل emad.atef@live.com

السلام عليكم ورحمة الله وبركاتة بفضل الله أنا مبرمج و محلل قواعد البيانات أكسس للعمل عن بعد و حسب الطلب في برمجة قواعد البيانات الخاصة بالشركات و المؤسسات و المحلات التجارية والصناعية والخدمية ايضا و بامكاني العمل مع اية مؤسسة او شركة او فريق عمل عن بعد او اعداد دورات تاهيل للموظفين هذا فضلا عن خبرتي المالية لاكثر من 20 عاما (مدير مالي ) مما جعلني مميزا في اعداد البرامج حيث قوم بتفصيل البرنامج على النشاط والمكان ايضا مصر - مدينة السادات - 00201015284384

جرب هذا استاذ ابا خليل xf = "C:\abcd\" xid = 2 xt = 10 x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4) طبعا لابد من وجود المسار ويسمح بالكتابة عليه تحياتي

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