Visual Basic

Sub CreateTablePessoas(db As Database)
  ' Some code here
End Sub

Sub CreateMyForm()
    Dim db As Database
    Dim tdf As TableDef

    Set db = CurrentDb()
    Set tdf = GetTable("Pessoas", db)

    If tdf Is Nothing Then
        CreateTablePessoas (db)
    End If
End Sub

Greetings!

I am currently working in an automation to extract data from IE. I have a scenario where two page will be accessed, the first one is the page without username and password on it and the second one is the page with login page to log username and password...

I am currently working on a code where the condition is if the account is logged is as "none" and level as "Administrator", then the page will be accessed and will be directed to the specific url. but when the account is logged in as "none" and level as "Guest", then will be directed to the login page and username and password will be entered.. the problem is the value or the innertext I am extracting has a <br /> between words, how can I set the condition like this?

[HTML]<div id="userid">Account: none <br /> Level: ADMINISTRATOR</div>[/HTML]
[HTML]<div id="userid">Account: none <br /> Level: GUEST</div>[/HTML]

[CODE]If .Document.GetElementById("userid").innertext = "Account: none " & "<br />" & "Level: ADMINISTRATOR" Then
        .Navigate linktesturl
                Do While .Busy: DoEvents: Loop
                Do While .ReadyState < 4: DoEvents: Loop
                .Visible = True[/CODE]
         ....code continues....

I appreciate your feedback. Thank you. :)