Newbie Questions

Re: Database Update

Hilary Stoupa — Fri, 13 Jul 2012 15:09:45 GMT

That is a great link - thanks for sharing it!

Re: Database Update

shep123 — Fri, 13 Jul 2012 11:55:56 GMT

Hilary was right. For some reason on with a load event you can't close an application through script. I'm sure there is a reason for it. I found this site that provides events that don't work in the load event if anyone is interested: http://msdn.microsoft.com/en-us/library/microsoft.office.infopath.formevents.loading(v=office.11).aspx

Re: Database Update

Gennady Vanin (Геннадий Ванин, Новосибирск) — Fri, 13 Jul 2012 01:50:48 GMT

Removed, replied having missed to notice the posts on 2nd page

Re: Database Update

Hilary Stoupa — Thu, 12 Jul 2012 21:34:07 GMT

I'm assuming that the same underlying issue will be present in IP 2003 with script - that we just aren't allowed to close the application while it is loading.

Re: Database Update

shep123 — Thu, 12 Jul 2012 21:27:39 GMT

I don't get any errors. I'd prefer the loading event that way it will close the form if it loads with an invalid database. I'm also using IP2003 with vbs if that matters. If I can't do it in the load event, I'll just have to live with it.

Re: Database Update

Hilary Stoupa — Thu, 12 Jul 2012 21:17:02 GMT

Oh. In the Loading event. Well, I tried it in a loading event (IP 2010, Filler, C#) and had an error:

System.Runtime.InteropServices.COMException
Invalid context for OM call.

I'm assuming you've had errors as well?

So - the error means that we can't use this method in the loading event. I'm not super surprised by that. Perhaps just switch to a read only view or something?

Re: Database Update

shep123 — Thu, 12 Jul 2012 21:06:14 GMT

No I am not prompted. I have tried that code as well. All the ones I've tried are:
Application.ActiveWindow.Close(true)
Application.ActiveWindow.Close(True)
Application.ActiveWindow.Close()
Application.ActiveWindow.Close() = true
Application.ActiveWindow.Close() = True

I'm really lost at this point because everything says they should work. It's in my load event and I don't know if that affects it.

Re: Database Update

Hilary Stoupa — Thu, 12 Jul 2012 20:13:18 GMT

Are you being prompted to save changes? Try with the force param:

Application.ActiveWindow.Close(true)

Re: Database Update

shep123 — Thu, 12 Jul 2012 19:36:01 GMT

Hilary Stoupa:
Application.ActiveWindow.Close() I think: http://msdn.microsoft.com/en-us/library/aa945466.aspx

That's the thing it doesn't work for me. I currently have this:
If DateDiff("m", lastModified, date2) = 0 Then
x = MsgBox("You have an outdated database stored on your computer. Please close the form and download the newest database.", 0, "Outdated Database")
Application.ActiveWindow.Close()
End If

The if statement works because the message box shows. But for some reason it won't close and I have no clue why.

EDIT: I know that it is currently set as 0 month difference. That is so I can test that the code actually works.

Re: Database Update

Hilary Stoupa — Thu, 12 Jul 2012 19:25:03 GMT

Application.ActiveWindow.Close() I think: http://msdn.microsoft.com/en-us/library/aa945466.aspx

Re: Database Update

shep123 — Thu, 12 Jul 2012 19:03:49 GMT

If anyone knows the vbs code to close a form that would be helpful. I have an if statement based on date differences. I want the form to close when a statement is true. I have all the code already with the exception of the form close. I've tried a bunch of stuff along the lines of Application.ActiveWindow.Close = True and nothing seems to work.

Re: Database Update

shep123 — Thu, 12 Jul 2012 18:54:29 GMT

I figured it out. Hilary's method was the easiest and I used the DateDiff function.

Re: Database Update

shep123 — Thu, 12 Jul 2012 16:43:43 GMT

I think I'm just struggling to relay my thoughts. The owner creates the database locally. Then he distributes it through email to the users who then download the database and store it locally. It's basically like me creating a file putting it on a USB drive and then uploading it on everyone's computer. Once it is on the other computers there is no longer a connection to me as the owner. Therefore, I think I need to do what Hilary alluded to and use a data last modified method to say whenever that value is greater than X, the form can't submit.

Re: Database Update

Gennady Vanin (Геннадий Ванин, Новосибирск) — Thu, 12 Jul 2012 16:30:42 GMT

shep123:
When a new database gets sent out the user downloads it from the email/other distribution and saves it to their local computer in place of the old database. Ideally, the form would reject the database if it isn't updated. I'm guessing the best way to do that would be use a "last updated" method

Is database updated (Update: by users) locally?

If the answer is "no", then just show it from central location (shared folder ) to all
If "yes", how the databases are syncronized without server involvement?

How will Infopath form know about database being up-to-update without checking it on a central location (server)?
This undermines off-line use, if a database useis being blocked by absence of response from a central location (server)

Re: Database Update

shep123 — Thu, 12 Jul 2012 15:54:34 GMT

I found some code online that I could use. It was in VBA so I did some minor edits, I still have a form code error. I guess I would put this code (when it works) in the form load event and have it trigger an action that blocks use of form instead of displaying that message box. Am I going in the right direction or completely wrong?

Sub GetDateLastModified()

Dim oFS
Dim strFilename

strFilename = "c:\temp\fileA.xls"

Set oFS = CreateObject("Scripting.FileSystemObject")

x = MsgBox(strFilename & " was last modified on " & oFS.GetFile(strFilename).Datelastmodified, 0, "prompt")

Set oFS = Nothing

End Sub