wordpress statistics
  • Today is Saturday, September 27, 2014

22 Responses to “Who is Online”

  1. Anonymous says:

    I get the following error:
    Invalid use of property

    at the following line

    WhoisOnline Me.FPath

  2. Hi,
    It is likely that the control name (where you need to enter the Workgroup or database path) you have given differently, instead of FPath. Check again. This can happen if you are using the reference Me.FPath in Global Module.

    I made few changes in the Main Program. Copy and paste it in the Global Module and try it again. If you are not able to figure it out the problem Zip your Database with Winzip and forward it to me at aprpillai@msaccesstips.com. Let me have a look at it.

    Or you can give me your e-mail address I will forward the sample Database to you.

    Regards,
    a.p.r. pillai

  3. iha says:

    the database didn’t work, it says that the “database is idle”.

  4. Try increasing the delay loop time. Change the following lines:
    Do While Len(x) = 0 And Timer < (t + 5)
    x = Dir("c:\xx.txt")
    Loop
    t = Timer
    Do While Timer < (t + 5)
    'do nothing
    Loop

    Change the t+2 expressions to t+5 or to t+10

  5. Anonymous says:

    Hi Mr Pillai,

    I have done all of the above but i get the same error. "Increase the delay loop Value from 5 to 10 seconds and try again."

    i got the code below and changed it to the t + 10 but it still don't work

    x = ""
    t = timer
    Do While Len(x) = 0 And timer < (t + 10)
    x = Dir("c:\xx.txt")
    Loop

    t = timer
    Do While timer < (t + 10)
    'do nothing
    Loop

    Open "c:\xx.txt" For Input As #1
    If Err > 0 Then
    'Lock file copying was not successfull
    MsgBox "Database Lock File copy was not successful." _
    & " Increase the delay loop Value from 5 to 10 seconds and try again.", , "WhoisOnline()"
    Exit Function

  6. What Version of Windows you are using?

    Try changing the line that reads

    Print #1, "copy " & strpath & " c:\xx.txt"

    to
    Print #1, "xcopy " & strpath & " c:\xx.txt"

    Or try creating a folder c:\tmp and change the location addresses given in the code to read as c:\tmp\xx.txt and c:\tmp\x.bat

    Perhaps, the Security Policy on your machine may not allow writing to root directory.

  7. Anonymous says:

    Thanks for the reply,

    I am using windows xp and microsoft access 2000 version,

    I tried to copy "Print #1, "xcopy " & strpath & " c:\xx.txt"

    however it still didn't work.

    My database will be shared with other users so i wanted this feature to work.

  8. Replace the area of the Code with the following lines and retry:

    Set FRM = Forms(“WhoisOnline”)
    Set ctl = FRM.Controls(“UsrList”)

    Open strpath For Input As #1
    Open “C:\xx.txt” For Output As #2
    Do While Not EOF(1)
    Input #1, x
    Print #2, x
    Loop
    Close #1
    Close #2

    t = Timer
    Do While Timer < (t + 2)
    'do nothing
    Loop

    The Code change is after the first two lines (you will find in the original code) and before the line that reads 1 = timer.

  9. Need some correction to the above suggestion by implementing a validation check before executing that portion of code.

    Add the following Code between the lines End Select and Set FRM = Forms(“WhoisOnline”):


    Dim x As String, chk As String

    chk = Dir(strpath)
    If Len(chk) = 0 Then
    MsgBox strpath & vbCr & "not found. Database may be idle."
    Exit Function
    End If

  10. Anonymous says:

    Hi thanks for the response,

    I used the above code but i got an error for this part

    Dim x As String,

    so when i try to run the application but it shows an error of

    “Duplicate declaration in current scope”

  11. Anonymous says:

    Hi mr pillai,

    i fixed the above problem but when i ran the application i still got the same message that database is idle,

    i think the problem lies in the code below,

    Thanks in advance

    Open "c:\xx.txt" For Input As #1
    If Err > 0 Then
    'Lock file copying was not successfull
    MsgBox "Database is idle.", , "WhoisOnline()"
    Exit Function
    End If
    Input #1, str
    Close #1

  12. Anonymous says:

    Hi mr Pillai,

    i got the application to finally work, but now i have another problem, when i select the user that i want to send the message to it doesn’t show it on their computer,

    What i have done is that I ran the “online” application on my pc, and database that i want to check on another PC, it showed that there was one user and their workstation Id, however it didn’t send them a message, i also got the successful sent message popup, but the message didn’t show on the other computer, one thing that might interest you is that the message was sent to Admin since they were the only person who had it open.

    I am new to access so can you please help.

    Thanks in Advance

  13. Hi,

    MS-Access UserID is not important here, but the WorkstationID is. The same problem was reported by another User of Windows 2000. Our Office Network is Windows2000 only and there is no problems so far for us here.

    Check with your Administrator whether they have disabled the NET SEND Command through Login Script.

    You can try sending a message directly to the WorkstationID after opening the DOS Window.

    1. Select RUN from StartMenu
    2. Type: cmd and Click OK to open DOS Shell.
    3. Type: NET SEND workstationID HAPPY NEW YEAR 2009
    4. Go to the other Workstation where you send the message and check.

    Regards

  14. Anonymous says:

    Hi,

    I have tried the above but i get an error.

    “the message alias could not be found”

    but the network id for that computer is correct so i don’t know what the problem is.

  15. Try sending a message to your own PC from DOS prompt using your machine’s IP address or NetworkID. If it is successful you will see a message box with the text you sent. If not then there may be some problem with your Network. Check with your Network Administrator.

    Regards,

  16. Steve says:

    Hi nice site.

    Is the download for the who is online working?

  17. Steve says:

    I read what others are saying I got error same error datbase is idle. Using Windows XP-64bit access 2003 @ work.

  18. Steve says:

    Ok I made some progress. In the users online screen the left side just says .mdb and the right is blank. Not sure why?

  19. John DiBella says:

    This is a moot point if you’re putting a database on a network where people can access it via some type of virtual server or host emulation setup. It’s best to pull the username out of the user’s registry rather than rely on the .ldb file.

  20. farzad says:

    the database didn’t work, it says that the “database is idle”.

    I did below but it say database is idle yet
    My database is running but it just say that

    a.p.r. pillai says: September 19, 2008 at 6:19 pm
    Try increasing the delay loop time. Change the following lines:
    Do While Len(x) = 0 And Timer < (t + 5)
    x = Dir("c:\xx.txt")
    Loop
    t = Timer
    Do While Timer < (t + 5)
    'do nothing
    Loop

    Change the t+2 expressions to t+5 or to t+10

  21. farzad says:

    for mention i am using windows xp and access 2003

  22. a.p.r.pillai says:

    Try the following:

    1. After getting the error message, Open the windows explorer and check whether the file c:\xx.txt has been created there or not.

    If it is created then try increasing the t+10 expression to a bigger number, because your machine may be faster in execution of VBA Code and it is attempting to access the text file not yet created under DOS.

    2. Change the line that reads ‘do nothing to Doevents within the delay loop.

    3. If the file is not created change the text file’s location to an inner folder like c:\tmp\xx.txt (after creating the folder tmp) and make this change wherever this file is referenced and try the program again.

    Due to the access rights settings some machines may not allow to create files in the root directory.

    This program is written under MS-Access2003 and XP only.

    Regards,

Leave a Reply

You must be logged in to post a comment.