boa tarde
Como aumentar quantidade caracteres caixa de texto desaclopada
preciso mais do que 255
pois to usando esse codigo e chamo ele numa caixa de texto desaclopada num relatorio
Public Function EstoqueInter()
Parametros_de_Usuarios "SysUsuario.par"
Parametros_de_Empresa "SysEmpresa.par"
Call fncAbreConexao(102030)
Dim rsq, rsT, RSE As DAO.Recordset
Dim strSQL, StrSQLS, strSqLE As String
strSQL = "SELECT Dados.Cód, Dados.Descricao, Dados.Idunidade, Dados.Qde, Dados.Cto_medio, [qde]*[cto_medio] AS Total " & vbCrLf & _
"FROM Dados " & vbCrLf & _
"WHERE (((Dados.Qde)>0) AND ((Dados.Cto_medio)>0)) " & vbCrLf & _
"ORDER BY Dados.Descricao;"
Set rsT = Db.OpenRecordset(strSQL)
Dim LS As Byte
Dim C1, C2, C3, C4 As String
Dim pag, pagi, i As Byte
Dim acum As Single, acd As Single
Dim valorTotal As Single
Dim Equant As Single
valorTotal = 0
acum = 0
acd = 0
pag = 1
LS = 83
Dim C1, C2, C3, C4 As String
C1 = "RELATORIO DE ESTOQUE DO ANO.: " & Format(Now, "yyyy")
C2 = "Razao.: " & XEmpresa
C3 = "Endereco.: " & Xendereco & "-" & Xbairro & "-" & Xcidade & "-" & xuf
C4 = "Cnpj.: " & Xcnpj & "-InscEst.: " & Xie & "-Email.:" & Xemail
H_D = Format(StrConv(Left(C1, 65), 2, 1049), ">")
H_D = H_D & Space(65 - Len(H_D))
H_c = Format(StrConv(Left(C2, 91), 2, 1049), ">")
H_c = H_c & Space(91 - Len(H_c))
H_A = Format(StrConv(Left(C3, 101), 2, 1049), ">")
H_A = H_A & Space(101 - Len(H_A))
H_B = Format(StrConv(Left(C4, 101), 2, 1049), ">")
H_B = H_B & Space(101 - Len(H_B))
Do While Not rsT.EOF
If LS >= 83 Then
pag = pag + 1
If acum > 0 Then
EstoqueInter = EstoqueInter & Space(55) & "VALOR A TRANSPORTAR PARA PAGINA " & pag & "..: " & Format(acum, "standard") & vbCrLf
End If
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_D & "DATA IMPRESSAO.: " & Now & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_c & "Pagina.: " & pag & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_A & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_B & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & "| CODIGO | DESCRICAO |UNI | QUANT| V.UNIT| V.TOTAL|" & vbCrLf
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
LS = 8
End If
h_Descr = Format(StrConv(Left(strMeng & rsT!Descricao, 51), 2, 1049), ">")
h_Descr = h_Descr & Space(51 - Len(h_Descr))
d_Cod = String(10 - Len(rsT!cód), "0") & rsT!cód
Sai = Space(0) & "|" & JustStr(d_Cod, " ", 10, True) & "|" & Space(0) & "" & JustStr(h_Descr, " ", 51) & "|" & Space(1) & JustStr(rsT!Idunidade, " ", 3) & "|" & Space(1) & JustStr(Format(rsT!Qde, "#,###0.00"), " ", 6, True) & "|" & Space(1) & JustStr(Format(rsT!Cto_medio, "#,###0.00"), " ", 11, True) & "|" & Space(1) & JustStr(Format(Nz(rsT!total), "#,###0.00"), " ", 11, True) & "|"
EstoqueInter = EstoqueInter & Sai & vbCrLf
LS = LS + 1
acum = acum + (rsT!total)
rsT.MoveNext
If LS = 83 Then
For i = 1 To 83
Next i
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
End If
Loop
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & Space(71) & " Valor do Estoque.: " & Format(acum, "standard") & vbCrLf
EstoqueInter = EstoqueInter & vbCrLf
End Function
Como aumentar quantidade caracteres caixa de texto desaclopada
preciso mais do que 255
pois to usando esse codigo e chamo ele numa caixa de texto desaclopada num relatorio
Public Function EstoqueInter()
Parametros_de_Usuarios "SysUsuario.par"
Parametros_de_Empresa "SysEmpresa.par"
Call fncAbreConexao(102030)
Dim rsq, rsT, RSE As DAO.Recordset
Dim strSQL, StrSQLS, strSqLE As String
strSQL = "SELECT Dados.Cód, Dados.Descricao, Dados.Idunidade, Dados.Qde, Dados.Cto_medio, [qde]*[cto_medio] AS Total " & vbCrLf & _
"FROM Dados " & vbCrLf & _
"WHERE (((Dados.Qde)>0) AND ((Dados.Cto_medio)>0)) " & vbCrLf & _
"ORDER BY Dados.Descricao;"
Set rsT = Db.OpenRecordset(strSQL)
Dim LS As Byte
Dim C1, C2, C3, C4 As String
Dim pag, pagi, i As Byte
Dim acum As Single, acd As Single
Dim valorTotal As Single
Dim Equant As Single
valorTotal = 0
acum = 0
acd = 0
pag = 1
LS = 83
Dim C1, C2, C3, C4 As String
C1 = "RELATORIO DE ESTOQUE DO ANO.: " & Format(Now, "yyyy")
C2 = "Razao.: " & XEmpresa
C3 = "Endereco.: " & Xendereco & "-" & Xbairro & "-" & Xcidade & "-" & xuf
C4 = "Cnpj.: " & Xcnpj & "-InscEst.: " & Xie & "-Email.:" & Xemail
H_D = Format(StrConv(Left(C1, 65), 2, 1049), ">")
H_D = H_D & Space(65 - Len(H_D))
H_c = Format(StrConv(Left(C2, 91), 2, 1049), ">")
H_c = H_c & Space(91 - Len(H_c))
H_A = Format(StrConv(Left(C3, 101), 2, 1049), ">")
H_A = H_A & Space(101 - Len(H_A))
H_B = Format(StrConv(Left(C4, 101), 2, 1049), ">")
H_B = H_B & Space(101 - Len(H_B))
Do While Not rsT.EOF
If LS >= 83 Then
pag = pag + 1
If acum > 0 Then
EstoqueInter = EstoqueInter & Space(55) & "VALOR A TRANSPORTAR PARA PAGINA " & pag & "..: " & Format(acum, "standard") & vbCrLf
End If
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_D & "DATA IMPRESSAO.: " & Now & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_c & "Pagina.: " & pag & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_A & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|" & H_B & "|" & vbCrLf
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & "| CODIGO | DESCRICAO |UNI | QUANT| V.UNIT| V.TOTAL|" & vbCrLf
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
LS = 8
End If
h_Descr = Format(StrConv(Left(strMeng & rsT!Descricao, 51), 2, 1049), ">")
h_Descr = h_Descr & Space(51 - Len(h_Descr))
d_Cod = String(10 - Len(rsT!cód), "0") & rsT!cód
Sai = Space(0) & "|" & JustStr(d_Cod, " ", 10, True) & "|" & Space(0) & "" & JustStr(h_Descr, " ", 51) & "|" & Space(1) & JustStr(rsT!Idunidade, " ", 3) & "|" & Space(1) & JustStr(Format(rsT!Qde, "#,###0.00"), " ", 6, True) & "|" & Space(1) & JustStr(Format(rsT!Cto_medio, "#,###0.00"), " ", 11, True) & "|" & Space(1) & JustStr(Format(Nz(rsT!total), "#,###0.00"), " ", 11, True) & "|"
EstoqueInter = EstoqueInter & Sai & vbCrLf
LS = LS + 1
acum = acum + (rsT!total)
rsT.MoveNext
If LS = 83 Then
For i = 1 To 83
Next i
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
End If
Loop
EstoqueInter = EstoqueInter & "|-----------------------------------------------------------------------------------------------------|" & vbCrLf
EstoqueInter = EstoqueInter & Space(71) & " Valor do Estoque.: " & Format(acum, "standard") & vbCrLf
EstoqueInter = EstoqueInter & vbCrLf
End Function