[HELP!] VB6.0 Runtime Error Problem

[arteMalyn]

. .hello guys,

help naman oh, eto po yung concern ko, may system po kasi akong hinahawakan ngayon, so medyo hindi ko pa din alam yung process nya although lage ko syang dine-debug, then one time nagka meron xia ng error "runtime error '13' type mismatch " pero working naman yung system ko sa server ng client namen pati na din sa ibang workstation, ang nakakapagtaka lang merong isang workstation ang may ganung error panu po ba yun maresolve? hindi po kaya sa pc na yung problema?

thanks po in advance

regards
ermalyn

 

[knives645]

Maling data type siguro.
Much better if you can post the code here.

 

[jskhulitz]

pa-post ng error mismo

Also, check these
Possible Solution 1
Possible Solution 2

 

[arteMalyn]

. .eto po sya, pag click pa lang po dun sa form lumalabas na yung ganung error...
na- try ku na din po i-catch yung error ok naman na sya kasi hindi na lumabas yung "runtime error 13" ang problema lang po nagco-close yung system...
actually na-try ko na po lahat ng possible answer sa google heheh

Private Sub cmdMM_VSO_Click()
On Error Resume Next

frmSMIS_Trans_SalesOrder.Show
If FormExist("frmSMIS_Trans_SalesOrder") Then
frmSMIS_Trans_SalesOrder.WindowState = 0
frmSMIS_Trans_SalesOrder.ZOrder 0
End If
End Sub

thanks po. GODBLESS

 

[knives645]

San po yung code ng form na to?
frmSMIS_Trans_SalesOrder

 

[arteMalyn]

. .eto po sya.... salamat sana po maresolve naten to nakakaiyak na kasi.... T_T

Private Sub Form_Load()
CenterMe frmMain, Me, 1
picSalesOrder.Enabled = False
fraCustInfo.Enabled = False
picAdds.Visible = True
picSaves.Visible = False
picsecurity.Visible = False
initMemvars
InitCbo

If LTrim(RTrim(LOGCODE)) = "NET" Then
txtOldCS.Visible = True
Else
txtOldCS.Visible = False
End If

rsRefresh

StoreMemVars
AddColumnHeader "DESCRIPTION,QTY,RATE,AMOUNT", lwFreebies

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
gconDMIS.Execute ("IF NOT EXISTS(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='SMIS_jobs' AND COLUMN_NAME='Amount')" & "ALTER TABLE SMIS_jobs" & " " & "ADD Amount nvarchar(50)")

End Sub

 

[Asaman83687]

Try mong hanapin sa code mo if my Recordset ka na hindi explicit na ADODB.Recordset kasi baka ng'reresolve sa DAO.Recordset kaya na type mismatch.

 

[arteMalyn]

Try mong hanapin sa code mo if my Recordset ka na hindi explicit na ADODB.Recordset kasi baka ng'reresolve sa DAO.Recordset kaya na type mismatch.

ahmm hindi po e, ang nakakapagtaka lang po talaga sa isang pc lang xia hindi working the rest working nman.... :-?

 

[Asaman83687]

ahmm hindi po e, ang nakakapagtaka lang po talaga sa isang pc lang xia hindi working the rest working nman.... :-?

maybe one time ng'request ng outbound connection ung app tapos n'deny sa firewall? (if tama pagkaka'imagine ko sa process nyan)

 

[arteMalyn]

maybe one time ng'request ng outbound connection ung app tapos n'deny sa firewall? (if tama pagkaka'imagine ko sa process nyan)

ahmm kung ganun naman po, edi siguro hindi gagana yung exe? :-? e kaso nakakapaglog-in naman po xia tapos biglang may ganung error sa isang form.... :thingking: