عبدالفتاح حسن

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

تفضل Shell.rar

الأخ الفاضل المشروع المرفق خاص فيجوال نت وليس فيجوال بيسك 6

جرب هذا الكود Private Sub Command1_Click() Dim A, B, C, D With Me A = .Width B = .Height C = .Frame1.Left D = .Frame1.Top .Width = .Frame1.Width .Height = .Frame1.Height .Frame1.Top = 0 .Frame1.Left = 0 .PrintForm .Width = A .Height = B .Frame1.Left = C .Frame…

الأخ الفاضل مشكور على هذه الفكرة ولكن ماهو الداعى الى استخدام الأرقام ثم تحويلها الى النظام الثنائى لمعرفة موضع الصلاحية فيه اعتقد ان الموضوع اخذ وقت اكثر من اللازم الأفضل هو استخدام حقل من النوع memo والصلاحيات تأخذ الشكل FFFTFTTFFT وبذلك يمكن استيعاب صلاحيات…

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

الأخ الفاضل الأفضل ان ترفق مثال ليتم التعديل عليه واليك هذا الكود لعله يفى بالغرض rs.open "select * from ItemsTabel where itemname='" & itemname & "'",db if rs.recordcount=0 then rs.addnew rs.feilds("itemname")=itemname rs.feilds("qty")=qty rs.feilds("salespri…

بســم الله الـرحمــن الرحيــم الأخ الفاضل يرجى توضيح السؤال بمثال حتى تحصل على الإجابة الوافية وعموما اذا كنت تقصد فتح الملف وحفظه فى متغير او لتخزينه فى قاعدة بيانات فقد اجاب الأخ Abboodd على سؤالك اما اذا كنت تقصد اعداة تنظيم الملفات بحيث يتم تغير اسم ملف ال…

تفضل الملف بعد التعديل وقد ادرجت ملاحظات على الأسطر المعدلة Employee.rar

فى المثال المرفق مثال مع ملف وورد به الشرح DDE.rar

يمكنك عمل ذلك من خلال تقنية DDE --- Dynamic Data Exchange راجع هذه الروابط http://msdn.microsoft.com/en-us/library/d2se9adx(VS.80).aspx /index.ph...c+Data+Exchange

الأخ الفاضل توجد عدة طرق لذلك اذكر منها : 1 : استخدم تقنية Remote Desktop وهى تمكنك من فتح اى جهاز عن بعد ولكن 000يجب ان تقوم بتثبيت الأى بى الخاص بجهاز كل محل 2: الطريقة التى ذكرها الأخ أحمد وهى افضل الطرق وهى وضع البيانات على سيرفر وسوف تقوم بتثبيت اى بى ايض…

تفضل : Dim DB As New ADODB.Connection Dim RS As New ADODB.Recordset Public Function ConnectSql(Server As String, Port As Single, DatabaseName As String, Username As String, Password As String, ConnectTimeOut As Single) As Boolean On Error GoTo 1 DB.Open "Provi…

تفضل هذا الكود معد تغير رقم اى بى السيرفر واسم القاعدة والمستخدم والمرور وزمن الإنتظار بما يتناسب لديك Dim DB As New ADODB.Connection Dim RS As New ADODB.Recordset Public Function ConnectSql(Server As String, Port As Single, DatabaseName As String, Username As…

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

أضف حقل لجدول الفواتيرر وليكن بإسم ShowOK من النوع Boolean ولعرض الفواتير الجديدة يكون query select * from invoic where showOK=False ثم : Update invoic set showok=true where showok=false

الأخ الفاضل استخدام مصفوفات الأدوات غير مناسب فى هذا الموضع ولكن الأفضل هو استخدام احد ادوات البيانات مرفق لك المثال ______.rar

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

الأخ الفاضل مرفق مثال لما طلبت وهو تعديل للمثال المرفق ولكن قد تكون هناك طرق اسهل للوصول لما تريد RMZH24.rar

الأخوة الأفاضل اسف لتأخرى فى الرد وذلك لإنشغالى مرفق رسم لتوضيح فكرة الكود بالفعل يوجد خطأ وقد قمت بتصحيحه فى المرفق شكرا على هذا النقد البناء .. و ننتظر منك الكود المعدل حتى يستفيد الجميع شكرا اخى الكريم على محاولاتك ولكن عندما اضع X1=X2=X3 تكون الزاوية 0 فى …