Recent content by RobJen

Hi, I've been looking for a way to delete forms based on a wildcard. My module generates new forms but after it's closed I need to delete them. This is actually bypassing the annoying "save as" prompt you get when creating a new form. Anyone has an idea on how to achieve this? The forms are...

To duplicate the item I'm talking about, if anyone is wondering, try making a new form then add a control to the form and just try to close or save the form, or close the app for that matter. You will be forced to save the form. I'm looking for any way to bypass this prompt, wether I script it...

That doesn't work. The weird thing is, I made a new blank form and then added some elements to it. Then I tried to close it and I got a prompt where I could decide to save or not save. When I run the script and try to close the form, the only option I get is the form name and: -Ok -Cancel Of...

I've been searching for this through out the web and cannot find an answer. I've made a VBA module that creates a new form and places controls on the form. It's ment to be a temp form though and when I try to close, it will prompt me to save the form. There seems to be no way to bypass this...

Dim MyConn As New ADODB.Connection MyConn.Provider = "Microsoft.Jet.OLEDB.4.0" MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB" MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW" MyConn.Open UserID:="Admin", Password:="MyPwd" Well not entirely, I know...

Never mind, I think I found the answer in the ms knowledge base, thank you anyway :)

Yes that I know, I didnt protect the database with the tables in mdw but only with a db password. The thing is I keep the forms and reports in different databases because the other option is to have 1 database with maybe 50 forms and dozens of reports which tends to get messy. I use a link to...

I have been looking on the web for a while but none really answers my questions, I hope someone here can help me a bit in the right direction. I am developing a database application at work. Instead of making 1 database with all in it, I decided to make it modular. In that case I do not need to...

sorry dont like to top my own messages but I feared my question got missed because I initially found the solution

but now I am trying this with an array and this still gives me troubles, here is a part of the code: Dim array1 As Variant, mytime As Integer, field, i array1 = Array("DentalDatum", "HepB") mytime = 180 i = 0 For Each field In array1 field = Me.array1(i) i = i + 1 Next

ugh never mind, I am such a rookie lol, I forgot to set the variable...so it works now :)

Hi, I am lost in this problem where I dont seem to be able to find the answer, it should be relatively simple though: Dim mytimer As Integer Dim test test = Me.DentalDatum mytimer = 180 If test < (Now - mytimer) Or IsNull(test.Value) Then test.BackColor = "255" Else test.BackColor =...

ahh yes, i had already made a procedure, but i forgot i can call functions straight from access in the element properties window so =Function() at a LostFocus event works and keeps my vba clean... Thanks a bunch!

Hi, I have been looking for a way to do the following: say I have x ammount of fields/elements on a form and all need to do the same thing on a LostFocus event. I could do: Private Sub element1_LostFocus() do this End Sub Private Sub element2_LostFocus() do this End Sub Private Sub...

Thanks, missed that error. Found the mistake tho, its not in the loop but the use of rs fields: rs.Expr1 -->> rs("Expr1")