VB Debugging Brain Freeze!!!... SHARE UR WISDOM...

[caster_troy]

btaw sakto man sila dli man acceptable ang null value equals sa text1.text. para safe nalng! inggon ani-a nalng para maka send keys ka dayon...
[KeyAscii = 13 kay ENTER na sya sa keyboard]


Private Sub Text1_KeyPress(KeyAscii As Integer)
Â* Â* Â* Â* If KeyAscii = 13 Then
Â* Â* Â* Â* Â* Â* Â* Text1.SetFocus
Â* Â* Â* Â* end ifÂ*
End Sub

[digitalsuperman]

murag lain raman siguro ang Ascii value sa integer. kay imo man gi-declare ang KeyAscii ug integer.
try this one:
_________________________________________________
If KeyAscii = CInt(vbKeyTab) Then
If Text1 = Null Then
Text1.SetFocus
Else
KeyAscii = vbKeyTab
End If
End If

End Sub
_________________________________________________

[hybrid_X]

use keydown event procedure to handle keystrokes not key ascii if your using vbkeys

[firewater]

wow, share mo sa inyo VBA, forms para excel

[digitalsuperman]

guys, naa ko pangutana ba..

unsay nakalahi ani nga code...kanang mag retrieve ka or mag entry ka sa database ba..

Legend:

ors = recordset
fname = field
lname = field
_________________________________________________

Code:

ors("fname") = txtfname
ors("lname") = txtlname

unsay difference kung kini ang gamiton?

ors!fname = txtfname
ors!lname = txtlname
_________________________________________________

can anyone explain please?

[hybrid_X]

guys, naa ko pangutana ba..

unsay nakalahi ani nga code...kanang mag retrieve ka or mag entry ka sa database ba..

Legend:

ors = recordset
fname = field
lname = field
_________________________________________________

Code:

ors("fname") = txtfname
ors("lname") = txtlname

unsay difference kung kini ang gamiton?

ors!fname = txtfname
ors!lname = txtlname
_________________________________________________

can anyone explain please?

digi those codes are the same assigning values to your fields. the difference is use (!) bang symbol to shortcuts database fields.

[pitStop]

Yes both methods are correct. I'm not sure I know why they VB have that maybe they are incorporating the older versions of data accessing.

I actually know three ways:
a. using the column index of the recordset (table)
ors(0) = txtFname
ors(1) = txtLname

b. using the column name as index
ors("fname") = txtFname
ors("lname") = txtLname

c. using the column name as properties
ors!fname = txtFname
ors!lname = txtLname

Thanks.

[nunobone]

i need help with this..

i need the code kanang mo load sa report(VB rpt) using parameters.. like sa sql statement.. selecting from ListView... unsaon man?? i cant do it right.. ok siya sa first click peru if mo.choose ko og lain, mao ra gihapon ang mugawas, dili mausab ang value sa variable.

[4U]

Private Sub mnu2Exit_Click()
Â* Â* Â*Unload Me
End Sub
__________________________________________________ ___________________________

Problem: After execution, the whole application will hang or pause. Please give me a solution ASAP?

B w8ting... Tnx daan!

[test_user]

i need help with this..

i need the code kanang mo load sa report(VB rpt) using parameters.. like sa sql statement.. selecting from ListView... unsaon man?? i cant do it right.. ok siya sa first click peru if mo.choose ko og lain, mao ra gihapon ang mugawas, dili mausab ang value sa variable.

Problem na sa data report, you can solve that by closing the recordset if it was previously opened, or dili nimo e bind and datareport sa dataenvironment at design time, run time lng.

Ex, u have a datareport binded to a DataEnvironment1 with command text named "Command1" (early binding).

if DataEnvironment1.rsCommand1.State =1 then
DataEnvironment1.rsCommand1.Close
end if

' enter query to filter records
DataEnvironment1.Commands("Command1").CommandText = "Select * from table1 where field1='test'"
DataReport1.Show