omani

اذا كنت تقصد بدون ان تقوم بالربط مع قاعدة بيانات فيمكنك ذلك حسب الاتي : Dim txt As String Dim lst As Boolean lst = False txt = Combo1.Text If txt = "" Then Exit Sub Dim i As Integer For i = 0 To Combo1.ListCount - 1 Combo1.ListIndex = i If Combo1.Text = txt Th…

اختي بما انك تعملين على الدوت نت فتوجهي الى قسم الدوت نت ... هذا القسم مخصص لفيجوال بيسك 6 وبالتالي لن يفيدك كثيرا . هناك ستجدين الكثير من الامثلة والبرامج . تحياتي

هذا ليعمل على دوت نت dim Pass as string pass= inputbox("ادخل كلمة المرور من فضلك") if pass<>"group1" then msgbox " كلمة المرور غير صحيحه" me.close() exit sub end if تحياتي

انت على اي اصدارة شغال ؟؟؟ هل على فيجوال بيسك 6 او على الدوت نت ؟؟؟ الكود السابق اعد ليعمل على فيجوال بيسك 6 وليس على دوت نت

اخي هناك برامج متخصصة لانشاء برامج المساعدة ولا تحضرني حالياً يمكنك انشاء ملف html ليقوم بالمهمه تحياتي

ضعي هذا الكود في حدث form_load dim Pass as string pass= inputbox("ادخل كلمة المرور من فضلك") if pass<>"group1" then msgbox " كلمة المرور غير صحيحه" unload me exit sub end if تحياتي

اخي ارفع مثال للمطلوب تحياتي

شكرا لك ومثابرة ممتازة ومكلله بالنجاح وهنا يمكنك ان تختصر كودك بشكل كبير جدا انظر هنا Dim dd As New ADODB.Connection Dim rr As New ADODB.Recordset dd.Open "Provider=Microsoft.Jet.oledb.4.0; data source=companies.mdb" 'فقط قم بمراعاة المسافات حسب ماهي هنا dd.Ex…

اختي مذهله ... وجهي سؤالك في قسم الدوت نت تحياتي

وعليكم السلام ورحمه الله وبركاته هذا مثال على عجاله ... اتمنى ان يفيدك تحياتي list.rar

اخي لا ادري من اين اقتبست هذا السطر ... لابد من وجود الكود كاملا لنعرف لما تم عمله هكذا . عموما هذا السطر للتأكد من ان المتغيير الذي يحمل القيمة المؤقته والذي اسمه TMPStr لا تكون القيمة التي يحملها في هذه اللحظة هي نقطه او نقطتين .. فيما عدا سنبفذ ماهو بداخل ب…

اخي المفروض ان تسأل في قسم الدوت نت . اما اذا احببت ذلك بالفيجوال بيسك 6 فيمكنك عمله هكذا dim myDays as integer mydays=datediff("dd",Date1,Date2) msgbox myDays تحياتي

اخي اذا كنت تستخدم اداة filelistBox فيمكنك مباشرة استخدام الخاصية Pattern وضع بها الامتدادات مفصولة بالفاصلة المنقوطة كالتالي *.jpg;*.bmp;*.gif اما اذا كنت تستخدم commandialog قم باستخدام الخاصية Filter حسب التالي All Picture Files|*.bmp;*.jpg;*.gif;*.wmf|BMB …

نعم كافية يمكنك غلق الريكورد ست بهذا الامر . تحياتي

وما العيب في ان تجبر جهاز العميل على العمل على الابعاد التي انت صممت بها برنامجك ؟ قم بتغيير اعدادات الشاشة برمجيا اثناء العمل على البرنامج ... ثم قم بإعادتها على ماكانت عليه بعد اغلاق البرنامج . لانك لن تعرف ماذا ستكون اعدادات شاشة العميل بعد غد !!!!!!! راجع …

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

تفضل عزيزي اتمنى ان يكون المطلوب تحياتي AutoNumber.rar

قم بتغيير اعدادات الشاشة برمجياً لتقوم بالتغيير حسب متطلبات برنامجك . اي ان تجعل التصميم يعمل على نفس الاعدادات في كل الاجهزة تجد امثلة في هذا الرابط /index.php?showtopic=115996 تحياتي

اخي/ اختي شموع نجد يمكنك الاستفادة من هذا الرابط /index.php?showtopic=170608 ستجد اكثر من مثال هناك ، فقط تابع ردودي بنفس الموضوع في الرابط اعلاه تحياتي

اخي : قم بتصميم برنامجك كأنك ستعمل على جهاز واحد اي كأن يكون عندك شخصين يعملون في نفس الجهاز . بعد ان تنتهي ضع Map Drive مشترك .. وادرجه في الجهازين بنفس الاسلوب كأن يكون P مثلا سيصبح الماب درايف كأنه على الجهاز نفسه بغض النظر اين موقعه الاصلي . والاتصال بقاعد…