Search results

Thanks everyone. I do prefer to use two separate BE files, as I would really like to protect the main copy. The steps are: 1. Normal user logs on, and at logoff, a copy of the BE is copied to a different folder. (Also part of a backup routine) 2. when user "training" logs on I would...

I would like to add a "training" feature to my project. My project is a Access 2016 split database on one computer with only one user logged on at any one time. I thought of adding a user "training" which when logged on will take a snap-shot of the back-end, and restore it after logoff. I...

You're right, thats why I changed to pr2-eugen code in post #2. It works great. Cheers, Brodie

Hmmm.... I cannot fault your first suggestion (post #2). I had forgotten about BODMAS (brackets before addition/subtraction). My IIF statement takes care of the Sunday situation where the next monday is the next day. I then use your code in the section half which takes care of all the other...

Seems to work OK for me - haven't tested it on sunday yet. BTW I'm using it in an update query. Cheers, Brodie

That did it. Obviously 'rithmatic is not my strong point. Curious to know why that worked but the other didn't. Cheers,

Today is 13 May and this code is supposed to return the date of next Monday (19 May) IIf(Weekday(Date())=1,Date()+1,Date()-(Weekday(Date())+9)) but it returns 1/5/2014 (Thursday May 1), when "Date" = 13/5/2014 (Tuesday May 13) My begin week is Sunday (1) , Any ideas? Cheers...

Here is the full code : Private Sub Form_Load() Dim rs As Recordset Dim varTotal As Long Set rs = CurrentDb.OpenRecordset("select * from tblpatient ", dbOpenDynaset) varTotal = RecordsetClone.RecordCount If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Do While Not rs.EOF If (Me.ScanFlag) = "-1"...

Here is the code: Private Sub Form_Load() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("select * from tblpatient, dbOpenDynaset) If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Do While Not rs.EOF ' do stuff...

Got It! 1. The = "" should be = " " (with a space) 2. It only works in Print Preview or when printed . I was testing in Report View, therefore not seeing the results of the code, and driving me nuts! Many thanks to JHB and TheBaz.

JHB and TheBaz. Sorry guys but none of those suggestions worked . How can I test to see if the code is actually being evaluated? Cheers, Brodie STOP THE PRESS! I think I found where my problem lies. This report is a series of letters i.e a mail merge using Access Reports only. So...

I am trying to hide a text box based on the contents of another text box in the same report. Here is the code: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If IsEmpty(Me.DocFullName) Then Me.Text55.Visible = False Else Me.Text55.Visible = True End If End Sub i.e. I want...

Solved it!.. I took out the [TableName] and left only the [FieldName] and it works!

1. already tried that - still NOGO 2. the textbox name is REG2012 and is controlled by the 12FilePath field in same table (the hyperlink). The textbox correctly shows the data in 12FilePath, but refuses to change colour according to the conditional formatting rule. All I am trying to do is get...

I have a text box controlled by a hyperlink field in table Patient. I would like the text box to change colour when encountering an "N" in field REG2012 of that table. I have used Expression is [Patient]![REG2012]="N" but did not work. Any assistance will be greatly appreciated. Cheers...

I'm from the land downunder. I have been dabbling in programming for many years, going back to the early Fortran days. Recently I have taken on managing and developing a few db's for some clients. While researching problems, I have found many answers here in this forum. So here I am. With a...