Hello temen2 yang lebih expert....
Saya ada buat program dari Microsoft Access dengan contoh listing seperti di
bawah....
Saya sudah coba buat di VD dengan listing sama persis. tapi program todak bisa
di jalankan (maaf error message nya saya lupa)
apakah penyebabbya karena missing component yang tentang DDE. atau yang
lainnya...
Mohon banytuannya dari teman2 yang lebih expert.
quote:
Private Sub CmdBooking_Click() Dim i As Byte Dim Chan, Before,
Complete Dim CurVoy As String Dim CurBkg As String Chan =
DDEInitiate("R8WIN", "Control") If InStr(1, DDERequest(Chan,
"R3C14:R3C29"), "INITIAL DISPLAY.") = 1 Then DDEExecute Chan,
"TransmitTerminalKey rcIbmPf9Key" GoSub Wait2Ready
DDEPoke Chan, "R5C13:R5C13", "1" DDEExecute Chan, "TransmitTerminalKey
rcIbmEnterKey" GoSub Wait2Ready Dim LogId, LogPass As
String LogId = InputBox("Your Login for APCA mainframe was
Disconnected, Please enter your Login ID...?") LogPass =
InputBox("Please enter your Password...?") DDEPoke Chan,
"R18C33:R18C40", LogId DDEPoke Chan, "R18C54:R18C61", LogPass
DDEPoke Chan, "R23C15:R23C22", "123.8.55" DDEExecute Chan,
"TransmitTerminalKey rcIbmEnterKey" GoSub Wait2Ready ElseIf InStr(1,
DDERequest(Chan, "R1C30:R1C50"), "REPORT STATUS DISPLAY") = 1 Then
DDEPoke Chan, "R23C15:R23C23", "123.8.55" DDEExecute Chan,
"TransmitTerminalKey rcIbmPf3Key" GoSub Wait2Ready ElseIf InStr(1,
DDERequest(Chan, "R1C27:R1C50"), "REMOTE PRINTER CONTROL") = 1 Then
DDEExecute Chan, "TransmitTerminalKey rcIBMClearKey" DDEExecute Chan,
"TransmitTerminalKey rcIBMClearKey" DDEPoke Chan,
"R23C15:R23C23", "123.8.55" DDEExecute Chan, "TransmitTerminalKey
rcIbmPf3Key" GoSub Wait2Ready Else DDEPoke Chan,
"R22C7:R22C70", " "
DDEPoke Chan, "R23C15:R23C23", "123.8.55" DDEExecute Chan,
"TransmitTerminalKey rcIbmEnterKey" GoSub Wait2Ready End If
DDEExecute Chan, "TransmitTerminalKey rcIbmPf12Key" GoSub Wait2Ready
Wait2Ready: Do While Left$(DDERequest(Chan, "R26C9:R26C9"), 1) =
Chr(246) For i = 1 To 100 Next i Loop Return
Off:DDETerminate ChanFor i = 1 To 200 BeepNext i'LblInfo.Caption = "Please
remenber the above LI number"'LblInfo.Visible = True
MsgBox ("Already Create the Local Invoice number, please check")
End Subend quote
thanks.
Indra
_________________________________________________________________
NEW! Get Windows Live FREE.
http://www.get.live.com/wl/all
