Que hago mal?
Publicado por Sandra Veronica (203 intervenciones) el 08/10/2007 17:29:51
Hola a todos. Serían tan amables de mirar este código. Es una MSGBox que al presionar "Aceptar" deberia hacer una exportacion, pero el tema es que no entra al IF. Alguien me ayuda y me dice que estoy haciendo mal?
Saludos
Sandra!
*****************************************************
Private Sub Comando50_Click()
Dim RCliName As String
Dim CliName As String
Dim ValBtn As Integer
RCliName = Replace(Me.nombre, ".", "")
CliName = RCliName & " MC= " & Format(Left(Me.FechaCreac, 10), "dd-mm-yyyy") & " S= " & Format(Left(Me.FechaCreac1, 10), "dd-mm-yyyy")
ValBtn = vbInformation + vbOKCancel
MsgBox "Se Creará un Archivo con el nombre: " & Chr(13) & _
CliName & Chr(13) & _
"en la carpeta 'Mis Documentos'", ValBtn, "Exportar"
If ValBtn = VbOk Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "SAP_Detalle_Final", CliName
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Consu Detalle_Mic_Calipso", CliName
MsgBox "Exportación Finalizada", vbInformation + vbOKOnly, "Exportar"
End If
End Sub
Saludos
Sandra!
*****************************************************
Private Sub Comando50_Click()
Dim RCliName As String
Dim CliName As String
Dim ValBtn As Integer
RCliName = Replace(Me.nombre, ".", "")
CliName = RCliName & " MC= " & Format(Left(Me.FechaCreac, 10), "dd-mm-yyyy") & " S= " & Format(Left(Me.FechaCreac1, 10), "dd-mm-yyyy")
ValBtn = vbInformation + vbOKCancel
MsgBox "Se Creará un Archivo con el nombre: " & Chr(13) & _
CliName & Chr(13) & _
"en la carpeta 'Mis Documentos'", ValBtn, "Exportar"
If ValBtn = VbOk Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "SAP_Detalle_Final", CliName
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Consu Detalle_Mic_Calipso", CliName
MsgBox "Exportación Finalizada", vbInformation + vbOKOnly, "Exportar"
End If
End Sub
Valora esta pregunta
0