Search results

You could change FieldUser to AccessLevel. So instead of using the user name to restrict, each user has an access level. Forms are restricted by access level. Form1, From2 and Form3 require access level 2 Form4 and Form5 require access level 6

I just gave the basic layout of the tables and their relationships. I didn't go into how to link them. What I was meaning is that all the households are stored in Table1. Then in Table2 you have a field that links the person to the household. A list of relationship types are stored in Table3...

For each record in Tables 2-4 have a Household field that is linked to Table1 (i.e. FamilyName). That way you would be able to extract any record from these tables based on FamilyName from Table1. But you could simplify it a bit more: Table1 IDHousehold (unique number) FamilyName Address Phone...

You want to set the width in form properties, but the height in detail properties (remember your headers and footers height contribute to the height). That is the way I do it. example: Form Width = 26cm (a nice size to fit a 4:3 screen) Header Height 1cm (two rows of 0.5cm fields @ Arial 11pt)...

An option you could use is MoveSize to position forms on the screen. Put the "Menu" on the side and start the forms to the right. That way, if a form is wider than the next, then it still displays correctly without having to go and resize all your forms. Have a background form on which the...

Table1 - Customers Table2 - Products Table3 - Product costs Table4 - Purchase orders Table4 does all the work. PurchaseOrderNumber PODate POCustomer (from Table1) POProduct (from Table2) POProductCost (from Table3)

Have a hidden field on the menu that has the ID of the user. When the user clicks on the button to open the form: With CodeContextObject If (.FieldUser = 1) Then DoCmd.OpenForm "Form1", acNormal, "", "", , acNormal Else msgbox "You do not have...

Why not just spilt the db. Forms, Queries and Reports in FE Tables in BE

Here is a procedure you could use. In the form I presume you have a date field. Put the following code in the date field to generate a new EventNo. 'Takes the last 2 digits of the year in the EventDate field Year = Right((DatePart("yyyy", [EventDate])), 2) 'Finds the last event number for the...

You may also look at dulicate record. DoCmd.GoToRecord , , acLast DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 DoCmd.GoToControl "PONumber "...

Right(DatePart("yyyy",date()),2) or Format$(Date(),"yy")

Open form (or sub form) in design view. Select all the fields you want to lock. Right click a field and select Properties Go to the Data tab. Enabled = No Locked = Yes

datepart("ww",[Date1],0,0) First 0 = Day week starts on (0=system,1=Sun, 2= Mon,.....) Second 0 = First week of the year (0=system, 1= week in which January 1, 2=first week that has at least four days , 3=first full week of the year)

When writing IF statments I try doing the following to keep things orginised: IIf(A=B,c,d) A=[Amount] B=20 c="Twenty" d = iif(B>E,f,g) E=20 f="More than twenty" g="Less than twenty" Then you start putting it together IIf(A=B,c,(iif(A>E,f,g))) IIf([Amount]=20,"Twenty",(iif([Amount]>20,"More...

Because Access needs #USdate# and most of the world doesn't use the US date format, I always try to use dates as [Date1] to input dates into queries and other formulars. Then Access takes the date format that is used by the computer regional settings and converts it to US format. Don't know...

You are refering to 150000 as text and I guess it should be a number. Remove the " " (highlighted in red) and it works. Wrong IIf([contracttype]="GS" And [Award Amt]<"150000","No eval") Right IIf([contracttype]="GS" And [Award Amt]<150000,"No eval")

You obviously live in a city. A large percentage of us do not live anywhere near a large town (see http://www.nationmaster.com/graph/peo_per_liv_in_rur_are-people-percentage-living-rural-areas), let alone a city or even a contry with some kind of decent telcoms infrastructure. 76 out of 193...

Create 3 identical tables Create a Make Table query using Table1 to Table4 Create 2 Append Table queries from Table2 and Table3 to Table4 Run first query, then second and third queries. Table4 now has all three tables in one. Table4 is a temp table. Any edits to data are not appended to the...

Convert the DB to 2010. Distribute the DB with Runtimes. Users only need Runtimes installed not Access, so if those users only have 2003 but have Runtimes installed, they will still be able to use a 2010 DB.

If you put this code in the Close Button on form WithDrawSpecial that is what it does. Private Sub cmdClose_Click() Dim Msg, Style, Title, Response, MyString Dim Cancel As String 'Check and see if either fields are blank. If ((Nz(Me.WithDrawAmount, 0) = 0) Or (Nz(Me.Description, 0) = 0))...