kinsay kamao og VB dha? waaahh.. nag libog man jud ko d mada..

[ferdz_willz]

---

kuwang pa ni ako code.. ang iya department wala pa gale ko ka butang anha..... then daghan pa man kuwang ana ako code.. galibog man jud ko.. cge lang butang og.. mismatch ang error..

[darkhero]

dugay jud ni maghuman stylela kung di patuo

[rhex_tendo]

'--ako iksuggest,
'--ilisi ang Currency ug Double
'--ilisi ang Val ug Cdbl..

'--kini n code bro, error mani...

'deduc - val(lblBasicPay.caption) * 0.3
'rs!empStatusRegProb = optPro.value and optReg.value

'--------------------------------------------------------

'elseif txtHWorked.text > 40 then ----ilisi ni bro ug ing-ani
elseif Cdbl(txtHWorked.text) > 40 then

'--mas mau ipakita ang code asa mg-error
'--ug unsay error para ma.trace..

[darkhero]

'--mas mau ipakita ang code asa mg-error
'--ug unsay error para ma.trace..

mao para dali ra ang tabang moabot.

[grooxe_forever]

mao ni ko code ai....den i dont know pud if sakto bah sad kaha ni ang formula nako sa computation... d jud nako ma save. cge lang error.. basin naa mo mga suggesstions.. all i need is ma save then masakto na ang computation ani.... naa sad ni module.. ok ra ako module...






option explicit
dim pay as currency
dim sss as currency
dim tax as currency
dim rate as currency
dim ot as currency
dim otrate as currency
dim deduc as currency
--------------------------------------------------------------------
private sub cmdsave_click()
call settable

pay = val(txtHWorked.text) * val(txtRPHour.text)
sss = pay * 0.02
tax = pay * 0.15
deduc - val(lblBasicPay.caption) * 0.3
lblSSS.caption = sss
lblBasicPay.caption = pay
lblTax.caption = tax
lblOTRate.caption = val(lblOTHours.caption) * (txtRPHour.text + (txtRPHour.text / 2))
lblTotalDeduc.caption = val (lblSSS.caption) + val(lblTax.caption) +val(txtdeduc.text)
lblNetPay.caption = val(lblBasicPay.caption) + val(lblOTRate.caption) - val(lblTotalDeduc.caption)

if checkID(txtID.text) then
msgbox " employee ID is not unique", vbcritical
elseif txtID.text = "" or txtName.text = "" or txtAddr.text = "" or txtDept.text = "" or txtHWorked.text = "" or txtRPHour.text = "" or txtDeduc.text = "" then
msgbox "please fill up all fields", vbcritical

elseif txtHWorked.text > 40 then
lblOTHours.caption = val(txtHWorked.text) - 40
else
rs.addnew

rs!empID = txtID.text
rs!empName = txtName.text
rs!empAddr = txtAddr.text
rs!empDept = txtDept.text
rs!empStatusRegProb = optPro.value and optReg.value
rs!empHWorked = txtHWorked.text
rs!empRPHour = val(txtRPHour.text)
rs!empDeduc = val(txtDeduc.text)
rs!empSSS = val(lblSSS.caption)
rs!empTax = val(lblTax.caption)
rs!empBasicPay = val(lblBasicPay.caption)
rs!empOTHours = val(lblOTHours.caption)
rs!empOTRate = val(lblOTRate.caption)
rs!empTotalDeduc = val(lblTOtalDeduc.caption)
rs!empNetPay = val(lblNetPay.caption)
rs.update
msgbox " new record added...",vbinformation
end if

end sub

Bro murag dili gyud ka save kay murag wala ko kakita kung asa imong database connection.
Unang buhaton nimo bro try lang sa gamay nga data i save para sayon ra pag trace sa error, Nya pwede raman na ipaawahi imong computation kung maka connect na gyud ka sa imong database.


Sample, pero dili gyud complete...

Dim rs As Recordset
rs.Open (blah blah............)
rs.AddNew
rs!EmpID = txtEmpID.Text
rs!FNam = txtFName.Text
rs.Update
MsgBox("Save",vbInformation+vbOkOnly,"Sample Text");
rs.Close

[gpiramide]

hahaha mao gyud asa man diay ma save, mga wla ka open nga conntion sa imo db, dayon wla pud nimo open recordset or table, libog imo button asa niya e pansak ang data, murag sakto kang forever nga comment boss.

[peterparker]

bitaw walay declaration sa connection man, its better pag bughat ug module sa connection then each form tawgon nalang to, then i debug sad na imong program bro para mabal.an nimo kung asa ang sayop

[peterparker]

try to use insert nalang instead of Addnew. Insert into <tableName> values(......) then i open imong database then close after

[rhex_tendo]

'Is this problem solved

[uzumaki]

visual basic, vb, active server pages (ASP),java, c, c++, c__ , vbscript,active server pages, ASP, vbscript,SQL, database, informix, oracle, SQL Server,Perl, CGI,Delphi, PHP, LISP, Javascript,Free source code for the taking. Over five million lines o --> naay daghan sample dire pwede ma praktisan gudluck ^_^