Sub Activity_Resume
If variable="" Then StartActivity("User")
Activity.Title = "FlexiPoint - " & variable
MiseAJourTable
End Sub
Sub Activity_Resume
If variable="" Then
StartActivity("User")
Else
Activity.Title = "FlexiPoint - " & variable
MiseAJourTable
End If
End Sub
Sub Activity_Resume
Activity.Title = "FlexiPoint - " & variable
MiseAJourTable
If variable="" Then
StartActivity("User")
End If
End Sub
If variable="" Then
StartActivity("User")
End If
If variable="" Then
StartActivity(User) '<--- Note there are NO QUOTES
End If
If File.Exists(File.DirDefaultExternal, "Database.db") = False Then
File.Copy(File.DirAssets, "Database.db", File.DirDefaultExternal, "Database.db")
End If
Sub Activity_Create(FirstTime As Boolean)
[...]
Dim curseur As Cursor
curseur = SQL1.ExecQuery("SELECT * FROM Utilisateur")
curseur.Position = 0
If curseur.RowCount = 0 Then
StartActivity(User)
End If
curseur.Close
End Sub
Sub Activity_Resume
If Utilisateur <> "" Then
MiseAJourTable
Else
StartActivity(User)
End If
End Sub
StartActivity(User)
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?