Search results

you can house the "sign" and "txtDataEntryAssist" textboxes to a separate pop-up form (borderless) and just pop up the form when TheValue gotfocused/or got clicked. or you can assign special key to show the pop-up form. you might need Pavlo Pendan's clsControlLayout cls, to corectly place the...

you are right it is report. but Form.IsDirty is correct when you are editing the form in design view. Form.Dirty when you make change/add Record on the form.

on the External db's on the Form you are changing the design, add this on it's close event: Private Sub Form_Close() If Me.IsDirty Then If MsgBox("You have unsaved design changes. Close anyway?", _ vbExclamation + vbYesNo, _ "Unsaved Changes") =...

you don't save the Sequence in the table. you generate it on fly, using a Report or a Form. For form you can use Stephen Lebans code: ' Credit to Stephen Lebans for the function ' Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a...

here is another demo that still uses query. form frmQuery2 shows you multiple images in a record in a continuous form. the form uses basic query and minimal code to toggle the button image.

there is a sample customer service database template from microsoft. the attached is the accdb from that template.

as mentioned earlier this has been done before, without any need for a separate Class. it uses a subform (which is already a class). see post #7 sample db of the below thread: https://www.access-programmers.co.uk/forums/threads/modern-controls-on-off-switch.324510/ I also noticed that both the...

on each subreport, add an Unbound textbox, on the Report's Report Footer that will total the group: for sub-report1, name it txtSumSub1, for sub-report2, txtSumSub2: =Sum([TheFieldNameToSum]) then you can add an 2 unbound textbox to the main form to show those sub-totals...

you create a CSV from the recordset of your table and use it as Datasource of your Mailmerge: Sub CreateCSVFromRecordset() Dim conn As Object Dim rs As Object Dim strDataSource As String Dim strPassword As String Dim strConnection As String Dim strSQL As String Dim...

many has already done that before: https://www.access-programmers.co.uk/forums/threads/modern-controls-on-off-switch.324510/

another suggestion. first create a query that will Group Consultant and DrawingNo: Select Consultant, DrawingNumber From YourTable Group By Consultant, DrawingNumber; name the query qryGrpConsultantDwg. Next use DCount on your Report as the ControlSource of your GroupTotal (on header)...

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()