I have a table which includes a "Yes/No" field.  See attached.
Some of the records have their "Yes/No" Set to Yes.  See attached
I created a query that includes only :"Yes/No" set to "Yes"
The result is a dataset where ALL the "Yes/No" Fields are set to "Yes"

Has anyone encountered this phenomenon?

Sorry people here;

 I have come again for clarifications on receiving the data from the machine RS 232 using Ms Access App. This week we have started testing the new machines we ordered last month to be used to account for Value added tax (VAT) and transmitting the invoices details one by one a time  to the taxman server. Sending is not an issue all is okay , but receiving certified data from the server , we are finding some challenges ,the received data is supposed to pasted in the table called tblInvoice , but its empty no data after processing.

I have gone through the code I cannot spot any error , neither are there any errors after processing, see below:


Receiving Code from RS 232

Private Sub CmdReadReceivedJson_Click()
Dim DataRead As String
  Dim DataObject As Object
  On Error GoTo Err_Handler

  If ReadDataFromSerialDevice(DataRead, 4) Then
    ' Call to JSON library to parse it.
    Set DataObject = ParseJson(DataRead)
    StoreData DataObject
    MsgBox "Data have written in the contact table", vbExclamation, "Please proceed"
    Set DataObject = Nothing
  End If
Exit_CmdReadReceivedJson_Click:
Exit Sub
Err_Handler:
Resume Exit_CmdReadReceivedJson_Click
End Sub

Private Function ReadDataFromSerialDevice(ByRef ADataRead As String, APortID As Long) As Boolean

  Dim lngStatus As Long
  Dim strData As String
  Dim PortID As Integer
  Dim intPortID As Integer

  ReadDataFromSerialDevice = False
  lngStatus = CommRead(PortID, strData, 14400)

Select all Open in new window

…

I am moving to Access 2019 from Access 2010.  Initially I had a problem with hiding the ribbon on opening because it seems that the technique used in 2010 no longer works.  
I have now successfully hidden the ribbon when opening the application by using a commend in an AutoExec macro.
That is working fine.

But now testing in more detail I have a problem with my reports.  I currently have a custom tool defined for all my reports.  All this does is to show the Close button and the Print dialogue button at the top.

It seems that these are no longer supported because the buttons are no longer displayed when running the application in Access 2019.

I have done some research and it looks like I will need to create a custom ribbon and call that from each Report.  This requires coding in xml which I will have to mug up on because I have never done that before.

My question is - is this the way that this should be done?  Any tips to make this simple?

Or is it easier to just add two separate buttons to the footer of each report (although this would be more work because each report would have to be editted.

Advice will be very welcome.

Regards

Richard

Hi

I want to loop through an Access table automatically to check if a field called "Registration Date" is 7 or fewer days away.
What VBA code would I use to do this?

Thanks

I have a Pop Up Form that has no control source. The form is opened from a command button on the main form. If in the Pop Up form I use:

If Me.Dirty = True Then
    DoCmd.RunCommand acCmdSaveRecord
End If

Am I saving anything?  If not how do I save the main form when code from the Pop Up form Changes data in the main form?

What happens if I don't deliberately save data in either form?

Hi
In the following Access VBA code the only line that doesn't work is
Worksheet.Selection.Font.Bold = True


Public Function ExcelExportAndFormat(ByVal CRecordset As DAO.Recordset, ByVal CSheetName As String) As Object

  On Local Error Resume Next

  Dim Excel As Object ' Excel.Application
  Dim Workbook As Object ' Excel.Workbook
  Dim Worksheet As Object ' Excel.Worksheet
 
  Dim Count As Long
 
  Set ExcelExportAndFormat = Nothing
  Set Excel = CreateObject("Excel.Application")
  Set Workbook = Excel.Workbooks.Add
  Set Worksheet = Workbook.Sheets(1)
  Worksheet.Name = CSheetName
  For Count = 0 To CRecordset.Fields.Count - 1
    Worksheet.Range("A1").Offset(, Count).value = CStr(CRecordset.Fields(Count).Name)
  Next Count
 
  Worksheet.Range("A2").CopyFromRecordset CRecordset
  Worksheet.Cells.EntireColumn.AutoFit
  Worksheet.Rows("1:1").Select
  Worksheet.Selection.Font.Bold = True
 
  Set ExcelExportAndFormat = Worksheet
  Excel.Visible = True
  Set Worksheet = Nothing
  Set Workbook = Nothing
  Set Excel = Nothing

End Function

Hi Experts,
I have a Access DB in 2007 version (32bit) and I convert to 2016 access(64bit).  I have a login page, user enter the user name and password, then open a form with few buttons (one of these button is open an entry form name "Add/update Case"), this button was working fine in the old version, however, after I converted to 2016 version, when I click this button to open the form,  once the "add/update case" form opens, it circling for about three to four seconds, it close the whole database then make a backup of it.  I checked all the coding and nothing get change.  I can figure it out why.  any help will be very appreciate.

Thanks

Hi

In Access VBA I want to push data to Excel using a SQL statement then open the Excel file and sort by one of the columns.
What code would I use?

Thanks

Hi Experts,

In Access, is there a criteria that filters anything that doesn't start with a number?

OFFICE 365 ACCESS
form
subform
comboxes  =  4
tabcontrol

i have 4 comboxes on a form they independent of each other(not cascading).

I have a tab(tabs1,2,3,4)  
For Tab1

What I need:
I need when a selection is made in any given combobox the subform will filter.
if 1 of the comboxes is selected then filter.
if 2 of the comboxes are selected, then filter the subform with those 2 values
....etc  

I have told them to simply use the filter by selection built into access but they want it this way.


suggestions or sample code ?  

Thanks
Fordraiders