محمود رواس قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 الاخوه المحترمين ارجوا منكم ايضاح الخطأ في هذا الكود لكي نتعلم منكم . وشكرا ،،، ()Private Sub cmdnext_click ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then "MsgBox "last row ActiveCell.Offset(-1, 0).Select Exit Sub Else Call GetTextBoxData Call getoptionbuttonvalue Call getimag End If End Sub
إبراهيم ابوليله قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 اخى محمود اعتقد انك لازم تعرف المتغير last row وان كان يفضل ارفاق ملف للعمل عليه
محمود رواس قام بنشر مايو 14, 2014 الكاتب قام بنشر مايو 14, 2014 استاذنا الكبير ابوليله كنت ابحث في الانترنت عن كود لعمل زر next في الفورم ووجدت هذا الكود لكن عند محاوله تطبيقه يعطي خطا ولا يعمل .
حسين العصلوجى قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 Call GetTextBoxData Call getoptionbuttonvalue Call getimag هذه الاسطر تقوم باستدعاء اكواد اخر كل سطر يستدعي كود ولانها غير موجوده لديك فيظهر لك الخطأ
محمود رواس قام بنشر مايو 15, 2014 الكاتب قام بنشر مايو 15, 2014 (معدل) اشكركم جزيل الشكر وارجوا منكم مساعدتي في كود لعمل كبسه next مع الشرح في اليوزر فورم او مساعدتي في موضوعي السابق في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=53585&hl= تم تعديل مايو 15, 2014 بواسطه محمود رواس
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان