mas Gunawan Indra, listingnya tolong dirapiin donk, jadinya kita semua gak bisa lihat, betul gak temen2 yang expert, saya juga belajar jadi bingung nih bacanya source code nya
----- Pesan Asli ---- Dari: Gunawan Indra <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Senin, 7 Juli, 2008 15:39:44 Topik: [indoprog-vb] Tolong bantuannya.... tentang DDE 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, "TransmitTerminalKe y rcIbmPf9Key" GoSub Wait2Ready DDEPoke Chan, "R5C13:R5C13" , "1" DDEExecute Chan, "TransmitTerminalKe y 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, "TransmitTerminalKe y rcIbmEnterKey" GoSub Wait2Ready ElseIf InStr(1, DDERequest(Chan, "R1C30:R1C50" ), "REPORT STATUS DISPLAY") = 1 Then DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute Chan, "TransmitTerminalKe y rcIbmPf3Key" GoSub Wait2Ready ElseIf InStr(1, DDERequest(Chan, "R1C27:R1C50" ), "REMOTE PRINTER CONTROL") = 1 Then DDEExecute Chan, "TransmitTerminalKe y rcIBMClearKey" DDEExecute Chan, "TransmitTerminalKe y rcIBMClearKey" DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute Chan, "TransmitTerminalKe y rcIbmPf3Key" GoSub Wait2Ready Else DDEPoke Chan, "R22C7:R22C70" , " " DDEPoke Chan, "R23C15:R23C23" , "123.8.55" DDEExecute Chan, "TransmitTerminalKe y rcIbmEnterKey" GoSub Wait2Ready End If DDEExecute Chan, "TransmitTerminalKe y 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 [Non-text portions of this message have been removed] ___________________________________________________________________________ Yahoo! sekarang memiliki alamat Email baru. Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/ [Non-text portions of this message have been removed]
