0,00645481628599801.
O que deveria aparecer era 26/02/2014. O que devo fazer? Abaixo o código que uso no botão e o método para inserção no "banco" (planilha excel".
Public Sub cadastraItem(codigo As Integer, produto As String, categoria As String, quantidade As Integer, precoUn As Currency, precoTotal As Currency, lote As Long, data As Date)
Dim query As String
query = "insert into [Almoxarifado$]([codigo], [produto], [categoria], [quantidade], [precoUn], [precoTotal], [lote], [data]) values(" & codigo & " ,'" & produto & "', '" & categoria & "', '" & quantidade & "', '" & precoUn & "', '" & precoTotal & "', '" & lote & "', '" & data & "')"
Call abrirBanco
Banco.Execute query
query = vbNullString
Call FecharBanco
End Sub
Private Sub btCadastrar_Click()
Dim data As Date
data = Format(CDate(Me.Date1_Tb.Text), "dd/mm/yyyy")
If (Me.optNovoCadastro) Then
On Error GoTo erroCadastro
Call cadastraItem(Me.txtCodigo.Value, Me.txtProduto.Text, Me.txtCategoria.Text, Me.txtQuantidade.Value, Me.txtPrecoUn.Value, Me.txtPrecoTotal.Value, Me.txtLote.Value, data)
MsgBox ("Cadastro efetuado com sucesso.")
End If
limpaCampos
Me.txtCodigo.Value = Plan3.Range("H2") + 1
Me.Date1_Tb = Date
Me.txtLote.Value = Me.txtCodigo.Value & "0" & Format(Now, "ww") & "0" & Format(Now, "yy")
Exit Sub
'Tratamento de erros
erroCadastro:
MsgBox ("O cadastro não pode ser concluído. Contate o administrador do sistema para detecção do erro. Erro: " & Error)
limpaCampos
Call FecharBanco
Hide
End Sub
Como devo proceder nesse caso?
|