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

الأخ الفاضل مرفق مثال بالمطلوب Angels.rar

اخى الكريم كل عام وانتم بخير جرب select sum(amount) from [tabel] where code like '101%' ارجو ان يكون هذا هو المقصود

الأخوة الأفاضل كل عام وانت بخير بمناسبة قدوم شهر رمضان المعظم اعاده الله علينا وعليكم بالخير واليمن والبركات وبهذه المناسبة الجليلة اقدم لكم هدية متواضعة وهى آلة حاسبة بسيطة فى الشكل ولكنها تقوم بإجراء العمليات المركبة دفعة واحدة مثلا 15+20*4+(3^2) ... أو 22*(…

الأخ الفاضل : ماهو اصدار قاعدة البيانات لديك 2000 او 2005 او 2008 . . . . يمكنك عمل مثال لما تريد ينقصه الأكواد ورفعة حتى يمكن اجاء التعديلات عليه من قبل الأعضاء بما يناسب احتياجاتك . . . .

مشكور اخى الكريم -- جارى التجربة جعلها الله فى ميزان حسناتك

تفضل فى حالة الإتصال بقاعدة بيانات على جهاز اخر DB.open "Provider=sqloledb;Data Source=[server name or ip],[port];Network Library=DBMSSOCN;Initial Catalog=[database name];User Id=[userid];Password=[password];Connect Timeout=20;" اما فى حالة الإتصال بقاعدة بيان…

شكور اخى على هذا التحسين ويمكن تعديل الكود ايضا حتى يتم التنقل فى كل الإتجاهات بالإسهم If KeyCode = 13 Then SendKeys "{tab}" If KeyCode = 38 Then SendKeys "+{tab}" If KeyCode = 39 Then SendKeys "+{tab}" SendKeys "+{tab}" SendKeys "+{tab}" End If If KeyCode = 4…

تفضل ____.rar

تفضل .. تخزين المحدد فى ListBox فى جدول بإسم Table الحقل Item If Me.List1.ListIndex > -1 Then RS.Open "insert into Tabel (Item) Values ('" & Me.List1 & "')", DB

تفضل Dim Q As String Dim F As String Dim E As String Dim B As Integer Dim C As Integer Dim G As String Dim T As Integer Dim N As Integer N = 1 Q = "<scribt> test2 <scribt/> <scribt> test3 <scribt/><scribt> test1 <scribt/>" F = "<scribt>" E = "<scribt/>" 20: If…

تفضل Dim Q As String 'النص كامل Dim F As String ' نص البداية Dim E As String 'نص النهاية Dim B As Integer 'بداية الجملة المطلوبة Dim C As Integer 'نهاية الجملة المطلوبة Dim G As String 'نص الجملة المطلوبة Dim T As Integer Q = "<scribt> test test test 123 <scri…

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

الأخ الفاضل هذه الطريقة سهله وسريعة ولكن يعاب عليها أن قاعدة البيانات لن تكون مؤمنه بالقدر الكافى فيمكن تحميل ملف الأكسيس بالكامل من خلال مساره على السيرفر كما ان قاعدة البيانات اكسيس - فى رأيى - ليست بالقوة الكافية للعمل عليها من خلال عدد كبير من المستخدمين ل…

تعنى هذه العبارة انه فى حالة تحقق الشرط اذهب الى الدليل 96 وقد يكون الدليل رقما او حرفا ويكون هذا الحرف او الرقم موجود فى موضع معين فى بداية سطر فى الكود اليك مثال بسيط للتوضيح Test1.rar

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

الأخ الفاضل توجد العديد والعديد من الموضوعات التى تتحدث عما طلب يمكنك الوصول اليها بقليل من البحث وهذه اخرها حتى الأن /index.php?showtopic=158450

اخى الفاضل Yasine المرفق مشروع مفتوح بهدف توضيح الفكرة يمكنك التعديل والحذف او استتبدال اكواد بأكواد كيفما تشاء حتى تعم الفائدة على الجميع ومعذرة أنى لم اكمل لك البرنامج وذلك لضيق الوقت أولا , ولأن الأفضل ان تقوم بذلك بنفسك حتى لو استغرق منك بعض الوقت فلو تمكن…

اضف Microsoft Excel 11.0 Object Library من قائمة References Private Sub Form_Load() ShowCells App.Path & "\Test.xls", 1, 1, 1, 20, 20 End Sub Sub ShowCells(WorkSheetNaame As String, SheetIndex As Integer, FromRow As Integer, FromCol As Integer, ToRow As Intege…

تفضل r = Format(1 + 2, "000")

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