Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cmd_ImportFTIR_Click() Dim i As Integer On Error GoTo cmd_ImportFTIR_Click_Error gApNO = Me.ApNo ' FM_ViDataX_ApSelect - Form - - - Edit - Normal ==> Self Explanatory DoCmd.OpenForm "FM_ViDataX_ApSelect", acNormal, "", "", acEdit, acNormal '-- Set the initial form values. Forms![FM_ViDataX_ApSelect]![txtApNo].Value = UCase$(Trim$(gApNO)) Forms![FM_ViDataX_ApSelect]![txtFileName].Value = gApNO & "\Access\FTIR.txt" ' ViDataX_Set_FTIR_Values - Code ==> Set the default FTIR download values for FM_ViDataX_ApSelect form. Forms![FM_ViDataX_ApSelect]![txtXactnName].Value = "FTIRDN" ' Sets the click event on the OK button to run FM_ViDataX_ApSelect._FTIR_OK i = 1 ' Forms!FM_ViDataX_ApSelect!cmdOK.OnClick = "FM_ViDataX_ApSelect_FTIR_OK" On Error GoTo 0 Exit Sub cmd_ImportFTIR_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmd_ImportFTIR_Click of VBA Document Form_FS_MSB" End Sub
|Open A Form without Loading All the Records of Its Recordsource||6||46|
|Copy all value in one form to another||4||41|
|What are my options to share data with field staff||16||52|
|MS Access How can I add a relative path to my VBA PDF output that will work for most Windows computers?||4||30|