Search results

Public Sub ResetDatabase() Dim acApp As Access.Application Dim i As Long Set acApp = New Access.Application acApp.OpenCurrentDatabase "c:\temp\mydb.mdb" acApp.Visible = true 'show database windows acApp.DoCmd.SelectObject acTable, , True 'show all...

Easy way? Check to see if your data exists. If not, insert spaces into the label so that you have enough indentations. Oh, and for this scenario, don't trim the data

As Lagbolt suggested, 1. go to your form property 2. Click on Event tab 3. Click on On Current event (...) 4. Choose Builder -> Code Builder Then enter something like Me.AcctNo.DefaultValue = "=" & Chr(34) & Me.AcctNo & Chr(34)

Can you just create a STOREACCT# button to save the Acct# to a variable and load it back, or when click on the button, set the acct# default value to that particular acct#?

Hi Brum Rich, I am doing something very similar to that as well, but I run into the same issue. Let me know if you have a solution to this issue. I like to know as well. Thanks. EZ

You should create a Group Header/Footer that check to see which company is loading to the report then use that information to get the company logo.

How different is it to have this run on a report than a chart? I guess the correct question is what kind of chart are you try to create? If your query already returns the data above, it should be easy to just run a report wizard to create a report based on your query.

This might be helpfull. http://www.lebans.com/reporttopdf.htm

It appears you have different texboxes for the Address and City/State? If that's the case, can you just combined those two into one either in your query or right on the report using those textboxes. If you don't, the Occupancy Check data will push it to the next line as you have in your report...

FollowHyperlink ListBox1.Column(3, ListBox1.ListIndex)

If you can select each order on the form, bascially you know what the Order Number is. What you need is probably something simple like a button to send an update SQL to the Order table to update that particular order.

perhaps, select tablename.[1000] from tablename where pk = 500

You probably have the answer by now, but just in case. I am assuming that when user click on Find, the data for the sub form is modified/filtered. I haven't test, but try this. Form_frmSubForm1.Requery Form_frmSubForm1.Refresh

Not exactly sure if this will do the trick for you, but in the code below, frmMain contains frmDateOne and frmDateTwo as subform Add the BeforeUpdate or AfterUpdate event to frmDateOne.txtDateOne Private Sub txtDateOne_AfterUpdate() Form_frmDateTwo.txtDateTwo = Me.txtDateOne End Sub...

First of all, you already know where (folder path) the images are stored. Second, you already know that all images are named after their unique part number. Third, check to see if all images are JPG, TIF, etc... Create an image object on the form. e.g Img1 Properties: Picture = (none) Picture...

Just a suggestion. - If I were you, I would probably set those fields as unbounded objects. - Show all the fields on the form to the user at the beginning. - Put a little start (*) next to a field to indicate it is required. - Provide a SAVE button so user can save the data or something. If...

Since the main form and sub form some how related to each other, would it be easier to just write a query to update the Report number on the main form's data source [table] if there's a report number found on the sub form's data source [table]. Let's say main form's data is from tbl1 and...

Another way. 1. Click on Forms from the database window 2. Double click on "Create form in Design view". A new form should be created on your screen. 3. Right click on the Top of the form and select PROPERTIES 4. Click on Data tab 5. Click on the RECORD SOURCE and you should see a...

Response to your other threads. http://www.access-programmers.co.uk/forums/showthread.php?t=161325

ColinEssex is right. VBA is perhaps the easiest way to check username/password. Private Sub CommandButton1_Click() If IsValidUser() = True Then OpenNextForm Else MsgBox "Invalid Username/Password" End If End Sub Private Function IsValidUser() as...