Windows 10: I am connecting a new computer Win 10 pro to the database on networked computer but I get...

The debug message is as follows: also note the error on the bottom of the debug message


Option Compare Database



Sub VerifyDBPixSetup

If DBPixInstallRequired Then

DoCmd.OpenForm "_DoDBPixInstall", acNormal, , , , acDialog

End If

End Sub



Public Function DBPixInstallRequired As Boolean

' See if DBPix registry key exists - if not DBPix install is required

Dim DBPixRegKey As String

Dim DBPixRegValue As String



DBPixInstallRequired = False

DBPixRegKey = "CLSID\{58444091-851A-46BC-BA63-904886070C0D}\InprocServer32"

DBPixRegValue = fReturnRegKeyValueHKEY_CLASSES_ROOT, DBPixRegKey, ""



If IsEmptyDBPixRegValue Or DBPixRegValue = "" Then

DBPixInstallRequired = True

End If

End Function





Sub InstallDBPixBlobData As Variant

Dim Result As Long

Dim FileName As String

Dim FileNameQuoted As String

Dim File As String



FileName = GetDBFolder & "dbps_tmp.exe"



Result = DeletOldFileFileName

Result = BlobToFileFileName, BlobData



If Dir$FileName <> vbNullString Then

' Optional - run the setup in 'Silent' mode.

' Warning ! In silent mode users could open forms/reports before the installation has completed, which would cause an error.

' FileName = FileName + " -s -a -s"

Shell FileName

' ShellWait FileName 'Synchronous alternative but seams to deadlock on XP test system

End If



End Sub





Public Function DeletOldFilesFile As String As Long

On Error GoTo DeletOldFile_Err



Dim nFileNum As Integer



' Make sure the file is creatable and does not already exist

' as a protected file

If Dir$sFile <> vbNullString Then

If GetAttrsFile And vbSystem + vbDirectory + vbReadOnly Then

'

' Cannot overwrite in these cases

DeletOldFile = False

Exit Function

End If



Kill sFile

DeletOldFile = True

End If



DeletOldFile_Err:

DeletOldFile = False

Exit Function



End Function





Public Function BlobToFilesFile As String, BlobData As Variant As Long



Dim nFileNum As Integer

Dim abytData As Byte

BlobToFile = 0

nFileNum = FreeFile

On Error Resume Next

Open sFile For Binary Access Write As nFileNum

Select Case Err

Case 0

sDataOut = BlobData

abytData = sDataOut

Put #nFileNum, , abytData

BlobToFile = LOFnFileNum

Case 70

BlobToFile = 0

Case Else

BlobToFile = 0

End Select



On Error GoTo 0



Close nFileNum




End Function





Public Function GetDBFolder As String

Dim DBFullPath As String

Dim i As Integer



DBFullPath = CurrentDb.Name



' Strip the filename from the full path

For i = 1 To LenDBFullPath

If MidDBFullPath, i, 1 = "\" Then

GetDBFolder = LeftDBFullPath, i

End If

Next

End Function




within the following, "shellwait Filename" is highlighted.


If Dir$FileName <> vbNullString Then

' Optional - run the setup in 'Silent' mode.

' Warning ! In silent mode users could open forms/reports before the installation has completed, which would cause an error.

' FileName = FileName + " -s -a -s"

Shell FileName

' ShellWait FileName 'Synchronous alternative but seams to deadlock on XP test system

End If

:)

 

Connecting computer with no internet connection to network printer


@dk1971

1. Open Admin command and type: ipconfig
   
   
   
2. Win+X->Control Panel->Netwok and Sharing Center
   Follow the screen shot. This should disable internet access from this PC but allows access to local device(s)
   NOTE: Use the IP & Subnet Mask from step 1. Leave Default gateway & DNS Server blank
   
   
   

 

Win 10 Network Printer Connection Problem

I have tried, when using the wifi from a Win 7 computer to connect to the printer connected to it. Others can connect.

I did do the three steps outlined:

• Open File Explorer. Pick the "Network" icon from the left pane (navigation pane) of the file explorer UI.
• If sharing is turned off you will see a pale yellow line towards the top of the window that states "Network Discovery is turned off. Network computers and devices are not visible. Click to change...".
• Click this bar and select "Turn on network discovery and file sharing"

None of the suggestion worked.

I did notice that the PC I'm connecting to is 'Private' while I am listed as 'Public'.

• Can this be causing the problem?
• Are there other suggestions?

I need to be connected to use the other printer so work flow can not be disrupted and someone else needs to print the file for me.

I will be with this group again on Monday.

Thank you.

 

Win 7 and Win 10 on network

I have home network with separate modem, router, and WAP's. My Windows 7 computer does NOT list the Windows 10 computers on network computer list but the Windows 10 computers network list DO list the Windows 7 computer.

Turned off firewalls, gave permissions, shared drives. Nothing allows Win 7 computer to access the Win 10 computers.

Any suggestions for a fix?