VB 6 need help

[rhex_tendo]

---

@sprocket:

'------------------kung A-Z LANG IMO gusto ipa.input-----------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------

'------------------kung 0-9 ang DILI nimo gusto ipa.input-------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------
'' i.add lang ni before sa THEN
AND KeyAscii<> vbKeyBack '--para maka.backspace
AND KeyAscii<> 44 '--para pwede ang comma(,)
AND KeyAscii<> 46 '--para pwede ang period or dot(.)

' AFAIK each character has equivalent ascii code...
' A=65, a=97
'if gusto u makabalo sa KeyAscii sa iba na characters:
Msgbox Asc("character") 'character = ang character na gusto nimo masabtan ang Ascii code
'if gusto u makabalo what character :
MsgBox chr(65) 'change 65 to any number....

'''''''happy coding

[lestat1116]

error trapping sa special char? wala pa jud ni nako nakuha.

and error trapping sa date. dli man gud pwede system date. mm\dd\yyyy

[rhex_tendo]

'------------------kung A-Z LANG IMO gusto ipa.input-----------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------
'much better dili nlng nimo xa painputon ug special character...

'and error trapping sa date. dli man gud pwede system date. mm\dd\yyyy
'Wat u buot pasabot

' i suggest use DTPicker for the date and/or time
'Project menu > Components (Ctrl+T)
'look and check Microsoft Windows Common Controls-2 6.0 (MScomct2.ocx)
'makakita naka sa toolbox ug DTPicker....
'JUST EXPLORE ----------- AND LEARN

[lestat1116]

'------------------kung A-Z LANG IMO gusto ipa.input-----------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------
'much better dili nlng nimo xa painputon ug special character...

'and error trapping sa date. dli man gud pwede system date. mm\dd\yyyy
'Wat u buot pasabot

' i suggest use DTPicker for the date and/or time
'Project menu > Components (Ctrl+T)
'look and check Microsoft Windows Common Controls-2 6.0 (MScomct2.ocx)
'makakita naka sa toolbox ug DTPicker....
'JUST EXPLORE ----------- AND LEARN

dli pwede system date ibutang txtdate.text. need to input jud.

need jud trapping ang special chars. still learning how. just checking unsa mga advice sa uban tao.

[rhex_tendo]

'try this
Private Sub Command1_Click()
If Not IsDate(Text1.Text) Then
MsgBox "INVALID DATE"
ElseIf CDate(Date) = CDate(Text1.Text) Then
MsgBox "DATE YOU ENTERED IS EQUAL TO SYSTEM DATE."
End If
End Sub

'need jud trapping ang special chars. still learning how. just checking unsa mga advice sa uban tao.
'wat u buot pasabot?
'allow makainput ug special character then i.trap niya when u click a button (like saving)?
'or dili jud nim ipakita sa textbox ang iya g.type n special character

[lestat1116]

'try this
Private Sub Command1_Click()
If Not IsDate(Text1.Text) Then
MsgBox "INVALID DATE"
ElseIf CDate(Date) = CDate(Text1.Text) Then
MsgBox "DATE YOU ENTERED IS EQUAL TO SYSTEM DATE."
End If
End Sub

'need jud trapping ang special chars. still learning how. just checking unsa mga advice sa uban tao.
'wat u buot pasabot?
'allow makainput ug special character then i.trap niya when u click a button (like saving)?
'or dili jud nim ipakita sa textbox ang iya g.type n special character

how to format ang date na mm/dd/yyyy para ma compare?

[sprocket]

@sprocket:

'------------------kung A-Z LANG IMO gusto ipa.input-----------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------

'------------------kung 0-9 ang DILI nimo gusto ipa.input-------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Then
KeyAscii = 0
End If
End Sub
'--------------------------------------------------------------------------------
'' i.add lang ni before sa THEN
AND KeyAscii<> vbKeyBack '--para maka.backspace
AND KeyAscii<> 44 '--para pwede ang comma(,)
AND KeyAscii<> 46 '--para pwede ang period or dot(.)

' AFAIK each character has equivalent ascii code...
' A=65, a=97
'if gusto u makabalo sa KeyAscii sa iba na characters:
Msgbox Asc("character") 'character = ang character na gusto nimo masabtan ang Ascii code
'if gusto u makabalo what character :
MsgBox chr(65) 'change 65 to any number....

'''''''happy coding

bro salamat kaau...

[rhex_tendo]

@lesta1116:
'how to format ang date na mm/dd/yyyy para ma compare?

text1.text=Format(date,"mm/dd/yyyy")

'-------------------------------------------
'how to format ang date na mm/dd/yyyy para ma compare?

If CDate(Date) = CDate(Text1.Text) Then
MsgBox "DATE YOU ENTERED IS EQUAL TO SYSTEM DATE."
End If
'way to compare dates....

[lestat1116]

@lesta1116:
'how to format ang date na mm/dd/yyyy para ma compare?

text1.text=Format(date,"mm/dd/yyyy")

'-------------------------------------------
'how to format ang date na mm/dd/yyyy para ma compare?

If CDate(Date) = CDate(Text1.Text) Then
MsgBox "DATE YOU ENTERED IS EQUAL TO SYSTEM DATE."
End If
'way to compare dates....

thanks. post more problem if i find one.
sure next problem error trapping on database na. specially empty ang data base. or gibackdoor then gi kuhaan some data.

[lestat1116]

sakto ni ka @rhex_tendo...just change the "Byref" to "Byval"

@lestat1116....just try this one.

****frmEntry
Private Sub Command1_Click()
Call ClearGrid(grid, Row)
Call Clear
End Sub

Private Sub Form_Load()
Me.grid.AddItem "test", 1
Me.grid.AddItem "test2", 2
End Sub

****from module
Public Sub Clear()

'Call ClearGrid(grid, Row)

Row = 1
totalAmt = 0
totalqty = 0

'txtPO.SetFocus
End Sub

Public Sub ClearGrid(ByVal grid As MSFlexGrid, ByVal Row As Integer)
grid.Clear
grid.Rows = 2
grid.FormatString = grid.FormatString
Row = 1
End Sub

mo error cya. run time error 424 object required.
mo ni actual code
'from form1

'CLEAR
Private Sub cmdClear_Click()
Call Clear
Call ClearGrid(grdRow, Row)
End Sub


from module
'CLEAR FUNCTION
Public Sub Clear()

Row = 1
totalAmt = 0
totalqty = 0

txtCustNo.Text = ""
txtPO.Text = ""
txtItemCode.Text = ""
txtQty.Text = ""
txtPrep.Text = ""

txtPO.SetFocus
End Sub

'clear grid
Public Sub ClearGrid(ByVal grid As MSFlexGrid, ByVal Row As Integer)
grid.Clear
grid.Rows = 2
grid.FormatString = grid.FormatString
Row = 1
End Sub