اين الخطأ في الكود

[محمود رواس]

الاخوه المحترمين

 

ارجوا منكم ايضاح الخطأ في هذا الكود لكي نتعلم منكم .

 

وشكرا ،،،

 

()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

 

 

[إبراهيم ابوليله]

اخى محمود

اعتقد انك لازم تعرف المتغير

last row

وان كان يفضل ارفاق ملف للعمل عليه

[محمود رواس]

استاذنا الكبير ابوليله كنت ابحث في الانترنت عن كود لعمل زر next في الفورم ووجدت هذا الكود لكن عند محاوله تطبيقه يعطي خطا ولا يعمل .

[حسين العصلوجى]

Call GetTextBoxData
Call getoptionbuttonvalue
Call getimag

هذه الاسطر تقوم باستدعاء اكواد اخر كل سطر يستدعي كود ولانها غير موجوده لديك فيظهر لك الخطأ

[محمود رواس]

اشكركم جزيل الشكر وارجوا منكم مساعدتي في كود لعمل كبسه next مع الشرح في اليوزر فورم

او مساعدتي في موضوعي السابق في الرابط ادناه 

http://www.officena.net/ib/index.php?showtopic=53585&hl=

تم تعديل مايو 15, 2014 بواسطه محمود رواس

[محمود رواس]

up

[محمود رواس]

ارجوا المساعده

[محمود رواس]

UP