alimf

هذا التعديل Private Sub viwgrd() CLEARVIEW Dim i As Integer, k As Integer i = 0 Do Until rs.EOF i = i + 1 grd.Rows = 1 + i With rs grd.Row = i For k = 0 To 3 grd.Col = k Next grd.TextMatrix(i, 0) = rs(0) & "" grd.TextMatrix(i, 1) = Format(rs(1), "YYYY/MM/DD") …

Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Text2.SetFocus If KeyAscii = 13 Then KeyAscii = 0 End Sub او Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0 End Sub

السلام عليكــم ورحمـة الله وبركاتــة ،، شكراً جزيلا اخي الفاضل على التواصل معاي انا عملت زي ماقلت في الاتصال بالسيرفر فقط ولكن اداني خطا في السطر الاخير من الكود وهذا الكود Dim Cn1 As New ADODB.Connection ServerName = "alimf" Cn1.ConnectionTimeout = 25 Cn1.Pro…

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

السلام عليكم و رحمة الله وبركاتة عندي قاعدة بيانات من sql server 2000 اريد ان انسخها بسم اخر في نفس السيرفر بحيث تكون قابلة للاستخدم طبعا هذا كلة عنطريق الكود vb6 علشان انقل فيها البيانات الجديد لسنة الجديدة مش مشكلة البيانات المشكلة عمل نسخة من القاعدة بالكود…

عادة قاعدة البيانات تحفظ التاريخ على هذي الصورة mm/dd/yyyy بس في العرض في البرنامج بتضهر على الصورة الي انت محددها في اعدادات الوندز من لوحة التحكم في الخيارات الاقليمة و الغة فانت لم تتعامل مع التاريخ للعرض حيعرض زي ماتبقى ولكن لما تبقى تعمل بحث او اختيار بين…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة كل عام وانت بخير تقبل الله منا ومنكم صالح الاعمال وعادة الله علينا بخير عندي استفسار بسيط طبعاً الكل يعلم هذا الكود Sql = "select * from nam1 where num like '" & Text1.Text & “’” طبعاً الكود واضح ولكن المر…

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

الف الف شكر

السلام عليكم ورحمة الله وبركاته وبعد عندي مشكلة إن شاء الله تكون بسيطة عملة كود sql للجدول sader و فية اضهار البيانات من رقم كذا الى كذا عن طريق هذا الكود sx2 = Trim(t2.Text) data1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &…

الف الف شكر على التعاون واتمن لك التوفيق اخ Eng. Usama El-Mokadem

اسف جدا مع اني ارسلت الملف test_open_form.rar

هل المشكلة واضحة ام لا

السلام عليكم ورحمة الله وبركاتة وبعد المشكلة طويلة شوي ولذلك عملت مثال مرفق للتوضيح المشكلة هيه عندي فورم مسموح له الفتح اكثر ممن مرة من النافذة الرئيسية للبرنامج باسم (الاسماء) وفي داخل الفورم في زر بحث زر البحث يقوم بالذهاب الى فورم البحث عند الانتهاء من الب…

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

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