Recent content by MajP

This is a pretty common mistake. For some reason an image cannot take focus so it does not move the record selector. If you like the round image you can put a transparent command button over it.

Compact and repair helps at the table level but not at the project object level. You likely need to do a decompile / recompile in addition to CR. https://www.fmsinc.com/MicrosoftAccess/Performance/Decompile.asp

The convention is short for class "member", but your question is probably why have any prefix. The reason is because often these are exposed with a Set/Let and Get accessor methods. The Set/Let/Get accessor methods of the property are always descriptive. if the property is "Color" then you...

Private Sub TabCtl2_Change() Const TabName = "tabCtl2" ' name of your tab Const PageNumber = 1 'The index of page to hide. remember they are zero based Const Password = "ABC" 'your password Dim strInput As String Dim ctl As Control ' Hide controls on tab until correct password is...

If I understand, the user is not creating a new task then searching the long list for a specific spec. For the most part the user has all the tasks with exisiting specs assigned. They just need to update the existing spec by actually creating a new spec based on the existing spec and...

I still do not get how using a combo and not in list could reasonably work with long text and a list of 7k items. Again, I could see this working with a list of names, but cannot see it being to be useable with long text fields. Example with Names. I want to add "Jones" I type in J and a...

If you went to a list so that many tasks could share the same SI, how many unique SIs would you have? 10s, hundreds, thousands, 10s of thousands? Even if you only have a couple of hundred unique SIs to reuse, there is still no way you could find what you wanted in a simple combox. Especially...

Here is a pretty good start IMO. I know the existing Spec I am looking for has the word "Nut" in it. I search for existing specs with "Nut". I can double click to assign. However none of the specs are exactly correct, so I want to create a new spec from existing Spec. I did not add code...

If the lists of specs got real big and they do not really fall neatly into categories, it may need to get more complicated. Specs may have a child table of key words. The above specs may not simple by categorized as Adj Nut but are tagged Adjustment Nut Special Tool Transmission OA512 Then...

I might be wrong, but I just cannot imagine that user interface could be in any way useable. That would be a horrible user experience IMO. Maybe if your list of specs was at most 20 things ever, the user would have a chance. There is no way a user trying to assign a spec could pull down that...

Sub c1tim(tablea As String, loai As String, x1 As Integer, tableb As String) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim i As Integer ' Bu?c 1: Tìm giá tr? x1 trong các c?t C1 d?n C6 c?a tablea Set db = CurrentDb() strSQL = "SELECT * FROM " & tablea & " WHERE Type =...

Standard method in library to open any form See both the dialog and non dialog versions. Public Function openForm(formName, Optional view As AcFormView = acNormal, Optional filterName, Optional whereCOndition, Optional datamode As AcFormOpenDataMode = acFormPropertySettings, Optional windowMode...

Simple example of opening a Calendar in the external db. Function in library. (The calendar has an OK and Cancel. The OK button hides the form, cancel closes it. This idea works on any pop up) Public Function GetMonthYear(Optional DefaultYear As Integer, Optional DefaultMonth As Integer...

This is relatively simple to do. Simply put a function in the library that opens the form and returns the value once the form is closed. Or do as Mark says.

If you wanted to do it that way, then you cannot do it on the current event. Because that would pull the value from the current record. You could try in the after update of the record, so that the next record gets the last records date. This will not work the next time you open the form. If...