Mobile App adaptiopn of Ms Access working code

I have an MS Access application completed that does what is required.  I made this to test the concepts. 

There are:
4 tables of normalised data
3 main forms
3 subforms
About 15 sub procedures or functions

Not an overly complex application.

I think it took me an hour to smash out in Access and about 15 go rounds to get what was required by the users...Hair loosing major time.

Now I have it worked out.  I was wanting someone to work with me to put into Python or something similar to make the Access application work via the mobiles.

I assure you this is not a complicated app.  The most complex code is nested ADO statements such as:
If Me.Input < 0 Or Me.Input > 41 Then   
        MsgBox "Please enter a value between 0 and 41.  This number has not been added."

, VbOKOnly + vbCritical, "Entry Error"       
        Cancel = True     
 
    Else
      Strsql = "select * from tmpinput"
                'add the record first
                with rst
                    .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
         
                .AddNew
               
                    .Fields("Input") = Me.Input
                   
                .Update
           
       
            .Close
       
        End With
   
        'Check if the limit is reached and if it is delete the first record
       
        'MsgBox Me.fsubLimit.Form.Limit
       
        If spsWhatCount = (Me.fsubLimit.Form.Limit + 1) Then
        Dim strInv As String
        Dim intCount As Integer
       
            Call spsInvisibleNumbers(strInv, intCount)
           
            With rst
           
                Strsql = "select distinct tmph.H FROM tmpH;"

                    .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
                   
                        Me.txtAns = strInv & vbCrLf & vbCrLf & "The distinct count and the answer is " & .RecordCount
                   
                    .Close
           
            End With
           
       
            Call spsDeleteFirst
           
            'Delete the tmp holding table data
            'empties all records cleaning out for next run
            DoCmd.SetWarnings False
           
                DoCmd.Runsql "delete * from tmph"
           
            docmd.SetWarnings True
           
        End If

        'Now update the records
   
        Me.fsubInput.Requery

I haven't used this site before, but if can ask questions please do.