Mozda je do klijenta?
Napravi sistem logovanja svih akcija koje se desavaju dok program radi pa ces na taj nacin mozda skontati gdje je problem.
Code:
Public Sub Loguj(Upis As String)
Dim fsl As FileSystemObject
Dim ts As TextStream, Dat As File, ff As Integer, Datum As String
Datum = Format(Date, "yyyy.MM.dd")
Set fsl = New FileSystemObject
If fsl.FolderExists(App.Path & "\Log\") = False Then fsl.CreateFolder (App.Path & "\Log\")
If fsl.FileExists(App.Path & "\Log\Log_" & Datum & ".log") = False Then
fsl.CreateTextFile (App.Path & "\Log\Log_" & Datum & ".log")
End If
ff = FreeFile
Open App.Path & "\Log\Log_" & Datum & ".log" For Append As #ff
Print #ff, Upis
Close #ff
End Sub
Pozivas ovu proceduru i saljes joj sta ce upisivati. Upisuj sve, konekcija otvorena, zatvorena, stanje servera, pa i poruke koje prosledjuje. Sto vise stvari upises, lakse ces analizom log fajla doci do rjesenja.
U ovakvim problemima kao sto ti imas po meni je ovaj sistem najbolji.
Pozdrav
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'