سوال: اگر Me!textbox خالی باشد (null) [بایگانی]

silverhand

چهارشنبه 07 مهر 1389, 10:33 صبح

سلام

یه فرم لاگین درست کردم که سورس Bottom ورود آن به شکل زیر است

Private Sub Command2_Click()
Dim p As String
p = Me!Textbox1
If (p = "Hello") Then

Else

End If
end sub
زمانی که کاربر هیچ مقداری را وارد نکند یعنی null باشد پیغام خطای run-time 94 میده و میگه invalid use of null حالا می خوام ببینم چیزی مثل

p=val (textbox1.text)
کد روبه رو رو داره ؟؟؟

amirzazadeh

چهارشنبه 07 مهر 1389, 10:46 صبح

سلام

یه فرم لاگین درست کردم که سورس Bottom ورود آن به شکل زیر است

Private Sub Command2_Click()
Dim p As String
p = Me!Textbox1
If (p = "Hello") Then

Else

End If
end sub
زمانی که کاربر هیچ مقداری را وارد نکند یعنی null باشد پیغام خطای run-time 94 میده و میگه invalid use of null حالا می خوام ببینم چیزی مثل

p=val (textbox1.text)
کد روبه رو رو داره ؟؟؟

سلام
شما ميتونين در ابتدا شرط خالي بودن تكست باكس رو چك كنيد و بعد شرط دوم رو يه چيزي مثل اين:

Private Sub Command2_Click()
Dim p As String
p = Me!Textbox1
IF P <> "" THEN
If (p = "Hello") Then

Else

End If
ELSE
MSGBOX"ENTER PASS"
END IF
end sub

silverhand

چهارشنبه 07 مهر 1389, 11:08 صبح

اگه میشه یه بار دیگه چک کنید شما

amirzazadeh

چهارشنبه 07 مهر 1389, 11:23 صبح

اگه میشه یه بار دیگه چک کنید شما
سلام
كد رو به اين شكل اصلاح كنيد:(تست كردم)

Private Sub Command2_Click()
Dim p As String
p = Nz(Me!Textbox1.Value, "")
If p <> "" Then
If (p = "Hello") Then

Else

End If
Else
MsgBox "ENTER PASS"
End If