COMBOBOX
Bom dia...
Sou novo no fórum...
estou com seguinte problema...
Set uma recordset rsP buscando alguns dados de duas tabelas,
Quando seto o Data1.Recordset = rsP da um erro e sai do sistema...
tenho outras versoes do software que faz a mesma rotina e não da erro somente em uma versao...
se alguem souber agradeço...
Sou novo no fórum...
estou com seguinte problema...
Set uma recordset rsP buscando alguns dados de duas tabelas,
Quando seto o Data1.Recordset = rsP da um erro e sai do sistema...
tenho outras versoes do software que faz a mesma rotina e não da erro somente em uma versao...
se alguem souber agradeço...
Explique melhor e se poder passe o codigo que esta apresentando este erro
Poste a DESCRIÇÃO do erro.
segue o código...
Private Sub ListaPessoas(ByVal IndiceTipo As Long)
Dim rsTipoPess As DAO.Recordset
1 On Error GoTo ListaPessoas_Error
2 IndiceTipo = IndiceTipo + 1
3 Set rsTipoPess = DB.OpenRecordset([Ô]SELECT iif(Pessoa_Fisica,Nome,Razao_Social)as Nm,Chave from Pessoas where Mid(Tipo,[Ô] & IndiceTipo & [Ô],1)=[ô]1[ô][Ô])
4 cmbPessoa.Clear
5 With rsTipoPess
6 Do Until .EOF
7 cmbPessoa.addItem UCase(!nm & [Ô][Ô])
8 cmbPessoa.ItemData(cmbPessoa.NewIndex) = !Chave
9 .MoveNext
10 Loop
11 .Close
12 End With
13 Set rsTipoPess = Nothing
14 ALTERA_LARGURA_DROPCOMBO cmbPessoa
15 On Error GoTo 0
16 Exit Sub
ListaPessoas_Error:
17 LOG_ERRO Err.Description, Err.Number, Erl, [Ô]frmPedidoVenda.ListaPessoas[Ô]
End Sub
Private Sub ListaPessoas(ByVal IndiceTipo As Long)
Dim rsTipoPess As DAO.Recordset
1 On Error GoTo ListaPessoas_Error
2 IndiceTipo = IndiceTipo + 1
3 Set rsTipoPess = DB.OpenRecordset([Ô]SELECT iif(Pessoa_Fisica,Nome,Razao_Social)as Nm,Chave from Pessoas where Mid(Tipo,[Ô] & IndiceTipo & [Ô],1)=[ô]1[ô][Ô])
4 cmbPessoa.Clear
5 With rsTipoPess
6 Do Until .EOF
7 cmbPessoa.addItem UCase(!nm & [Ô][Ô])
8 cmbPessoa.ItemData(cmbPessoa.NewIndex) = !Chave
9 .MoveNext
10 Loop
11 .Close
12 End With
13 Set rsTipoPess = Nothing
14 ALTERA_LARGURA_DROPCOMBO cmbPessoa
15 On Error GoTo 0
16 Exit Sub
ListaPessoas_Error:
17 LOG_ERRO Err.Description, Err.Number, Erl, [Ô]frmPedidoVenda.ListaPessoas[Ô]
End Sub
desconsidere o código acima, é de outro problema
segue o código...
Private Sub ListaPedidos()
Dim rsP As Recordset
Dim QSQL As String
1 On Error GoTo ListaPedidos_Error
2 QSQL = [Ô]SELECT P.NumDoc AS [Nº DOC], iif(pe.pessoa_fisica,nome,razao_social) as Pessoa, P.Data, iif(p.pendente,[ô]ABERTO[ô],[ô]FECHADO[ô]) as STATUS,[Ô]
3 QSQL = QSQL & [Ô] Choose(P.TIPO+1,[ô]ORÇAMENTO[ô],[ô]PEDIDO[ô],[ô]O.S[ô]) AS CLASSIFICAÇÃO, P.Chave [Ô]
QSQL = QSQL & [Ô] FROM PEDIDOSDEVENDA AS P LEFT JOIN Pessoas pe ON P.ChavePessoa = Pe.Chave ORDER BY P.NUMDOC DESC[Ô]
[ô]4 QSQL = QSQL & [Ô] FROM PEDIDOSDEVENDA AS P LEFT JOIN Pessoas pe ON P.ChavePessoa = Pe.Chave;[Ô]
5 Set rsP = DB.OpenRecordset(QSQL, dbOpenDynaset)
6 Set Data1.Recordset = rsP
7 For i = 0 To Ordenar.UBound
8 flexPedidos.ColWidth(i) = Ordenar(i).width
9 Next
10 flexPedidos.ColWidth(i) = 0
11 Set rsP = Nothing
AtualizaRelacao
12 On Error GoTo 0
13 Exit Sub
ListaPedidos_Error:
14 LOG_ERRO Err.Description, Err.Number, Erl, [Ô]frmListaPedidos.ListaPedidos[Ô]
End Sub
segue o código...
Private Sub ListaPedidos()
Dim rsP As Recordset
Dim QSQL As String
1 On Error GoTo ListaPedidos_Error
2 QSQL = [Ô]SELECT P.NumDoc AS [Nº DOC], iif(pe.pessoa_fisica,nome,razao_social) as Pessoa, P.Data, iif(p.pendente,[ô]ABERTO[ô],[ô]FECHADO[ô]) as STATUS,[Ô]
3 QSQL = QSQL & [Ô] Choose(P.TIPO+1,[ô]ORÇAMENTO[ô],[ô]PEDIDO[ô],[ô]O.S[ô]) AS CLASSIFICAÇÃO, P.Chave [Ô]
QSQL = QSQL & [Ô] FROM PEDIDOSDEVENDA AS P LEFT JOIN Pessoas pe ON P.ChavePessoa = Pe.Chave ORDER BY P.NUMDOC DESC[Ô]
[ô]4 QSQL = QSQL & [Ô] FROM PEDIDOSDEVENDA AS P LEFT JOIN Pessoas pe ON P.ChavePessoa = Pe.Chave;[Ô]
5 Set rsP = DB.OpenRecordset(QSQL, dbOpenDynaset)
6 Set Data1.Recordset = rsP
7 For i = 0 To Ordenar.UBound
8 flexPedidos.ColWidth(i) = Ordenar(i).width
9 Next
10 flexPedidos.ColWidth(i) = 0
11 Set rsP = Nothing
AtualizaRelacao
12 On Error GoTo 0
13 Exit Sub
ListaPedidos_Error:
14 LOG_ERRO Err.Description, Err.Number, Erl, [Ô]frmListaPedidos.ListaPedidos[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas