Search results

Is the backend Access db? If so, make frequent backups in case of corruption. also make sure users can delete mass records. (or any records)

in the subform footer, the text field datasource would be like: =Sum([valueFld]) or =Count([field2])

you can put a ComboBox so when user picks the item , it assigns B2, then filters the main data Sub Filter1() Dim rng As Range Dim vMyFlt vMyFlt = Range("B2").Value ' Selection.AutoFilter 'turn off existing filter Sheets("MainData").Select Range("A1").Select Set rng =...

did u try linking the table via the EXTERNAL DATA? (not in code)

rather that making messy nested IIFs , just make a custom function that reads cleaner: usage: =getResult( [CompleteDate], [ReviewDate], [DueDate]) Public Function getResult(pvCompDte, pvRevDte, pvDueDte) Select Case True Case Not IsNull(pvCompDte) getResult = "Complete"...

i made a range in criteria to export the ID in batchs [id] < 1,000,000 [id] between 1,000,001 and 2,000,000 [id] > 2,000,001 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xls, "query1", vFile, True,"qry1" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xls...

usu different tabs have different subforms , then it would be: forms!fMain!subFrm2.form.strApplicant = forms!fMain!subFrm1.form.strOwnerName but if you only have 1 subform and swap out the source tbl , then youd need to save to a variable then replace after the tab change.

yes. i use it a lot. resume next is only in that 1 sub/function.

oops, yes

is all your math IN the query? (it should be)

usage: vSrcDir = "C:\Users\mhm\Desktop\Sourcefolder\" vTargDir = "C:\Patients\" vNum = Me.patientnumber CopyFiles2Dir vSrcDir, vTargDir , vNum Public Sub CopyFiles2Dir(ByVal pvSrcDir, ByVal pvTargDir, ByVal pvNum) Dim fs As Object Dim Folder As Object Dim oFile As Object Dim vName...

combo box is for 1 item. Do use the listBox ,but put a text box above it to filter down the listbox: If IsNull(txtFilter) Then lstBox.RowSource = "qsAllNames" Else lstBox.RowSource = "qsFltName" End If 'qsFltName sql would be like: 'select * from table where [LastName] like '*" &...

there is no reason to do this in code, in form design, set the properties on the combo, and assign the source query

Too many quotes, try: CurrentDb.Execute "INSERT INTO 01_tblLocalVariables ( Value, VersionDate, WhatsNew ) VALUES (" & Me.txtVersion & ", #" & Format(Me.txtVersionDate,'mm/dd/yyyy') & "#, '" & Me.txtWhatsNew & "')"

you dont need code to store the ID, the subform does it for you in the subform property: LINK MASTER FIELDS = ID LINK CHILD FIELDS = ID

reports print to paper. You can 'export' them to PDF. do you mean export the data query into excel? if so: vFile = "c:\temp\MyFile.xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xls, "qsMyQuery", vFile, True

some forms are designed wrong so you yourself can be the other user editing the same record. or you have 2 different forms/sheets open on the record.

do pivot tables not work?

right click on the function, DEFINITION.

or make a union query for all yr query conditions