وائل عابد

اخى ضع المثال بتاعك وان شاء الله نقدر نهيئلك مثالك وتستفيد منه

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

نصيحه مهمه ياجماعه الحقول مبتتكتبش بأسماء محفوظة داخل الفجوال مثلا password او user name او id او name ياجماعه والله الموضوع ده قليل لما الاخروه بيتكلموا عنه ولكنه مهم جدا لان الاخوه بيكتبوا الحقول بحيث انها تسهل عليهم ولكن المشكله بتظهر زى ما حصلة مع الاخ هنا

طبعا بما اننى كنت عامل موضوع زى ده انا بقولك انك تقدر تتعامل مع قاعدة بيانات اكسس على الانترنت بس لابد الموقع يكون مهيئ لذلك وشكرا

من فضلك وضح بمثال حتى يتم الرد عليك بالشكل الملائم

:haha: :haha: :haha: :haha: انت :calc: :calc: :calc: :calc: وانا :calc: :calc: :calc: :calc: وبعد كده واحد ياخد الافكار دى ويعلمها برنامج جامد جدا مثلا ايه انت ايه رايك ؟؟؟؟؟؟؟؟؟؟؟؟؟

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

حاول تعيد الاتصال بقاعدة البيانات مرة اخرى بعد الحفظ

هذا القسم فجوال بيسيك

الحمد لله

أخى بص على المثال ده ده مثال بسيط حاول تطبق على مثالك password__.rar

أخى هذة الاداه ترجع بقيمتين إما FALSE او TRUE وللمعلومية جرب MsgBox Option1.Value نقدر نستخدم ده فى قواعد البيانات نقول ان الحقل بيساوى الاداه اوشن الكود RS!OP1=OPTION1.VALUE ده عند الحفظ اما الاستعلام IF RS!OP1=TRUE THEN OPTION1.VALUE=TRUE ELSE OPTION1.VALUE=…

اخى عزراا ما فهمت عليك ممكن تضع مثال بالمشكله بتعتك ؟؟؟؟؟؟؟؟؟؟؟؟؟

مع التعديل Dim X As String X = InputBox("Enter name") re.FindFirst "Name like '" + X + "'" If re.NoMatch Then MsgBox "Not...found", vbExclamation, "Error"End If

بص ياحلاوة :D غير الفونت بتاعها من خلال التول وبعد كده الاوبشن هتجيب الاديتور فورمات وعدل فيها الخط بحيث يكون مدعم بالعربيه بس السلام عليكم ورحمة الله وبركاته

أخى وحبيبى بارك الله فيك اولا قبل ان تحفظ البيان تأكد من البيان المدخل انه غير مسافات باستخدام الداله trim(text) حيث text هو المدخل من خلاله اما الداله trim فهيا تقوم بحذف كل المسافات فى الاول والاخر وانت حين تقوم بالبحث تجد "محمد " بدون مسافات فى الاول او الا…

اخى جرب تضع الكود ده بعد فتح القاعده if HRM.CursorLocation=adUseClient

وعليكــم السـلام ورحمة الله وبركاتـه.. انسخ الكود Private Sub Command1_Click ( ) Combo2 . Clear Dim i As Integer For i = 1 To Combo1 . ListCount Combo2 . AddItem Combo1 . List ( i - 1 ) Next End Sub بالتوفيق ان شاء الله

أخى السؤال غير واضح

أخى عليك بالمواقع التعليمية هذا الصرح ايضا المحيط العربى وموقع فجوال بيسيك اما الكتب فعليك بكتاب الاستاذ تركى العسيرى