It is possible to do a little with VBA. For example, here is a start on creating script for a database with local tables. Dim db As Database Dim tdf As TableDef Dim fld As DAO.Field Dim ndx As DAO.Index Dim strSQL As String Dim strFlds As String Dim strCn As String Dim fs, f … Read more
There’s nothing to get the current function name, but you can build a fairly lightweight tracing system using the fact that VBA object lifetimes are deterministic. For example, you can have a class called ‘Tracer’ with this code: Private proc_ As String Public Sub init(proc As String) proc_ = proc End Sub Private Sub Class_Terminate() … Read more
Here is a way to catch most outcomes of interacting with the dialog; Dim value As String value = InputBox(“Please enter a #”, “Determine Limit”, 10000) If (StrPtr(value) = 0) Then MsgBox “You pressed cancel or [X]” ElseIf (value = “”) Then MsgBox “You did not enter anything” ElseIf (Val(value) = 0 And value <> … Read more
I think you should avoid this path at all cost, and try and persuade management into redevelopment. It’s a bitter pill to swallow, but this is going to need to be redeveloped sooner or later, and you are just saving them time and money.
Users put “locks” into an LDB. An LDB is a kind of database of locks for MS Access. Users also put “locks” onto LDB’s and MDB’s. These locks are part of the native database primitives provided by Windows and Windows networking. If there are no locks IN the ldb, the user is not writing into … Read more
You’re facing a limitation of Access SQL text parameters. They can not accommodate string values longer than 255 characters. Here is a simple example which demonstrates the problem. Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strUpdate As String Dim strLongString As String strLongString = String(300, “x”) strUpdate = “UPDATE tblFoo SET memo_field = … Read more
First create an _MouseUp event to execute on the respective control looking to see if the right mouse button was clicked and if so, call the .ShowPopup method. Of course this assumes the Private Sub MyListControlName_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, _ ByVal X As Long, ByVal Y As Long) ‘ Call … Read more
How about something like this… Dim rs As RecordSet Set rs = Currentdb.OpenRecordSet(“SELECT PictureLocation, ID FROM MyAccessTable;”) Do While Not rs.EOF Debug.Print rs(“PictureLocation”) & ” – ” & rs(“ID”) rs.MoveNext Loop
Don’t worry, it’s quite simple. Make your “helper” database. Put a few procedures in there. In your ‘client’ databases, open the VBA Editor Go to Tools->References. Browse and select your helper database. Done! You can now use all the functions in your helper database throughout your client databases. So… no .dll files to worry about. … Read more
I’m not sure about what do want to accomplish, but the syntax for a full cartesian product(cross join) is select * from table1, table2 If you don’t want to cross everything but only some columns, something like SELECT * FROM (select id from details) b, (select detail from details) c ; should work: id detail … Read more