terimakasih banyak mas Aksan atas pencerahanya....muantabbb.....dengan coding ini sekarang sudah tidak acak-acakan lagi
regards CW ----- Original Message ----- From: "aksankurdin" <[email protected]> To: [email protected] Date: 28 April 2010 07:52 Subject: field acak-acakan > > Private Sub CmdShipment_Click() > On Error GoTo Err_CmdShipment_Click > > Dim stDocName As String > > stDocName = "RptShipment" > DoCmd.OpenReport stDocName, acPreview > > 'aksan start: > 'Contoh dengan outputto excel based on recordsource sub form > DoCmd.OutputTo acOutputQuery, Me.[QryShipmentDetail > Subform].Form.RecordSource, acFormatXLS, "d:\projects\test.xls", True > 'aksan end ----- > > Exit_CmdShipment_Click: > Exit Sub > > Err_CmdShipment_Click: > MsgBox Err.Description > Resume Exit_CmdShipment_Click > > End Sub > > aksan kurdin > - Perlihatkan kutipan teks - > > ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/belajar-access/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/belajar-access/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
