qushisha

أخي السائل: تم تعديل البرنامج كالتالي: If Text1.Text <> "" Then Sql = "Trim(name) LIKE '%" & Text1.Text & "%'": AddAnd = True If Text2.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND Trim(name1) LIKE '%" & Text2.Text & "%'" Else Sql = "name2 LIKE '%" &…

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

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

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

شكرا على التوضيح يبدو من الصورة المرفقة أن الخطأ يحمل الرقم 80010108، وبالرجوع إلى مكتبة MSDN تبين أن هذا النوع من الأخطاء ناتج عن عمليات ربط أو تضمين للكائنات بواسطة أداة OLE. ولحسن الحظ فقد بدأت في نشر سلسلة حلقات بهذا الشأن اليوم رداً على سؤال لأحد الزملاء …

يمكنك التحول إلى وضع عارض الإجراء Procedure Viewer مرفق معه صورة توضيحية في المرفقات. Procedure_Viewer.bmp

أخي السائل: لقد قمت ببعض التعديلات على الكود الذي أرفقته بالسؤال، أرجو أن تفي بالغرض Public Function readLine(ByRef strFilePath As String, ByRef nLine _ As Integer) As String Dim FileNum As Integer Dim str() As String FileNum = FreeFile Open strFilePath For In…

بسم الله الرحمن الرحيم لقد حاولت مراراً وتكراراً الدخول إلى المنتدى خلال الأيام الثلاثة السابقة لأرد على سؤالك وسؤال آخر لأحد الزملاء، لكني لم أستطع، رغم أني أستخدم اتصالاً بالإنترنت بسرعة 512 كيلو، لا أدري لماذا يحدث هذا في هذا المنتدى بالذات رغم أنه يخدم شري…

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

يمكنك تعديل الكود كالتالي: Print Format(A, "0.00000000000000000")

يمكنك إضافة الكود التالي: Private Sub Form_Load() For Each Form In Forms If Form.Name <> Me.Name And Form.Name <> MDIForm1.Name Then Unload Form Next End Sub

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

الزميل العزيز أضف الكود التالي: Function AddTime(Hours As Integer, Minutes As Integer) As Integer Static Total As Integer Dim H As Integer Dim M As Integer Total = Total + Hours * 60 + Minutes M = Total Mod 60 H = Total \ 60 AddTime = IIf(M < 30, H, H + 1) End…

الزميل العزيز يمكنك إضافة الكود التالي: RSCP.LockType = adLockOptimistic والله الموفق

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

بسم الله الرحمن الرحيم الأخ الكريم/ النهر الخالد قد يبدو سؤالك واضحاً من وجهة نظرك، لكنك لو قرأته باعتبارك شخصاً آخر، فقد تعذرنا. أولاً: ما هي الطريقة التي اخترتها للاتصال بقاعدة البيانات؟ هل هي أداة البيانات؟ وإذا كان الأمر كذلك، فما نوع الأداة التي استخدمتها…

وأنا معكم بكل ما أملك من توفيق الله تعالى

أخي العزيز rokaphp أضف الكود التالي: Private Sub Text1_Change() Data1.RecordSource = "Select * From roka Where [name] Like '" & Text1 & "*'" Data1.Refresh End Sub

أخي الكريم shahrani2 أشكرك على اهتمامك وأتمنى من الله لك التوفيق والسداد في الحقيقة كنت أظن الكريستال ريبورت 9 موجوداً على موقع من المواقع لكي تدلني عليه حتى أحمله منه، ولكن يبدو أنك حصلت عليه من غير طرق النت. ولكنى أعدك إذا حصلت على نسخة منه أن أخبرك لكى نكمل…

أخي العزيز shahrani2 آسف لعدم استطاعتي مساعدتك في هذا الطلب حيث إنني لا أعمل على ال Crystal Report 9 لأنني لا أملك نسخة منه إذا كان بإمكانك مساعدتي في الحصول عليها فلك جزيل الشكر