Search:

My teacher helped me fix the code. He showed me how to use a Loop code to get the delete and update buttons to work.

Feel free to take a look at it. I attached my final version.

I will...

VB Doesn't understand cmdAction(0).

Yeah, putting DoEvents as the first line under that sub worked.. I had one listed, but it was before the timing..

Thanks

Can you explain this part?:


cmdAction(0).Caption = "&Add"
SetVisible True
If cmdAction(0).Caption = "&Add" Then
varBookMark = .Recordset.Bookmark
...

Oh it doesn't crash.. It just appaears as a see through window.

Like I said, it's very weird...

Well, if we do have that.. Then it wont ask for confirmation and it tells you the database must be refreshed and or updated.

Well I didn't touch the properties.. I even went as far as deleting the form and recreating it. I don't think I accidently hit something twice to do that.

Here is the code for the entire splash...

I have a slpash screen system.

One slash loads first before any thing, it has three options; about, load, and exit.

You click load and you get another splash with a progress bar. It all works...

Do I have to write a different type of code to Update and Delete a database record if I have the information to the text box objects coded in and not linked via the properties window?

Because the...

It tells me "Multiple step operation generated errors. Check each value.."

I got the Addnew function working, so I can add records. But it doesn't work very well with auto number on in the database for CardID.

I can't figure out the delete code.. I will keep up on it...

I don't want the text boxes populated upon loading of the form. But after I did what you said about end and Unload me, they splash screen stopped sticking behind frmBaseball.

I was wondering why...

Thanks, that does work. I just wish there was a way to enfore the auto number for CardID.

Also, why doesn't that method work for .Delete?


Such as:
On Error GoTo DeleteErr
...

What's wrong with ""? It's works.. I haven't had a record disapear on me yet..

I didn't know you were egging me to figure something out. It worked, so I left it at that.

The code you posted...

I understand what you mean.. But this is an educational program. I will never use it to store any large amount of data.

Computer have a HUGE amount of processing power these days, why not use...

No, if I type in 1001 as an account number I get record 1001 and it's associated data displayed correctly, as I do for every other account number I feed the search code.

It works.. I can pull all...

I run the program, and for each record account number I type in: it correctly pulls back the associated data. So I think that works just fine...

How would I add each feild after calling Adnew?

I do this:
Dim Response As VbMsgBoxResult
Dim rs As ADODB.Recordset
Response = MsgBox("Would you like to add this record?", vbYesNo,...

Have fun:


Private Sub cmdSearch_Click()
Dim db As connection
Dim OrigtxtAddress As String
Dim strSource As String
Dim cn As ADODB.connection 'This is the connection
Dim rs As...

I have been working on a Project, as most of you probably already know and need to get the add new record to database working right.

Should I be using some other kind of adding method other than...

Nah, I will just use the other code. I get all kinds of other errors if I make those changes.

Such as End if without block if, then I remove the end if and get another error about wend without...

Well, it would return all records I have in the database with the other code, not just the first one.

If I make your changes it complains about wend without while...

Yeah I removed it without error.

I don't suppose you know why my add forum doesn't work?

I think it's because I don't have the controls bound automatically. I think I have to do what I did in...

You're really good at this. I just replaced those lines with Null errors using the new .value trick you showed me and now I can read back database entries without Null errors.

Do I even need that...

Thanks, now it works right (almost). Now when I exit the program it shows the first splash screen again.

If rs.Fields("AccountNumber") = txtAccountNum.Text Then
cntr = cntr + 1

frmBaseBall.txtCustomer = rs.Fields("CustomerName")
OrigtxtAddress = Check_Null(rs.Fields("MailingAddress"))...

Thanks, that worked great.

I don't know what "Out_Text" is for. Someone else gave that code to me, and without object explicit it worked fine, but now I know it's a problem.

Can you or anyone...

Wow your right.. Now I can get all kinds of problamatic messages.

Can you help with this one?:

Response = MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion)
...

Hey that works! LOL

Sorry and thanks!

Okay, I see.. That works, but only if the program is compiled to an exe.

I still can't get that other screen to not be invisible. It loads and I can see everything behind it. :(

That codes for a progress bar that changes color when you click a button?.

I just wanted to change it period, you know have a static color. I don't need anything interactive.

That looks better that most other color changing codes.. But it sends off an error stating that ProgressBar1.hwnd is an invalid procedure in this line:
Call SendMessageLong(ProgressBar1.hwnd,...

Good idea, but that doesn't work. :-(

It's suppose to stop errors, but it doesn't work all that well. I have someone trying to help me with it. They put it there, and I have been tweaking the code.

It will work, unless of course...

Can you change the color of the progress bar?

Thanks

The attached project has two splash screens. One splash shows right away when the program is loaded, and gives several options. The other is the splash for the main program when you click load on...

Oh okay, it's under the forums properties. I thought everyone meant under the projects properties.

Thanks!

That only let's me view the current icon for each form. It doesn't actually let me change them..

Does anyone know how to change the applications icons? You know those icons on the forums when they are run (In the upper lefthand corner). By default it's a bent peice of paper looking icon.
...

Thank you, I made the changes and corrected that line and another line that had the same problem as OrigtxtAddress.

However, for some reason I still can't add a record and I can not search for a...