Search results

  1. L

    reversing a switchboard.

    I have a database which I have developed several years ago and which has been servicing my office faithfully for so long. It has a form called 'switchboard' which was the first form that the database enters on opening. Now I need to change this so that I replace it with a logon form. I was...
  2. L

    Security issue.

    Many thanks for your reply. Excuse my lack of knowledge but could you explain what CRUD refers to and could you pass my some reference on how to limit user access. I gather that Access 2007 is much less secure than the 2003. Thanks.
  3. L

    Security issue.

    I would like to put my database on a server to be accessed from three different offices; namely administration, reception and a nursing station. The database is an Microsoft Access 2007 db and is split into fe and be. My question and difficulty is on security. I plan to have slightly different...
  4. L

    Subform to disappear depending on whether it contains data.

    I like both replies. I have tried to set can grow and can shrink properties to the subform to yes, but the form still show with no data. The DLookUp option is more promising and I will try it. Could you explain the function to me and how it works please. LouisB
  5. L

    Subform to disappear depending on whether it contains data.

    How do i set a subform to appear/ disappear on whether the subform contains/ does not contain records ?
  6. L

    Rowsource property of a subform via vba

    Many thanks. The oversight I was falling prey to was a missing s. The real name of the subform is; FrmServicesSub. The code is working well now. The line now reads: Forms.FrmServices.FrmServicesSub.Form.RecordSource = sors Changing the . to a ! did not work as it was producing...
  7. L

    Rowsource property of a subform via vba

    Many thanks for your reply and help. However I changed the code to; Forms.FrmServices.FrmServicesub.Form.RecordSource = sors and still I am getting the same error. Is there any other oversight I am falling prey to ? LouisB
  8. L

    Rowsource property of a subform via vba

    I am trying to insert the rowsource property of a subform using vba, so that I can alter this accordingly. The code goes on like this; Private Sub cmdBilling_Click() Dim sors As String sors = " SELECT tblVarServices.Service, tblservicelog.invoiceno, tblservicelog.hospno...
  9. L

    VBA runs well manually but fails when running alone !

    Hello vbaInet. As you surmised the answer is yes; the report has to be open so that TotalSum can pass on to the tblInvoices. The thing is the client for which the invoice is made is chosen from a list on a form called "frmBilling". I do not know how to make set up a recordset so that...
  10. L

    VBA runs well manually but fails when running alone !

    Good questions. The answers are the following. The report I am talking about is an invoice. The report is RptInvoice and it contains three subreports. TotalSum is a field on the page of the report which calculates totals on the three subreports. This whole code is intended to issue the...
  11. L

    VBA runs well manually but fails when running alone !

    Hello, There has not been a reply to this problem yet, so I presume I have not explained myself well. Whether this vba code works or not seems to depend on whether it is run automatically or in step wise fashion using debugging and F8. Automatically the field [InVAmount] in the rst1...
  12. L

    VBA runs well manually but fails when running alone !

    Hi everyone on the weekend. I have the following code: Private Sub Command5_DblClick(Cancel As Integer) If IsNull(Me.List0) Then MsgBox "Choose a client from the list first !" Exit Sub Else DoCmd.OpenReport "RptInvoice", acViewPreview, , , acWindowNormal Reports!RptInvoice.Filter = "...
  13. L

    Can I move subreports depending on whether they have a value ?

    Hello everyone on access, I have a main report with three subreports. Can I move the subreports up or down depending on whether they have data to display? In other words I do not want an empty space when a subreport happens not to have data in it. Do I use vba code or is there a change in...
  14. L

    how to set up these queries ? ?

    Hi Trevor, I will try to upload the database for you. It is still in development stage and the information included is fictitious. I will appreciate your comments on the general setup and layout. In the meantime I have already set up the billing form with the list. The form is called...
  15. L

    how to set up these queries ? ?

    I appreciate your point about not having separate tables. However the tables themselves are different. Like in the hospitalisation table there is only idcard number, date of entry, date of discharge only, invoiced, and paid (Yes/No) fields. The query then deduces duration of stay. With...
  16. L

    how to set up these queries ? ?

    I have three tables from which I can derive three queries. Each table will contain details of services, tests, and hospitalisation respectively. On each record there will be a field called invoiced set to Yes/No depending on whether the record has been invoiced. On each of these three queries...
  17. L

    DLookup interrogates for a Null value

    I see what you mean. However I suppose that if no record exists with the criteria, RoomNo will be Null. In most cases this would be the expected outcome envisaged when the command button is fired. Many thanks once again. LouisB
  18. L

    DLookup interrogates for a Null value

    Dear Paul, With your valuable and efficient help the code is working now. For the benefit of others who may have the same difficulty the code is now as follows and is working like clockwork. I had to make some adjustment with regards to the variable type. Private Sub Command46_Click() If...
  19. L

    DLookup interrogates for a Null value

    Many thanks. That is already of some help. However when I change the code to the following: sodda = (DLookup("[RoomNo]", "Roomlog", "[IdcardNo] = '" & Me.cltidcard & "' And IsNull (ExitDate)")) now I get runtime error 94 Invalid use of Null. From a search online the line should be...
  20. L

    DLookup interrogates for a Null value

    I am using the following vba verse to see if there is a record with certain criteria. Private Sub Command46_Click() If IsNull(cltidcard) Then Exit Sub Dim sodda As String sodda = (DLookup("[RoomNo]", "Roomlog", "[IdcardNo] = " & Me.cltidcard & " And IsNull (ExitDate)")) If Not IsNull(sodda)...
Back
Top Bottom