Search results

could you send me the code?

I have created a form called 'Password' with 2 boxes, user name and password. The user enters these and behind the 'OK' button i have set code along the lines... if username is X and password is Y, then open main form, else if user name is Z and password is W, then open staff form. the staff...

I have a database which, when opened, the user is promted to enter a username and password. depending on these details, forms are made available to a user on different levels, ie. manager enters u/name and p/w and gains access to the whole db, but user enters u/name and p/word and is only...

thankyou!

this is a form, with 3 command buttons on it. this is the code behind the command buttons. the first opens the form "Part 3 financial details main form", the second opens "Payments & Receipts Main Form" as input only, and the third opens the form "Assessment Navigation Form" as read only. ...

sorry acFormAdd

is it acAddOnly?

thankyou. what about 'input only' (write only)

Based on the username and password entered, i want the Payments & Receipts form to open as a read only form. this is what i have so far. If Me.txtUserName = "Username" And Me.txtPassword = "Password" Then DoCmd.OpenForm "Payments & Receipts Main Form"

Got it! this works DoCmd.OpenForm "Mandays", , , "[Staff Name]='name'" thanks for your help. anita

Sorry i am being confusing... i) Code is on form 'Mandays', OnOpen. I have a form called Security, which the user puts in username and password. they click 'ok' and providing the names match, the form 'Mandays' opens, but only at the records of the 'username'. ii) the second form is called...

this is what i've got, but i keep getting an error re: txtUserName Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_Form_Open DoCmd.OpenForm "Mandays" Where [StaffName] = "'" & [Forms]![Security3]![txtUserName] & "'" Exit_Form_Open: Err_Form_Open: MsgBox...

Private Sub Form_Open(Cancel As Integer) Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Staff Name] = '" & [Forms]![Security2]![txtUserName] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub this is what i've got so far. The 'Security2' is the form i...

Could anyone help me. i am try to do a similar thing, but when the user puts in their u/name and p/word, i want them only to see their own records and nobody elses. I have code that allows them to jump to the start of their records (using 'staff name' as an identifier) but i would like their...

OK, so can i clarify what this does... If i put this code on the 'on open' of my main form (called 'Mandays'), another form will open when i open 'Mandays' that prompts the user for a username and password, and 'Mandays' will open if these are correct? Maybe i'm wrong. If i tell you what i'm...

I have created a switchboard, however i do not want every user to view each of the forms/reports on it, so what i want is something, that when i select a particular form from the switchboard, the user is asked to enter a password, and if they don't know that password, they can't view the form. i...

I got it to work. I moved the bracket after the '-1' to in front of the '-1'. =IIf(DatePart("m",[txt_D_PAID])>3,DatePart("yyyy",[txt_D_PAID]) & "/" & Right(DatePart("yyyy",[txt_D_PAID])+1,2),DatePart("yyyy",[txt_D_PAID]-1) & "/" & Right(DatePart("yyyy",[txt_D_PAID]),2)) The solution is...

=IIf(DatePart("m",[txt_D_PAID])>3,DatePart("yyyy",[txt_D_PAID]) & "/" & Right(DatePart("yyyy",[txt_D_PAID])+1,2),DatePart("yyyy",[txt_D_PAID]-1) & "/" & Right(DatePart("yyyy",[txt_D_PAID]),2)) The above works in so far that it returns eg. 1994/95 if the month is greater than 3, however when the...

This is as close i have got to what i want so far. thanks. however, the return isn't quite what i am after... when the date is 19/04/1994, the return is 1994/4. this gives me the correct year in the first part, but the second part (4) is the month. what i need it to return is 1994/95 (in that...

Unfortunately this didn't work. i'll keep trying, and if anyone else can help me...