disable/remove File Tab

Using 2010

Is there a way of disabling the file tab on the Ribbon or alternatively the ‘Privacy Options’ button in the file tab as this allows the end user to change various settings. I’ve already disabled quite few start-up properties as follows:

	Dim iRetVal As Integer
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    iRetVal = AddStartupProperty("StartupShowDBWindow", dbBoolean, False)
    iRetVal = AddStartupProperty("AllowSpecialKeys", dbBoolean, False)
    iRetVal = AddStartupProperty("UseMDIMode", dbBoolean, 1)
    iRetVal = AddStartupProperty("Perform Name AutoCorrect", dbLong, 0)
    iRetVal = AddStartupProperty("Track Name AutoCorrect Info", dbLong, 0)
    iRetVal = AddStartupProperty("Auto Compact", dbLong, 0)
    iRetVal = AddStartupProperty("DesignWithData", dbLong, 0)
    iRetVal = AddStartupProperty("AllowDatasheetSchema", dbBoolean, False)
    iRetVal = AddStartupProperty("AllowFullMenus", dbBoolean, False)
    iRetVal = AddStartupProperty("AllowShortcutMenus", dbBoolean, False)
'    iRetVal = AddStartupProperty("AllowBuiltInToolbars", dbBoolean, False)
    iRetVal = AddStartupProperty("AllowToolbarChanges", dbBoolean, False)

I’ve created, or rather borrowed, (can’t recall who from otherwise I’d give the credit) a custom Ribbon which I’m using only in report print previews. I don’t use Ribbons anywhere else as all my forms are button driven. On report Open I’ve set DoCmd.ShowToolbar "Ribbon", acToolbarYes and OnClose DoCmd.ShowToolbar "Ribbon", acToolbarNo.

Even with the custom Ribbon it shows the file tab (see screenshot attached).

Custom Ribbon Xml as follows:





What else can I do get rid of 'Privacy Options' and properly bullet proof my app?


Post your answer or comment

comments powered by Disqus
How do I hide or disable the File tab in Access 2010 on my front ends?

The file tab being present allows end user to get into Privacy Options and Printing. Printing is okay if I could disable the Privacy Options for end users, then it wouldn't matter if they have access to the File Tab.

Possible very serious security issue!

Thanks for help!!

Using 2010 32 bit

I've created a custom ribbon that only opens on report print previews. However, I can't seem to get rid of the File tab on the ribbon which allows access to the backstage and the Privacy Options button which then allows access to various setting that I'd don't want users to change e.g. Current Database, Client Settings, Customize Ribbon and Quick Access Toolbar.

I've saved the database in accde format hoping this would prevent users with full Office installations from being able to make the changes, but this hasn't turned out to be the case. I know if I run the database using runtime it prevents access to these settings but most of my users have full installs. The /runtime switch does the trick as a temp measure but I'm pretty sure some of the more savvy and curious users will soon get itchy fingers.

Does any one know of a more secure way to prevent these changes, or even better still how to hide/disable the FILE tab altogether.


I just upgraded to Access 2010. I was able to solve all migrational issues, but my custom ribbon is showing two File tabs, one that I created and the default access file tab. Any idea on how to get rid of the default File tab or at least disable it?

Hi there,

When you open multiple forms and the forms are maximised (ie not popup etc), a row of "navigation" tabs appears along the top, immediately above the form header.

Now, somewhat annoyingly, and despite the fact that I use various command buttons to force users through my database as a set process of tasks (ie first add a customer, close the form back to the main menu form, then open sales form or whatever), the users have an annoying habit of switching between forms when it's (programmatically) innappropriate to do so. In effect, they leave a dirty record on one screen and expect it to be picked up in another screen.

So, to prevent this, I need a way of disabling or removing those tabs if possible.

Many Thanks,


Is it possible to disable the 'File' tab on the ribbon through code?

At the moment I have a login form set up and depending on the access rights of who logs in the whole ribbon will either show or not show.

	DoCmd.ShowToolbar "Ribbon", acToolbarNo

Whilst going through some testing it has become apparant that I do need a ribbon to show whilst in report previews but I do not want the users to be able to get into the 'File' tab.

I am about to start designing a custom ribbon but going on the code above I am assumig it would not show anyway? And I think the 'File' tab will always show even on a custom ribbon?

Any advice greatfully recieved.

many thanks

On my form I have a hidden tab page with various bits of information on it for the main form to refer to.
On clicking a button the hidden form is made visible and the others hidden to force the user to hit a "done" button when finished updating the info.
After reading the help files I became aware that you can change the look of the tab through code (tabs, buttons, none) but it doesn't show how! (Must be a microsoft product} I would like to remove the tab on the hidden tab when it is opened to give the appearance of a stand alone form.
I tried Me!TabCtl59.Style = acnone but came up with a compile error " variable not defined" (Me!TabCtl59 is the name of the Tab control)
Any help would be appreciated


i want to disable the "enter" or "tab" keys in a form, so that if the user press enter or tab on the last object in a form - i wont open a new record for him.

how can i do it?

I need to know how to remove the New Record button on the navigation bar at the bottom of a form (which is based on a table). Also, I would like to disable the New Record button on the toolbar when this form is activated. Thanks.

OK, this is what I've got

Quote: Private Sub ImportLevelOne_Click()
Dim FileName As String
Dim objFSO
Dim objFolder
Dim objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("serversharefolder")

For Each objFile In objFolder.Files

FileName = objFile.Path
DoCmd.TransferText acImportDelim, , "ImportedFiles", FileName, True
End Sub
It would work fine if the file was comma delimited, but it's tab. It's not recognising tab as a delimiter, so it's concatenates all the column names and looks for a column in the db called "fistnameSecondnameAddress1....."

Can you specify the type of delimiter?



I have created a form using Adobe Acrobat X Pro 10.0 and would like to know if there is a way from removing a tab stop from a button. I have a button to reset the form and I don't want to accidentally tab onto that button and clear the form. I want the user to clear the form by clicking on that button only.

Any suggestions on how to remove the tab stop?

Access 2010 database password removal
Hi can someone please help me to remove a password i have set on my access 2010 database.

I know the password but i am unable to find a way to remove it, i have done a search on the microsoft web site and i have got the following info.

Remove a passwordOpen the database in Exclusive mode. How do I open a database in Exclusive mode?On the File tab, click Open. In the Open dialog box, browse to the file that you want to open, and then select the file. Click the arrow next to the Open button, and then click Open Exclusive. The following figure depicts the menu. On the File tab, click Info, and then click Decrypt Database. The Unset Database Password dialog box appears.Type your password in the Password box, and then click OK. I have followed these instructions but On the File tab, click Info, and then click Decrypt Database, the Decrypt database option is not there.

So can someone help me please

I am creating a field which requires a lookup.
Using my school computers I have never come across this issue.
I recently updated my home computer with access 2010.
Upon creating a lookup I get to the part where it asks me to save the table.
I save the table and than this message appears:
"You can't modify the structure of table 'x', because it is already in use by another person or process."
The only option being to click "Ok"
That message is followed by:
"Microsoft Access couldn't launch the Lookup Wizard, or this wizard has been disabled. Rerun the MS Access or the MS office setup program, click add/remove, and select the Wizards check box. To reenable this wizard, click the file tab, and then click access options. Click add-ins and then in the manage list, click disable items and then click Go."

I've followed the instructions carefully yet problem persists. I have made sure no other files are open and closed all tables, deleted relationships and everything else I could think of.

Please help!

Hi there everyone,

I got the following Switchboard example somewhere else, and I do understand the code, up to the point where I want to make a change but can't

The Navi buttons on the right can be chosen by the user to display the different tabbed pages. However, I want sometimes that some of these buttons are disabled at runtime.

I cannot get the right syntax for doing this. I've tried Me.btnPage1.Enabled = False but that just does NOTHING!

Could someone please have a look at the attached DB (frmSwitchboard and the code behind it) and tell me where I am missing something? That would be great, thanks!


Hi all...

Anyone can help me how to disable the ALT+TAB key using VBA code in microsoft access? I can do it in VB6 using low-level keyboard hook WH_KEYBOARD_LL. But this code didn't run in access vba. Can we do that using VBA code?


I have written VBA code to read Excel data in cells into MS Access.

But, as part of the requirement, I have to do something more.

In the Excel Application:
Insert Tab | Text Group | Click on Object | Select Create From File tab => We can Insert external object, right!

I have to read Objects also attached to Excel file (like MS Word, Text File, PDF files). I am not understanding how to do this.

Can anybody please help me!

Hi guys

Here's a simple helpful function to create a datestamped batch file with a header, some tab delimited table data and a trailer.

I know there is room for improvement but hope it helps someone.



Dim filedate As String
Dim filename As String
Dim rst As Recordset

DoCmd.OpenQuery "G16 DATA TO AMBER", acNormal, acEdit ' CREATE TABLE WITH DATA IN IT

filedate = Year(Date) & Month(Date) & Day(Date) ' CREATE DATESTAMP FOR FILE
filename = "W:FINANCEAmber FinanceAMBER1" & filedate & ".TXT" ' CREATE FILENAME FOR FILE

Open filename For Output As #1 ' OVERWRITE / CREATE NEW FILE TO WRITE TO
Print #1, "HEADER" & vbTab & filedate & "01" & vbTab & Now() ' WRITE A HEADER TO THE FILE

Do Until rst.EOF
Print #1, rst(0) & vbTab & rst(1) 'WRITE FIELDS TO FILE - TAB DELIMITED



End Function

I'm trying to convert some code from early binding to late binding. I've muddled my way through changing outlook from application to object and it compiles (at least it seems to) but it didn't work right so I'm starting over.

I have two command buttons on a form. One coomand button is for one subset of the data and the other for another. Each button can be configured so that the dataset will be either an Excel spreadsheet or as tabdelimited text attachment.

The code is below, thanks for any help:

Function Processexport()

Dim stto As String
Dim stcc As String
Dim stsubject As String
Dim ststartDate As String
Dim stenddate As String
Dim stfrmt As String
Dim stconame As String
Dim stmessage As String
Dim stnoto As String
Dim stnodate As String
Dim stnoconame As String
Dim ststartdateatt As String
Dim stenddateatt As String
Dim stpermnumber As String

Dim mPathAndFile As String, mFileNumber As Integer
Dim R As Recordset, mFieldNum As Integer
Dim mOutputString As String
Dim booDelimitFields As Boolean
Dim booIncludeFieldnames As Boolean
Dim mFieldDeli As String
Dim pbooIncludeFieldnames As String

Dim oapp As Object
Dim oexcel As Object
'Dim osheet As Worksheet
Dim osheet As Object
'Dim rngToFormat As Range
Dim rngToFormat As Object

stconame = Nz([Forms]![export form]![coname], "none")
ststartDate = Nz([Forms]![export form]![begin], "none")
ststartdateatt = Replace(ststartDate, "/", "-")
stenddate = Nz([Forms]![export form]![end], "none")
stenddateatt = Replace(stenddate, "/", "-")
stpermnumber = Nz([Forms]![export form]![cmbpermnumber], "none")
stfrmt = DLookup("[PC_format]", "export format settings")
stsubject = stconame & " " & "Process Control Sampling Data" & " " & ststartDate & " " & "to" & " " & stenddate
stto = Nz([Forms]![export form]![to], "none")
stcc = Nz([Forms]![export form]![cc], "")
stmessage = Nz([Forms]![export form]![Message], "")
stnoto = "You forgot to enter a Send To email address"
stnodate = "You must enter a beginning and ending date for the data you wish to export"
stnoconame = "You forgot to enter a company name"

pbooIncludeFieldnames = "true"

If stto = "none" Then

MsgBox stnoto

Exit Function


If stconame = "none" Then

MsgBox stnoconame

Exit Function


If ststartDate = "none" Then

MsgBox stnodate

Exit Function


If stendate = "none" Then

MsgBox stnodate

Exit Function


If stfrmt = "acFormatXLS" Then

'DoCmd.SendObject acSendQuery, "process export qry", acFormatXLS, [stto], [stcc], , stconame & " " & "Process Control Sampling Data" & " " & ststartDate & " " & "to" & " " & stenddate, stmessage, False

pFilename = stconame & " P" & stpermnumber & " " & ststartdateatt & " to " & stenddateatt & " Process Control Data.xls"

DoCmd.OutputTo acOutputQuery, "process export qry", acFormatXLS, CurrentProject.Path & "" & pFilename, 0

mPathAndFile = CurrentProject.Path & "" & pFilename

Set oapp = CreateObject("Excel.Application")
Set oexcel = oapp.Workbooks.Open(Filename:=mPathAndFile)
Set osheet = oexcel.Worksheets("process export qry")

oapp.Visible = False
oapp.DisplayAlerts = False

With oexcel.Worksheets("process export qry").Columns


End With

With oexcel.Worksheets("process export qry").PageSetup
.Zoom = False
.FitToPagesTall = 1000
.FitToPagesWide = 1
.Orientation = xlLandscape
.PrintGridlines = False
.PrintTitleRows = "A1:S1"
'.LeftHeader =
.CenterHeader = "&14" & pFilename & "&10"
'.RightHeader =
.LeftFooter = "Report Created &D &T"
'.CenterFooter =
.RightFooter = "Page &P of &N"

.LeftMargin = oapp.InchesToPoints(0.25)
.RightMargin = oapp.InchesToPoints(0.25)
.TopMargin = oapp.InchesToPoints(0.75)
.BottomMargin = oapp.InchesToPoints(0.5)
.HeaderMargin = oapp.InchesToPoints(0.5)
.FooterMargin = oapp.InchesToPoints(0.25)

End With

With osheet.Range("A1:S1")
Set rngToFormat = osheet.Range(oexcel.Worksheets("process export qry").Range("S1"), .Cells(osheet.Rows.Count, "C").end(xlUp).Offset(0, -2)) '

End With

With rngToFormat.Cells.Select

'No Borders

'oapp.Selection.Interior.ColorIndex = 2
'oapp.Selection.Interior.Pattern = xlSolid
'oapp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
'oapp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
'oapp.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
'oapp.Selection.Borders(xlEdgeTop).LineStyle = xlNone
'oapp.Selection.Borders(xlEdgeBottom).LineStyle = xlNone
'oapp.Selection.Borders(xlEdgeRight).LineStyle = xlNone
'oapp.Selection.Borders(xlInsideVertical).LineStyl e = xlNone
'oapp.Selection.Borders(xlInsideHorizontal).LineSt yle = xlNone
'oapp.Selection.Interior.ColorIndex = xlNone

'End With

'With borders

oapp.Selection.Interior.ColorIndex = 2
oapp.Selection.Interior.Pattern = xlSolid

oapp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
oapp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With oapp.Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With oapp.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With oapp.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With oapp.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With oapp.Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With oapp.Selection.Borders(xlInsideHorizontal)
.LineStyle = xlNone
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

End With

With osheet.Range("A1:S1")
.Font.ColorIndex = 1
.Font.Bold = True
.Interior.ColorIndex = 15
.Interior.Pattern = xlSolid
End With

Set osheet = Nothing 'disconnect from the Worksheet
oexcel.Close SaveChanges:=True 'Save (and disconnect from) the Workbook

Set oexcel = Nothing
oapp.Quit 'Close (and disconnect from) Excel
Set oapp = Nothing

Set outApp = CreateObject("Outlook.Application")
Set outmsg = outApp.CreateItem(olMailItem)

If stcc = "" Then

With outmsg

.Recipients.Add (stto)
.subject = stsubject
.ReadReceiptRequested = True
.body = stmessage
.Importance = olImportanceHigh
.Attachments.Add (mPathAndFile)

End With


With outmsg

.Recipients.Add(stto).Type = 1
.Recipients.Add(stcc).Type = 2
.subject = stsubject
.ReadReceiptRequested = True
.body = stmessage
.Importance = olImportanceHigh
.Attachments.Add (mPathAndFile)

End With

End If


'written by Crystal

'NEEDS reference to Microsoft DAO Library

' ExportDelimitedText "QueryName", "c:pathfilename.csv"
' testexport("process export qry",mPathAndFile)
'set up error handler

On Error GoTo ExportDelimitedText_error

pFilename = stconame & " P" & stpermnumber & " " & ststartdateatt & " to " & stenddateatt & " Process Control Data.txt"

precordsetname = "SELECT Results.[Company Name], Samples.[Permit Number], Results.[Outfall Number], Results.[Collection Date], Samples.CollectionEndDate, Results.Sampler, Results.[Sample Type], Results.[Date Lab Received], Results.[Analysis Date], Results.[Method ID], Results.[Method Description], Results.Analyte, Results.Result, Results.Units, Results.[Lab Sample ID], Results.[Lab Name], Results.[Compliance Sample]" & Chr(13) _
& "FROM (Samples RIGHT JOIN Results ON (Samples.[Compliance Sample] = Results.[Compliance Sample]) AND (Samples.Sampler = Results.Sampler) AND (Samples.[Collection Date] = Results.[Collection Date]) AND (Samples.[Outfall Number] = Results.[Outfall Number])) LEFT JOIN [Results and Limits] ON Results.ID = [Results and Limits].ID" & Chr(13) _
& "GROUP BY Results.[Company Name], Samples.[Permit Number], Results.[Outfall Number], Results.[Collection Date], Samples.CollectionEndDate, Results.Sampler, Results.[Sample Type], Results.[Date Lab Received], Results.[Analysis Date], Results.[Method ID], Results.[Method Description], Results.Analyte, Results.Result, Results.Units, Results.[Lab Sample ID], Results.[Lab Name], Results.[Compliance Sample]" & Chr(13) _
& "HAVING (((Results.[Collection Date]) Between #" & [Forms]![export form]![begin] & "# And #" & [Forms]![export form]![end] & "#) AND ((Results.Sampler)=""IU"") AND ((Results.[Compliance Sample])=No)) ORDER BY Results.[Collection Date];"

booDelimitFields = Nz(pbooDelimitFields, False)
booIncludeFieldnames = Nz(pbooIncludeFieldnames, False)

'make the delimiter a TAB character unless specified
If Nz(pFieldDeli, "") = "" Then
mFieldDeli = Chr(9)
mFieldDeli = pFieldDeli
End If

'if there is no path specfied, put file in current directory
If InStr(pFilename, "") = 0 Then
mPathAndFile = CurrentProject.Path
mPathAndFile = ""
End If

mPathAndFile = mPathAndFile & "" & pFilename

'if there is no extension specified, add TXT
If InStr(pFilename, ".") = 0 Then
mPathAndFile = mPathAndFile & ".txt"
End If

'get a handle
mFileNumber = FreeFile

'close file handle if it is open
'ignore any error from trying to close it if it is not
On Error Resume Next
Close #mFileNumber
On Error GoTo ExportDelimitedText_error

'delete the output file if already exists
If Dir(mPathAndFile) "" Then
Kill mPathAndFile
End If

'open file for output
Open mPathAndFile For Output As #mFileNumber

'open the recordset
Set R = CurrentDb.OpenRecordset(precordsetname)

'write fieldnames if specified
If booIncludeFieldnames Then
mOutputString = ""
For mFieldNum = 0 To R.Fields.Count - 1
If booDelimitFields Then
mOutputString = mOutputString & """" _
& R.Fields(mFieldNum) & """" & mFieldDeli
mOutputString = mOutputString _
& R.Fields(mFieldNum).name & mFieldDeli
End If
Next mFieldNum

'remove last delimiter
mOutputString = Left(mOutputString, Len(mOutputString) - Len(mFieldDeli))

'write a line to the file
Print #mFileNumber, mOutputString
End If

'loop through all records
Do While Not R.EOF()

'tell OS (Operating System) to pay attention to things
mOutputString = ""
For mFieldNum = 0 To R.Fields.Count - 1
If booDelimitFields Then
Select Case R.Fields(mFieldNum).Type
Case 10, 12
mOutputString = mOutputString & """" _
& R.Fields(mFieldNum) & """" & mFieldDeli
Case 8
mOutputString = mOutputString & "#" _
& R.Fields(mFieldNum) & "#" & mFieldDeli
Case Else
mOutputString = mOutputString _
& R.Fields(mFieldNum) & mFieldDeli
End Select
mOutputString = mOutputString & R.Fields(mFieldNum) & mFieldDeli
End If

Next mFieldNum

'remove last TAB
mOutputString = Left(mOutputString, Len(mOutputString) - Len(mFieldDeli))

'write a line to the file
Print #mFileNumber, mOutputString

'move to next record

'close the file
Close #mFileNumber

'close the recordset

'release object variables
Set R = Nothing

'Dim outmsg As Object
'Dim Item As Outlook.MailItem

'Dim objMe As Object

Set outApp = CreateObject("Outlook.Application")
Set outmsg = outApp.CreateItem(olMailItem)

If stcc = "" Then

With outmsg

.Recipients.Add (stto)
.subject = stsubject
.ReadReceiptRequested = True
.body = stmessage
.Importance = olImportanceHigh
.Attachments.Add (mPathAndFile)

End With


With outmsg

.Recipients.Add(stto).Type = 1
.Recipients.Add(stcc).Type = 2
.subject = stsubject
.ReadReceiptRequested = True
.body = stmessage
.Importance = olImportanceHigh
.Attachments.Add (mPathAndFile)

End With

End If

Kill mPathAndFile

Exit Function

'MsgBox Err.Description, , "ERROR " & Err.Number & " ExportDelimitedText"
MsgBox Err.Description, , "ERROR " & Err.Number & " testxport"
'press F8 to step through code and correct problem

End If
End If
End If
End If
End If

End Function

I have used this code to disable the File menu cmd/controls in access 2003.

Application.CommandBars("FILE").Controls("NEW...") .Enabled = False
Application.CommandBars("FILE").Controls("EXIT").E nabled = False

In file menu the cmd/control before exit cmd/control shows the path of the .mdb file opened. tell me how to hide/disable this.

As i dont know how to refer this cmd/control. I can hide other cmd/controls of file menu as i know i can refer them as shown in code given above.

I have been able to lock down my database by setting the database to open to a form that has a custom ribbon assigned to it that I have disabled the Options button on the File tab (as well as all the other tools I don't want them to get to).

I have linked SQL tables in the database, so as the database opens it first presents the SQL login dialog box. If a user simply clicks the X in the far upper right corner to close it, the database opens with the default ribbon that allows the user into all the tools I want to keep them out of.

Is there any way to put something in to tell the system to close the database if the connection fails? Any other ideas?

Hello again, all. Thanks for the help with the cascading combo box, but I have another newb question(s) and request for advice. My situation is as such:

In one form (MainOrder) I have fields on the left for data to be entered and fields on the right to display information (PubContactInfo) relative to a selection from a list (Publisher). I do not want the data on the right to be editable in this form because the users are used to tabbing through everything and they are likely to accidentally edit the Contact Info. (I have a button that opens up another form with which users can edit entries.)

1) Is there a way to take fields OUT of the tab-order so that they're skipped?


2) Is there a way to lock the fields so that they cannot be edited in that form only?

I am working with a database that has very complex permission requirements. These are implemented by applying custon filters based on the user's role in the organisation. The database was constructed in Access 2003 but there is a mixture of Access 2003 and Access 2007 on the user's machines. For reasons on the organisation network, remote users download a copy of the database onto their local machine. I bypassed the Access 2003 toggle that switches off the filter by applying a custom menu bar to the forms where the permission problems apply. In Access 2007 I have similarly removed the "Toggle Filter" button on the ribbon by applying a custom ribbon. But there is still a toggle for the filters beside the navigation buttons which allows any user to bypass their permissions. Is there any way to disable/remove this as well? I have found nothing (except to remove the navigation buttons from the form which is no solution) ANY help will be MUCH appreciated

I have main from linked with subform ( relation one to many)
i want command if subfrom records.value = "inprogress" then

The subform can contant many records so if any records value = "inprogrees"

i want disabled one filed in mainform

I have a tab control which has many pages, most of which have subforms on. I have removed the tabs and control the page-change by using command buttons on the first page. The source objects of the subforms are set and requeried as part of a Select Case statement within the on_change event of the tab control. As this takes a little while I am trying to force the hourglass using DoCmd.Hourglass True/False.

My problem is that I simply can NOT get it to work. I have tried putting the Hourglass code on the command buttons that change the page, within the procedure I call to change the page, and even in the on_change event of the tab control. Nothing.

This isn't of high importance, but is still VERY annoying!!

Any assistance would be greatly appreciated.



PS: My first post - so Hi to everybody on the board.

I have had a look and searched for the answer to this question and have not found it, so sorry if it has been previously posted.

I have can insert images into a form and print out on a report that i have got working, my main problem is that as well as the image i get the file name and extension shown as well as the image. also the image is not full size only a thumb nail version is shown.

Can someone please help, as this is driving me nuts.



Not finding an answer? Try a Google search.