هل textbox يحفظ البيانات على شكل نص فقط ام يمكن حفظه كرقم في حال كان رقم

[خالد مقداد]

السلام عليكم

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

يتكون من رقم وظيفي واسم موظف والوظيفة

عند ادخال البيانات والعودة الى صفحة اكسل فإن الارقام تحفظ على انها رقم تم تخزينه كنص

وعندما احولها لرقم من جديد لا يمكن لفورم البحث من ايجادها

هل بالامكان ان يقوم الفورم بحفظ الارقام على انها ارقام وهل يمكن له البحث عن ارقام ايضا ام يتعامل مع نصوص فقط

وشكرا

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

اخى خالد

قم بكتابة كود التيكست على النحو الاتى

وجرب الكود

ME.TEXTBOX1.VALUE

اذا لم تفلح معك هذه الطريقه

يرجى ارفاق ملف للعمل عليه

تقبل تحياتى

[خالد مقداد]

كيف يمكن ان اقوم برفع مرفق وشكرا

[عبدالله المجرب]

كيف يمكن ان اقوم برفع مرفق وشكرا

 

اليك الطريقة

 

http://www.officena.net/ib/index.php?showtopic=31250

[خالد مقداد]

هذا هو الملف اخوتي المطلوب عند ادخال بيانات في الفورم ان يقوم بحفظ الارقام كأرقام والتاريخ كتاريخ والنص كنص لمذا يقوم بحفظها جميعا كنص وشكرا

المصنف1.rar

المصنف1.rar

تم تعديل يوليو 15, 2014 بواسطه خالد مقداد

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

اخى خالد

جرب تغير الكود

الاتى

Private Sub CommandButton1_Click()
If t1 = "" Then
MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã"
t1.SetFocus
Else
On Error Resume Next
If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 1) = t1
Cells(lr, 2) = t2
Cells(lr, 3) = t3
t1 = ""
t2 = ""
t3 = ""
t1.SetFocus
Else
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå"
t1 = ""
t1.SetFocus
End If
End If
End Sub

الى الكود الاتى

Private Sub CommandButton1_Click()
If t1 = "" Then
MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã"
t1.SetFocus
Else
On Error Resume Next
If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then
lr = Range("a" & Rows.Count).End(xlUp).Row + 1
Cells(lr, 1) = t1.Value
Cells(lr, 2) = t2.Text
Cells(lr, 3) = t3.Text
t1 = ""
t2 = ""
t3 = ""
t1.SetFocus
Else
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå"
t1 = ""
t1.SetFocus
End If
End If
End Sub

تقبل تحياتى

[خالد مقداد]

الله يجزيك الخير اخي تم حل المشكلة بوضع .value الله يسلم ايديك يارب شكرا كتير

[خالد مقداد]

ولكن ظهرت مشكلة جديدة ارجو المعذرة عند القيام بالبحث لا يقوم بإيجاد القيم

لان المشكلة كانت قسمين

القسم الاول موضوع الادخال كرقم

والموضوع الثاني البحث عن القيم

وشكرا لك ولمجهودك ومتابعتك للموضوع

[خالد مقداد]

تمام اخي حليت المشكلة لقيت معالجة للموضوع الله يجزيك الخير

ومشكور على المعلومة الجديدة

.value

منور