Search results

"By accident" I read the above line. I am working on a project where I have completely decoupled front-end from back-end. I only work with local applications, no SQL-server. That could make a difference. The problem with the coupling of Access is that Access starts from the Fields. You than...

OK, I understand. The only thing the As_xxx functions do, is to convert control-values (that are formatted according regional settings), are converted to native types. That is all.

Well, interestingly. Can you elaborate on that? Thank you.

Hi John, Thank you. These codes are some 40 years old, and I have never found a signal that there was something missing. But adept them for your purposes. Your example was for retrieving records based on field-values, and in the tables I don't use ZLS-values. Internally I work with controls...

Place these functions in a general module. Modify/extend these functions if necessary. Function As_date(cur_datum As Variant) As String ' ISO-format: yyyy-mm-dd If (IsNull(cur_datum)) Then As_date = "Null" Else As_date = "#" & Format(cur_datum, "yyyy-mm-dd") & "#" End If End...

An other frustation in constructing SQL-strings is the type-dependant notation of variables: single quotes for Text, # for Date, decimal point for Real values (dependant on regional settings). I use three simple general functions that I use everywhere: As_text, As_date, As_real, independant of...

Beware! vbKeyDelete = 46 vbKeyPrint = 42 Did you really test for "ctl del"? Perhaps better to use the Constant vbKeyDelete.

In your code you use: KeyCode = 42 & Shift = 2 & is for concatenation, better use AND: (KeyCode = 42) AND (Shift = 2)

You could make your life much easier by using a little different typography. Most important is the leading space in each line, very easy to check if each line has (or needs) such a space. Public Sub inToDisc(dFamily As String, sFamily As String, nAccno As Double, sStr As String)...

First of all, I would ALWAYS split the database in FE and BE, because modifications of the FE will come sooner (or later). The user does not even know/care that the database is splitted. I was interested in your application, not so much the code, but the systematics. I always compare that with...

What if you make a recordset with flocID = ID AND DocID = ...? If (rst.EOF) Then rst.AddNew Else rst.Edit End If

That is why I use underscores for objectnames: for display purposes replace the underscore by a space.

I wonder why you want to do that. If the user-defined properties are used for selection, it is as loosing a search key. For (filtered) selection you have to process ALL files to find a matching property.

Hi BlueSpruce, At first sight of your diagram I thought that that all six related tables had the same structure, and thus ould be handled in the way of the Music sheets. But then I saw it was only a mockup diagram, and all related tables have a different structure. I agree, it is quite...

Are you seeking something like this? I have worked on an application with some 10,000 documents as Music sheets. Filenames and filepaths are stored in a Sheet_tbl. There is a 1:m relation to a Feature_tbl. The Feature_tbl contains all kind of features regarding the Music sheet, like componist...

@Edgar_ I only use unbound forms, and to be specific, only two for all applications. Binding is necessary for the control to know where to get its information, or where to store it. In my applications I use a "dynamic" bonding, that is, in the Enter event of any control the whole binding and...

This is the way I build my applications, completely event driven. I don't use Classes, but just "THE" Control. During the load of the form a reference is made to a metadata table, that holds the description of how the control should behave, including the corresponding table and field, to get...

The way I work with my dynamical forms is I think in line with class module code, but without the formal declarations. On of my first attempts, some 20 years ago, was a calender form, and is still actual. It is still based on a predefined form, with the controls "on their place". It is activated...

I usualy do it in the Open event of the (sub)form, after all controls are defined. Then I do a Resize of the form, and depending of the number of records (continuous) or controls (unbound), the Scrollbars are defined. Imb.

I have no problems with Scrollbars. In a main form I use: HB_form.Scrollbars = 2. in a sub form I use: HB_sub.Form.Scrollbars = 2. Imb.