Discussion :

[mcimlb]

Bonjour,

je cherche a develooper sous ACCESS un module qui fait des envoi TCP

j'utilise mswinsck.ocx

celui-ci est bien dans mes références

j'utilise juste le code suivant :

mais dès le lancement de l'exécution j'ai une reeur d'exécution 91 :
"variable d'objet ou variable de block with non définie"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim winsock1 As Winsock
 
 
Private Sub Ws1_connect()
On Error GoTo Err_bt_test_Click
 
 
   winsock1.Close
   winsock1.LocalPort = 0
   winsock1.RemoteHost = global_adresseIp
   winsock1.RemotePort = global_port
   winsock1.Connect
 
Exit_bt_test_Click:
    Exit Sub
 
Err_bt_test_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_bt_test_Click
 
End Sub

Je développe sous ACCESS 2003

d'avance merci

[Arkham46]

bjr,

il faut instancier l'objet avant de l'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set winsock1 = New Winsock

et pour libérer l'objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set winsock1 = Nothing