I am developing an application in VB6, MS Access 2003, where i get an error when updating the data. Explanation below:
1- Open the application - no problem
2- Hit the add button - no problem
3- Fill the boxes and then Hit the save button - no problem
4- Hit Update button - no problem
5- Fill any box to be updated and then Hit the save button - ERROR HERE....TYPE MISMATCH
But, if i close the application re-open it and then hit the Update button, no error occur when saving the data.
Hope some of you guys help me with this. My application is very similar to an example from the net (i mod it to fit my needs cuz i'm a noob for sure). After trying to debug my application i found that the example from the net have the same issue as mine, the code from the example is a lot smaller than mine so i think it will be easier to debug the original example. It is a flexgrid example and i'm using VB6 enterprise edition. If someone need the whole project just let me know to attach it here if is no problem with the forum rules.
I put a not in the code where the problem appears to be. it is in the:
Private Sub cmdSave_Click()
We prefer it if you do upload the project (or at least the form as an .frm file), as it is easier to work with.
In this case tho just showing un the appropriate code (as following) would be more appropriate:
Code:
'-----------------------------------------------------------------------------
Private Sub cmdSave_Click()
'-----------------------------------------------------------------------------
Dim strPhone As String
Dim lngIDField As Long
Dim strSQL As String
If Not ValidateFormFields Then Exit Sub
strPhone = txtArea.Text & txtPrfx.Text & txtLine.Text
If mstrMaintMode = "ADD" Then
...
Else
lngIDField = CLng(grdCustomer.TextMatrix(mlngCustGridRow, 8)) >>> HERE IS THE PROBLEM
...
The error "data type mismatch" means that you are trying to convert from one data type (String) to another (Long), but the data is not valid for that - it seems that the text in cell (mlngCustGridRow, 8) cannot be converted to a number.
What I would recommend is to check the value is valid first, eg:
Code:
Else
Dim strIDField as String
strIDField = grdCustomer.TextMatrix(mlngCustGridRow, 8)
If (strIDField = "") or Not(IsNumeric(strIDField)) Then
MsgBox "Please set an ID value!"
Exit Sub
End If
lngIDField = CLng(strIDField)
...
Type mis match is usually a problem for trying to store different types into a variable or field.
Since you don't know which line it is at it is time you got to know vb6 debug bits.
First on the first line of code in cmdSave
(If Not ValidateFormFields Then Exit Sub)
Put a breakpoint (to do this left click in the margin and a circle should appear. The line should also be highlighted.
Now run your app. Click the buttons like you did, and when you get to the save bit the code should pop up and be highlighted (yellow I think was the default).
From here you use f8 to step line by line through the code. If you hover over variables they should tell you what they are (values) or you can use ctrl+g to use the immediates window.
Other alternative is to use error handling (read up on it...?)
Code:
'dim lines
on error goto errh
'your code here
exit sub
errh:
resume next
Put the break point on the resume next. If an error occurs this grabs it, the resume next moves to the next line of code after the error. You can then go back up one to find out where the error is....
Feeling like a fly on the inside of a closed window (Thunk!)
If I post a lot, it is because I am bored at work! ;D Or stuck...
* Anything I post can be only my opinion. Advice etc is up to you to persue...
si_the_geek, i have attached the project so that way you will see the data i'm trying to save/update. I have try with you suggestions but didn't worked at least in my end.
ohh, i'm sorry i'm currently using 1920 by 1200, but 1280 by 1024 should work also. That was another question i was planning to do later, what resolution is the best for programming purposes for an app to be used on different computers. let me know if you need me to mod the UI for you to look at.
Type Mismatch errors are pretty common and generally speaking, pretty easy to fix, but in order to do so I would like to run your save routine, so at least that button should visible.
On a completely unrelated note, who is going to be using this app? Will all your potential customers have this resolution problem or is this an internal application and all of the PCs in your company are running the same way?
Hack, i have re-attached the project in post number 4, now you should be able to see all the app at 1280 by 1024.
Almost all pc's that will be using the app are running at 1280x1024, but that's something i will work cuz not 100% will be able to run it. At what resolution did you develop your app's?
You should generally develop apps in the lowest resolution that could possibly be used, and always allow your form(s) to work at any resolution/window size that the user has set - by moving/resizing controls appropriately. An explanation of how to do this can be seen in the "Forms" section of our Classic VB FAQs (link in my signature).
Your Zip file is missing several files (.frm and .bas files), so it doesn't run at the moment.. and I'm not sure that I have the time to look at it properly myself.
Your analysis is spot on.. similar to what I spotted in post #2.
I'm not sure why the value in that column is not valid (presumably it is filled from somewhere else, but not being done 'properly' - which needs to be corrected), but the validation should be the same.
Post number 4 now should have all the nessesary files, sorry about that. Have many ppl here talking and talking. I think the only one working is me...
What i don't understand is if i close the app and then re-open it, i can update any file in it without errors. Every time i hit update i should be hitting this code:
Reply With Quote
