Search results

Have you tried to uncheck dao 3.6 and select dao 3.51 object library instead?

Here is an example that I picked up on this forum some time ago, which is not access's built in security. Andy

This might help. Scroll down when you open the link, halfway down the page there is code for creating a relationship. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnovba00/html/ExceltoAccess.asp Andy

Hi Mile, Thanks for that. I already tried the afterupdate but what i did by mistake was use 1,2,3 etc instead of the value in the list in the selct case statement. For example: select case me.combo case 1 call function1 case 2 call function2 and it should have been select case me.combo...

Hi All, Just a quick one! I have a combo ona form which is unbound, with a list of functions. When the user selects an entry from the list, as soon as the selection as been made I want to run the code from a module. Just don't know what event or if it is possible. I trying to do this without...

Can you post the code that applies to the error? Andy

Try This: If IsNull(Form_ICL.ICL_5) Then Form_ICL.ICL_5 = "" End If Andy

Glad you got it sorted. Andy

You could just then change it to: if err.number = 3021 then me.lastinventorydate = "No Data" msgbox "No Stock Take has taken place",vbinformation,"Message" end if or add into the code something like : if rs.recordcount = 0 then me.lastinventorydate = "No Data" msgbox "No Stock Take has...

Haven't looked at your code in detail but you could do something like: if err.number = 3021 then msgbox "No Current records!" & "Exiting Function",vbcritical,"Error" end if Andy

Ok I haven't included the pat test yet or the search options, but does this like some similair as to your requirements. Download Here Edit: Now changed db to include the above. Knocked it together any problems and your views please if this applies to your task, let me know. Andy

I know this is stating the obvious but have you clicked the save button once the code has been typed in the VB window. Post your code it might help solve your post. Andy

Hi, without actually looking at the forms, I would suggest that there is no need to open all of your forms at once and hide them as you can open them at the specific record at runtime by using the following code: Dim stDocName As String Dim stLinkCriteria As String stDocName =...

Paul, If possible can you write down what you want the database to do and what data you want to store. I am assuming there are jobs that need completing in the workshop. I am suggesting at the moment with no info about your task, that the following tables be created: tblDepartment tblUser...

Glad to Help. Andy

Sorry if I have misread your post but why are you storing data in multiple tables or are you pulling the data through queries which the forms are based? If so why would you pull the data that matches the combo selection then show all of the forms that apply. Why not create a query that...

Hi Chris, Welcome to the forum! Set your field properties Enabled to No Then on your cmd button put the following: me.fieldname.enabled = true Andy

Try this: Put this code on the ONCURRENT Event If IsNull(yourfield) Or IsNull(yourfield) Or IsNull(yourfield) Then Me.Command6.Enabled = False Else Me.Command6.Enabled = True End If Then put this on the first textbox etc on the ONCHANGE Event: If IsNull(yourfield) Then Me.Command6.Enabled =...

Hi Orbic, Try this: Picture in Report Sample DB Andy

if you use a command button you can add the following code to the click event of the button. Docmd.setwarnings(False) ' Hides the msgbox's Docmd.openquery "yourqueryname" ' opens your query docmd.setwarnings(True) ' Sets access warnings back to default HTH Andy