Please don't PM me or anyone else in response to posts about solutions. The purpose of this forum is to publicly make solutions available to all.
In response to your PM, this is what I was suggesting:
Code:
Public Sub OpenJde_Click()
Dim Link As String
Dim LResponse As Integer
Dim Browser as Object
If (IsNull(JdeWo) Or JdeWo = "") Then
LRresponse = MsgBox("JDE WO není není vyplneno!", vbOKOnly, "Info")
Else
Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"
testtext.Value = Link
As for Option Explicit, it should be the second line at the top of each module:
Code:
Option Compare Database
Option Explicit