Here is my code
On Error Goto ErrHanler
'Code in here, if error happens the ErrHandler will take over.
ExSub:
Exit Sub
ErrHandler:
msgbox "Error Number: " & err.number & " - " & err.discription, vbInformation, "Opps: ERROR!"
Goto ExSub
End Sub
Thanks guys.
And thanks Crobg for the hint I needed to work this one out.
You can define each column width on open. Which is what I have done.
Private Sub Form_Open(Cancel As Integer)
Me.lngsubID.ColumnWidth = 0
Me.fklngMain.ColumnWidth = 0
Me.strsubtext1.ColumnWidth = 3000...
Hey guys.
Well this is a new on for me, the idea is this.
By using a datasheet view in a subform and a custom popup menu I can allow users to filter down to the records they wish to view, in whatever order they want, and then allow them to open/edit said records with a Double-Click Event...
In your code you have these two lines.
stDocName = "SupplierForm1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Just add this after them.
DoCmd.Close acForm, Me.Name
That should close the open form just after your new form has opened and taken focus.
Hope this is some help. :-)
Ok I see.
The App that I have just finished should be ok. It’s for a single user and is only Six tables to cover inward and outgoing billing.
I just started to use them because it was easier as I built the tables to go "Click Lookup" and then let the form wiz do the rest.
Thanks for...
Just have to say how much I love this site.
I don't have anything to add to your post ponetguy2, the reply by DSummZZZ has helped me so much.
Thanks :-)
Underling
Be ever vigilant, the stupid are everywhere.
I have just finished reading the below text at http://www.mvps.org/access/lookupfields.htm
I also am just finishing off an application that I have been working on for the past month that has about seven look up combo boxes.
I haven't run into any problems so far but this has me worried.
I think...
I can so see how this is going to work, that its driving me nuts that it will not work right now.
I have had a bit of a look at append queries and how they work so I set up a new table call tblUpdates that hold the same field types as those in the tblPayment.
I then wrote a new query...
Hold everything.
The code runs! Now I just don't know if it will update.
I can see I have done somthing wrong with the way that I have set up the query. I will re-create it and see how I get on.
Well that seems to work. That and the fact I cleaned up two typos in the code.
But now when I try to run the form, I just get the “hour glass” and it never loads.
So unsure what to do now.
So take it form the top. The append query looks like this…
INSERT INTO tblPayment ( TraderKey, Amount...
Ok, I got so far.
All was going well, I now have the apppend query set up and I can see how this is going to work.
Next moved on to adding the code to the OnLoad event list in the form properties.
I set up the Private Sub.. as below.
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As...
Thanks for that 'mage.
I have yet to try this out as I have been moved on to more pressing yet mundane work.
I will let you know how I get on.
PS: Like the custom sig'
The fields are from a form that is updated when a bill arrives. And the main information form the bill; who its form, how much they we owe, when it arrived and what its for; is recorded in the appropriate fields.
[Trader][Amount][Date][Description]
This then generates a report that lets them...
I have been asked to see if I can automate some of the monthly out goings for our outgoings report each month.
This is a report generated off a query of all the bills that have come in over the month, and need paying.
What I have been asked is can some of them, lets say the rent on the building...
I know that somewhere out there the has to be a bit of code to kill off Sundays.
I am runing Access 2000.
I run the old =DateDff"[First Date][Second Date], and I get the number of days betten the two dates.
But we don't work weekends, so the answer to "number of days between...
Ok this is a realy slopy way of getting around the problem if you can't be assed trying to fix the join.
Take the "between" paramete out of the qurey and write another query of the first, adding back in the "between" parameters.
Then run the Report off the second query...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.