Recent content by AmyAimee

Unfortunately yes, it has to be a word doc. Currently the code I wrote in post #1 works fine for fields from single form, but when it comes to fields from continuous form, I only can get the first record. Probably I should learn some Word VBA!

Well actually, I'm having the same idea in mind but It's not about the idea, it's about the syntax. How can I position the next record to be in a new line or a new row assuming that I'm populating a table in word.

That's okay vdanelia :D I mean the main form record that lost its focus, after moving from it to its related subform record. Could this be done?

Is there anyway to populate a word template from a continuous form? Currently, only one record from the continuous form appears in the word template, which is the the record that has the focus. I'm using this code .ActiveDocument.Bookmarks("BookmarkOne").Select .Selection.Text...

I have a main continuous form, with a continuous subform in its footer. Is there anyway to hightlight the last selected record in the main form when the subform gets the focus?

The year comes from the function parameter, I've amended it and it works perfectly! Finally, it's done! :D Thank you, vbaInet!

Lol, That's "Programming world", I have to get used to it. :o Now I'm trying to make use of that effective one line of code to generate the key in it's final format.

Well, honestly I'm trying to place it somewhere in my function, I don't know if it's going to work in the VBA editor though.

I already set the format of the [letter] field to '>' to get it in upper case

It works now :)

the number 64 appears

It works, the content of the [letter] field appears

It gives me the same error again

That's very promising! I can't wait to break the back of it, although it gives me an #Error when I test it. What could probably cause such an error?

Probably UCase(Chr(Asc(Nz(DMax("Letter", "T_M_AutoClaimNo", "GroupType = 'GC'"), 96)) + 1)) You can find my full function in post #1 here's it anyway Function NewClaimNo(pValue As String, noofClms As Integer, year As Integer) As String Dim db As Database Dim LSQL...