Recent content by arnelgp

Let assume your ID column is in Column A, Date in column B, Type in column C and Done In Column D without using DAO.Recordset: Sub UpdateDoneColumnOnSheet1() Dim ws As Worksheet Dim lastRow As Long Dim rng As Range Set ws = ThisWorkbook.Sheets("Sheet1") lastRow =...

as advised by the others, you do not need to save the period_month, period_year, accounting_month and accounting_year to the table. you use query to show them (see qryInvestTrans2 query).

here is a simple db that employs Login form. username/password: common => will have limited access on the db. username/password: arnel/nozup => admin account, have unlimited access and can set/assign user and user-right to the system.

here is the db created from inventory template

check the query (qryCompanyList) in Design view of the query if this is the recordsource of the form.

you may also try the code on this.

if you want to share the db so we can see what is the problem, you can convert your linked table to local table by right-clicking on them, and selecting "Convert To Local Table".

or you can use: Set lst = Visiblelist(Me)

you can simplify it: Public Function VisibleList(frm As Form) As ListBox Set VisibleList = frm.lstTrans If frm.lstName.Visible = True Then Set VisibleList = frm.lstName End If End Function on your code: Dim lst as listbox set lst = VisibleList()

NCH Videopad->Video Effect->Sharpen. you can adjust, using the slider the amount of sharpness while the video is playing.

result based on what you want to accomplish in post #5: Expr1 (sort order) is being shown here, but you can hide it on the Query design.

created a user-defined function in module1 and use it in query1 (Exrp1) and Sort on this calculated column. see query1.

this a Modified version of the db you uploaded. it Sorts on their respective Group only.

you may also try this: Function GetDateRange(DateField As String, RangeType As Integer) As String 'Last Month Dim firstmonth As Date Dim lastmonth As Date firstmonth = DateSerial(Year(Date), Month(Date), 0) lastmonth = DateSerial(Year(firstmonth), Month(firstmonth) - 12, 0) 'Quarterly...

try this also: SELECT GrantsT.GrantURN, GrantsT.OrganisationName, GrantsT.CountryID, GrantsT.Status, GrantsT.StatusDate, GrantsT.ProjectStart, GrantsT.ImpactDue, GrantsT.Received, GrantsT.ProjectCompleted, GrantsT.EndOfProjectVisit, [Received] -...