User Profile

cPmod · Sep 1 '15, 08:10 PM

Ah, now I understand your idea a bit better.
Yes, that is definitely much more effective. I will definitively give that a try.
Thank you very much for sharing.

cPmod · Sep 1 '15, 01:39 PM

Well, the table content in the subform changes due to code based filter option, and therefore I wanted a bulletproof solution that only the visible content is changed.

To be honest, I did not fully trust the update query option and it takes more effort, if some things change afterwards (lets say additionally filtered column in the subform, needs to be inserted as well in the query to show the same results...)

But it is a...

cPmod · Aug 29 '15, 08:46 PM

Okay, it took me ages, but I finally solved it.
For all those who are interested, follows the complete code:

Code:

    Dim dbTintendatenbank As Object
    Dim rstTintendatenbank As Object
    Dim fldEnumerator As Object
    Dim fldColumns As Object
    Dim strBatch As String
    Dim intCount As Integer
    Dim strMaxtabcount As Integer
    Dim strCounter As Integer

...

cPmod · Aug 29 '15, 04:19 PM

Hi Mike,

As far as I understood you simply want to process all text files in one directory or something like that processed, right?

Following code (it is excel vba, my apologies) did this job for me (I know it is probably a bit dirty coding but it worked like a charm converting a lot of pdf files to txt).

Code:

    Dim i As Integer
    strTXT As String
    Dim FSO As Object, objSFold As

...

cPmod · Aug 29 '15, 01:25 PM

Alright, I got a codesnippet that might help solving this problem:

Code:

    Dim dbTintendatenbank As Object
    Dim rstTintendatenbank As Object
    Dim fldEnumerator As Object
    Dim fldColumns As Object
    Dim strMatch As String
    Set dbTintendatenbank = CurrentDb
    Set rstTintendatenbank = dbTintendatenbank.OpenRecordset("Table1")
    Set fldColumns = rstTintendatenbank.Fields

...

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Filtered Subform - Update specific Column value