A few MORE questions........ Part 2

Ok now we have a thread that might be a bit easier to work with..

Originally posted by Wrestlecar Webmaster
That program works good, and i like the idea of saving it to a dat file.

A few questions though. How could i use this in my program ( a screenshot link in in an earlier post) because I dont really understand some of the coding you used.

I like the print command, i have to figure that one out too.

With this dat file, is is possible to to have more than one saved at a time, and the user can choose to load one or create a new one?

How could i use this in my program

I will fully comment the app tomorrow which will allow you to understand what I was doing a little better. You may have to go to an array of UDT to store your data while the app is running which isn't a major baggie to do. I can help you with the changes if you like. Just post your questions and I will try to help you out.

With this dat file, is is possible to to have more than one saved at a time, and the user can choose to load one or create a new one?

Sure, this can be done fairly easily also. Once again I can help walk you through it. I'm working on a LARGE database program right now so a break every now and then is a good thing.

Once I get the app commented, I will replace the one on the server and post a new note.

Till then,

Best

Hello,

OK, the second version is all done now:

http://home.epix.net/~rvasva/flatfile02.zip

Once you get that one, if you have any questions let me know.

Best,

Roger

[Wrestlecar Webmaster]

Thanks once again.

I will look over the code now.

[Wrestlecar Webmaster]

What do you mean by "it blew a gasket?"

[Wrestlecar Webmaster]

im so confused

Hello,

Ok, when I wrote "it blew a gasket" I fas just being a little funny. It really means there was an error and to report the error to the user

myError:
  ' we blew a gasket
  ' tell the user what happened
  MsgBox "Error " & Err.Number & " please report this"

It could read as:

myError:
  ' we found an error....
  ' tell the user what happened
  MsgBox "Error " & Err.Number & " please report this"

I hope that clears that up, is there anything else?

Best,

[Wrestlecar Webmaster]

I want to stop a command midway through if something is not right.

What command can i use to do this?

kill, what?

What are you trying to stop? A print command? A file save or what?

Let me know ok,

[Wrestlecar Webmaster]

when they choose what to save the file as, if the box is empty, it will stop the command after it finds an error message.

[Wrestlecar Webmaster]

after is displays an error message, not finds one

Hello,

Do you have AOL IM?

If you do fire it up and look for me

rvasva

[Wrestlecar Webmaster]

no sorry.

I have a message board at my site however.

This is the one we can use if you want

http://pub7.ezboard.com/fwrestlecarbetabetaboard

I was just hoping we could get a chat going it would have been much better, but we can work it out this way.

Ok Let me see if I have this right. Your trying to save the text file as something else and you've checked to see if there is a blank field or something like that. If you could post the the section of code you dealing with so I can see what your doing and then I can make a better recomandation.

It's kind of abstract right now and I'm not really sure what your try to do.

[Wrestlecar Webmaster]

[CODE]
If Text1 = "" Then
Form6.Visible = True
Beep

I WANT TO KILL THE COMMAND HERE!

End If
sTemp = App.Path
If Right(sTemp, 1) <> "\" Then
sTemp = sTemp & "\"
End If

</CODE>

[Wrestlecar Webmaster]

I cannot figure out how to incorperate this database thing into my program, as i dont want to save a database, but want to save a list of numbers and names and load them back up.

I want them to be able to load up theur choice, but this code only can save one. I am getting very confused.

Some of the modules are "way out of my league"

Ok we can do that

If Text1 = "" Then
  Form6.Visible = True
  Beep
  Exit sub ' leave the sub
End If

sTemp = App.Path
  If Right(sTemp, 1) <> "\" Then
      sTemp = sTemp & "\"
  End If

Try that

Well, if you would like I could see about rehashing your code to use the methods I have show you. If you would like to talk about this email me:

[email protected]

Roger

[Wrestlecar Webmaster]

Check your e-mail