Help On VB 6.0 DAO language purchase order willing to pay

[melwired`]

---

do u have any idea on visual basic

akong gi buhat is that.....TERMS dibah credit mana og cash....mo input ko sa txtbox og credit and cash...unsa.on pag trapping ana niya..to ensure na imong gi suwat kay credit og cash dili puwede spaces

trapping should include this will be my sample data:

cas h <---- spaces are prohibited.
cashes <-- no extra letters

dapat the exact word should be credit and cash...jud.. akong nahibaw.an is that...ang pag trap sa numbers na dili mo allow mo type og number and one thing unsaon pag trap sa numbers if ever naay spaces...

sample data

1234 5 <---how to trap if there is a space in between 4 and 5 basin pila pana ka space in between nila..ma trap gihapon unsaon


PLEASE help thanx to all..

[godCode]

i check box or i option botton nalang nang pag input sa terms...

for trapping spaces, just disable the space sa keypress event sa textbox

taga uc ka? finals na nga project? si sir sanchez ba gihapon?

[knight26]

bro,

try to use the TRIM function in visual basic 6 to eliminate the space.
example:
dim strTest as string

strTest = TRIM(text1.text)

to check whether ang entry is number or not, try to use the function ISNUMERIC. it returns true kung puros number iya gi input, false kung character or alphanumeric.
example:
if ISNUMERIC(text1.text) then
.....
end if

or

if NOT ISNUMERIC(text1.text) then
......
end if

[godCode]

number only input ug erase kay and enter key...

Private Sub txtItemCode_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 48 and KeyAscii <=57) or KeyAscii = 8 or KeyAscii = 13 Then
If KeyAscii = 13 and Trim(txtItemCode.Text) <> "" Then
SendKeys "{TAB}"
End If
Else
KeyAscii = 0
End If
End Sub

just modify the code para maka enter ka ug dot for numbers nga double

[ComputerTech]

old lovely vb eh....

you can also try this workaround bcn pwede this s the simplest thing i get:
on textbox lostfocus event (consider ur textbox as index sothat we could use a case method)

select case index
 'this is for cash
  case 0   
     If text1(0).text <> "cash" then
      text1(0).text = "cash"
     end if
'this is for cashes
  case 1
    If text(1).text <> "cashes" then
      text(1).text = "cashes"
    end if
end select

[bcasabee]

Pangita ug input textfield control bro nga naay input filter mask feature....hayahay kaayo imong life ana.......I'm sure naa na...kalimot naman gud ko......

[Drksrvnt]

try this one. It will accept numeric input only

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox2.KeyPress
If IsNumeric(e.KeyChar) = False Then e.Handled = True

End Sub

[melwired`]

@godcode : ooo sir sanchez uc jud gihapon ko IT 2nd courser 4th year...hehe patabang ko nimo bro...beh.kung puwede...

akong terms kay input man mo input ang user og cash og credit.....dapat mao rana ang i input niya..no problem with the numbers ang iinput kay mo error but ang akong gi apas is kanang dapat cash og credit jud ang word..

mga guys we dont use functions kay complicated na kaayo sa tanan...ehehe..

ang ko is mao rana akong problem heheh... na dapat mo input ang user credit og cash

for example.....mo input siya og Credits...mo error siya kay naay "s" na letter

kailangan ko og code ana heheh kung naa moy idea thanx kaayo sa tanan...ha sa mga idea...ninyo mga guys but kailangan ko og simple ones...

[melwired`]

ang ako is

private sub txtterms_keypress(keyascii as integer)
if keyascii = 13 then
if trim(txtterms.text) = "CREDIT" then
.
.
.
.

heheh ingana bitaw di man unta puwede pero unsa.on siya..na mo detect siya na credit jud imong gi suwat kanang ingana lang na style bitaw

[melwired`]

@computer tech : bro ask ko unsa dani na symbol ingana dibah use for comparing mana siya < kay less than > greater than kung <> unsa dani na

guys unsa pasabot anang CDate na command para check date na siya? og kanang MID pud na command unsa na siya?