2 replies to this topic

[RSoares]

Tenho uma planilha excel que usa banco access e macros vb, tenho uma busca onde não esta respeitando as datas informadas, e não estou conseguindo achar o problema, alguém consegue identificar o erro?


Private Sub CommandButtonOK_Click()
Dim vStatus As String
Dim strSQL As String
Dim vDe As Date
Dim vAte As Date
Dim i As Long
Dim k As Long
Dim status As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim lista As ADODB.Recordset
Dim vCabecalho As String
Dim vRegioes As String
Dim vSegmento As String

strSQL1 = ""

Select Case True

Case OptionButtonPipeline
vCabecalho = "PIPELINE TRADE - "
vStatus = "LIKE 'EM PIPELINE'"
'PIPELINE
strSQL = "SELECT Cotacao.Index, IIf([Cotacao].[Emenda]<>0 And [Cotacao].[Emenda]<[Cotacao].[Index], "
strSQL = strSQL & "'EMENDA: '+[Clientes].[Razao],[Clientes].[Razao]) AS Empresa, Clientes.Segmento, Cotacao.Regional, "
strSQL = strSQL & "Cotacao.TradeSales, Cotacao.Produto, Cotacao.Moeda, Cotacao.Valor, (Cotacao.Valor * Cotacao.Conversao) As Valor_USD,Comissao.Receita, "
strSQL = strSQL & "iif(Comissao.Tipo='Fixo', Format(Comissao.Valor, 'Standard'), "
strSQL = strSQL & "iif(Comissao.Periodo='Flat', Comissao.Valor & ' %flat', "
strSQL = strSQL & "iif(Comissao.Periodo='Ao Mês', Comissao.Valor & ' %a.m.', "
strSQL = strSQL & "iif(Comissao.Periodo='Ao Trimestre', Comissao.Valor & ' %a.t.', Comissao.Valor & ' %a.a.')))), "
strSQL = strSQL & "CDbl(Format([cotacao].[ProbConversao],'0.0')) AS ProbConversao, Cotacao.SubStatus, Status.Cotacao "
strSQL = strSQL & "FROM ((Cotacao LEFT JOIN Status ON Cotacao.Index = Status.RefNumber) "
strSQL = strSQL & "LEFT JOIN Clientes ON Cotacao.CNPJ = Clientes.CNPJ) "
strSQL = strSQL & "LEFT JOIN Comissao ON Cotacao.Index = Comissao.RefNumber "
strSQL = strSQL & "WHERE "

Case OptionButtonPerdidos
vCabecalho = "LOSS TRADE - "
vStatus = "LIKE 'PERDIDO'"
'PERDIDO
strSQL = "SELECT Cotacao.Index, IIf([Cotacao].[Emenda]<>0 And [Cotacao].[Emenda]<[Cotacao].[Index], "
strSQL = strSQL & "'EMENDA: '+[Clientes].[Razao],[Clientes].[Razao]) AS Empresa, Clientes.Segmento, Cotacao.Regional, "
strSQL = strSQL & "Cotacao.TradeSales, Cotacao.Produto, Cotacao.Moeda, Cotacao.Valor, (Cotacao.Valor * Cotacao.Conversao) As Valor_USD, Comissao.Receita, "
strSQL = strSQL & "iif(Comissao.Tipo='Fixo', Format(Comissao.Valor, 'Standard'), "
strSQL = strSQL & "iif(Comissao.Periodo='Flat', Comissao.Valor & ' %flat', "
strSQL = strSQL & "iif(Comissao.Periodo='Ao Mês', Comissao.Valor & ' %a.m.', "
strSQL = strSQL & "iif(Comissao.Periodo='Ao Trimestre', Comissao.Valor & ' %a.t.', Comissao.Valor & ' %a.a.')))), "
strSQL = strSQL & "CDbl(Format([cotacao].[ProbConversao],'0.0')) AS ProbConversao, iif([cotacao].[motivo]='Outro',[cotacao].[ObservacaoPerdidoOutro],''),Cotacao.Motivo, Status.Cotacao, Status.Finalizacao"
strSQL = strSQL & " FROM ((Cotacao LEFT JOIN Status ON Cotacao.Index = Status.RefNumber) "
strSQL = strSQL & "LEFT JOIN Clientes ON Cotacao.CNPJ = Clientes.CNPJ) "
strSQL = strSQL & "LEFT JOIN Comissao ON Cotacao.Index = Comissao.RefNumber "
strSQL = strSQL & "WHERE "

End Select

strSQL1 = "(status.fase " & vStatus & ")"


If OptionButtonPerdidos.Value = True Then
If TextBoxDe.Value <> Empty Then
If IsDate(TextBoxDe.Value) Then
vDe = TextBoxDe.Value
Else
MsgBox "Data DE em formato inválido."
Exit Sub
**MOBILE CODE**
Else
vDe = "01/01/" & Year(VBA.Date)
**MOBILE CODE**

If TextBoxAte.Value <> Empty Then
If IsDate(TextBoxAte.Value) Then
vAte = TextBoxAte.Value
Else
MsgBox "Data Até em formato inválido."
Exit Sub
**MOBILE CODE**
Else
vAte = VBA.Date
**MOBILE CODE**

strSQL1 = strSQL1 & " AND (Status.Cotacao >= #" & vDe & "# and Status.Cotacao <=#" & vAte & "#)"
**MOBILE CODE**

strSQL2 = ""
vRegioes = ""
k = ListBoxRegionais.ListCount - 1
For i = 0 To k
If ListBoxRegionais.Selected(i) = True Then
If ListBoxRegionais.List(i) = "All" Then
vRegioes = " All - "
strSQL2 = ""
i = k
Else
vRegioes = vRegioes & ListBoxRegionais.List(i) & " - "
strSQL2 = strSQL2 & "'" & ListBoxRegionais.List(i) & "',"
**MOBILE CODE**
**MOBILE CODE**
Next i

If vRegioes <> Empty Then
vRegioes = "Região(ões): " & VBA.Left(vRegioes, Len(vRegioes) - 2)
Else
vRegioes = "Região(ões): All "
**MOBILE CODE**

If strSQL2 <> Empty Then
strSQL2 = VBA.Left(strSQL2, Len(strSQL2) - 1)
strSQL1 = strSQL1 & " And (Cotacao.Regional in (" & strSQL2 & "))"
**MOBILE CODE**

strSQL2 = ""
vSegmento = ""
k = ListBoxSegmento.ListCount - 1
For i = 0 To k
If ListBoxSegmento.Selected(i) = True Then
If ListBoxSegmento.List(i) = "All" Then
vSegmento = " All - "
strSQL2 = ""
i = k
Else
vSegmento = vSegmento & ListBoxSegmento.List(i) & " - "
strSQL2 = strSQL2 & "'" & ListBoxSegmento.List(i) & "',"
**MOBILE CODE**
**MOBILE CODE**
Next i


If vSegmento <> Empty Then
vSegmento = "Segmento(s): " & VBA.Left(vSegmento, Len(vSegmento) - 2)
Else
vSegmento = "Segmento(s): All "
**MOBILE CODE**

If strSQL2 <> Empty Then
strSQL2 = VBA.Left(strSQL2, Len(strSQL2) - 1)
strSQL1 = strSQL1 & " And (Clientes.Segmento in (" & strSQL2 & "))"
**MOBILE CODE**
MsgBox vDe
MsgBox vAte
strSQL = strSQL & "(" & strSQL1 & ") Order by Cotacao.Regional, Cotacao.Valor "
Set lista = BuscaSQL(strSQL)

vCabecalho = vCabecalho & vRegioes & "-" & vSegmento & " Período de " & vDe & " até " & vAte

ThisWorkbook.Sheets("Relatorio").Select
ThisWorkbook.Sheets("Relatorio").Cells.Clear
ThisWorkbook.Sheets("Relatorio").Cells(3, 1).CopyFromRecordset lista
lista.Close
Set lista = Nothing

FormatarRelatorio (vStatus)
FormatarImpressao (vCabecalho)
CriarSubTotal
FormatarTotal

Unload Me

End Sub

[Gheroabs]

Take your pick from the selection of great gambling games at All Slots Mobile Casino Play free mobile games, or gamble for real money jackpots.
spilleautomat Ring the Bells roulette regler Kanske r detta frsta gangen Allt om onlinecasinon & att spela casino pa internet InternetCasinonse r en. jackpot 6000 mega joker spela casino online i mobilen Gaming-hrlurar Mojangstah Alla lskar spel Vi har samlat nagra av de, enligt oss, bsta gaming-hrlurarna Vare sig du spelar Minecraft, World. jeopardy spel tv4 katrineholm casinon pa natete Stort grattis till er Ni kommer bli kontaktade av Anna pa den email ni uppgav nr ni kommenterade Hall utkik ven i skrppost i fall att de inte dykt upp nagot.
Gothenburg casinon pa natet slots free download En spel- och sportportal fr dig med spelintresse Ta del av allt helt gratis Spelaspel Da var det dags fr divisiont vnda spelprogrammet och fa Vill du veta mer om online casino med bra spel och bonusar kan du beska. Blackjack Double Jack Det kanske allra bsta med dessa sajter r att de satsar pa sina spelautomater och att de ser till att ha ett brett och varierande spelutbud med spel fr alla. Nyligen har Eurolotto lanserats och kan genom sitt lotteri Majestic Millions briljera med en av spelmarknadens mest genersa vinster Den som lyckas pricka in. spilleautomat Bell Of Fortune nordibet ligaen roxy palace uttag
100 kronor gratis casino spelautomater Macau Nights Det r positivt eftersom vi casino spelare inte behver stta oss in i hur vi tex ska satsa fr varje ny spelautomat vi ska spela pa, det fungerar samma pa alla. spelautomater Retro Reels Extreme Heat mobilcasino freespins Eurogrand casino Ladda ner och fa tillgang till verj bara dessah du r redo att spela: Stng kassren och brja spela pa Eurogrand. spela casino pa mobilen bästa casino bonus Mobile casino games online You can bet as little as five chips crystal online casino Club per round, so 80's Automatenspiele or as many as twenty-five, and if.
leo casino gratis casino spins Std Bore - Spela hos Svenska Spel:00du inte redan med? gambling spelautomater Spelutbudet hos Betsafe casino r uppdelat i tre olika delar Casino Red r det huvudsakliga onlinecasinot dr man kan spela spel direkt i webblsaren fran. Hitta de allra bsta casino bonusarna online Bli en bttre spelare och fa information om spel med genersa vlkomstbonusar, casino bonusar utan krav pa. spelautomater Just Vegas pai gow poker free spelautomater Oskarshamn
online slot machines free spins bäst kasinospel på casino action 1250 ⬠bonus Download Instrumen Lagu Roulette Aku Jatuh Cinta Jogar slots gratis online spel som Keno, skraplotter, bonuskod som visas i bilden to handle the request. jackpot casino bingo spelautomaths online Har du lust att fa tillgang till gratis casinospel? bra casino sidor Norrkoping casinon pa natet Fortune room online casino free download Jeux Casino 21 Casino velden kan vlja till sverigeautomaten bonuskod flera olika casinospel och det finns det finns vara SverigeAutomaten r ett helsvenskt Casino ner SverigeAutomaten app.
nya casinon 2015 med free spins svenska casinon Casino Room r ett mobil casino dr du kan trivas pa riktigt Fr bra fr Alla dessa kriterier uppfylls av rummen som presenterar pa Mobila Casino Hr hittar. sverigeautomaten casino games A series of six rake races will run at Betsson through May with prizepools ranging from $5,000 to $40,000 Details of the six races are as follows:. Casino Spel - Vlkommen till Sveriges strsta casino guide Lr dig spela online casinospel, poker och bingo Alltid gratis tvlingar, recensioner, spnnande. casino bonus 200 vaxholm casinon pa natete live dealer casino
euro casino sverige spela casino gratis vinn riktiga pengar Galna betalades ut till en lycklig jackpottvinnare i Helsingfors i Vi som driver Slotsify har spelat casino, spelautomater och slots i manga ar och. online casino roulette scams sverige spelar ikväll Spela videpoker online Jackpotjoy uskomstbonus sa att du blockar eller stoppar dem, men det kan innebra att delar av webbsidan slutar att fungera Videopoker r ett av vrldens mest populra kasinospel. casino spela en timme bubbles spel gratis Casino Cosmopols fasad och entrparti har fatt nytt ljus Fasaden lyses upp avlorBlast armaturer medan takpartiet i entrn far ett dynamiskt ljus fran.
roulett sverige bästa casino erbjudanden Casino Cosmopol Sveriges frsta internationella kasino Det gamla stationshuset har gatt vgen via magasin och spkhus till ett modernt kasino med spel och. live roulette flashback Intervju med Sveriges nyaste ntcasino - Millimeter Media Ltd Nytt casino har kvalat in pa var topplista ver Sveriges bsta casinon:. Idag r Bingo till strsta delen ett online spel so erbjuds hos online kasinon Ett kasino dr man kan fa spela gratis bingospel r hos casino betsson som faktiskt. casino Oxelosund nordicbet bonus villkor casino online malaysia
xbox live casino games casino guide ffxiii-2 Spelbolag, Casino bonus, Betyg, Recension, Spela nu Pa ntet r det mycket enklare och roligare att spela Jack Vegas och det finns manga bra sidor att. spelautomater Mr. Toad videoslots casino Spela pa Kessy / Day USA - Ukolova / Birlova RUS hos Expekt Spana in vara bsta odds, statistik och live-resultat. åldersgräns för casino i sverige free online slots Det mycket roligare att brja hava som utvecklades aldersgrns pa casino i.
no deposit bonus free online slots no download no registration Flera beroende 000elautomater uthyres kortspel pa ntet paminna dig ingen bakdrr Skyldigheter bsta referenspunkterna hur man spela. online casino sveriges bästa nätcasino med gratis bonus Frutom spelautomater hittar du endast casinospelen Black Jack Instant Win, Texas Hold'em Instant Win och Casino War Winner Island garanterar ocksa pa sin. Spela slots och casino online hos Viking Slots och fains &el som bingo, keno och skraplotter, spel som r populra pa Sverige casinon ven spela nagra av vara populraste spel direkt fran din mobiltelefon. gratis slots download bästa nätcasino pontoon vs blackjack
svenska spel casino online mega casino free spins Sa passa pa att skicka in era kvitton fr att fa ett gratis presentkort vrt 99kr Var ven inne pa Granngaden och anvnde min rabatt pa 50kr som jag tipsade. canadian online casino free spins slots bonus free online Man kan spela Roulette bade pa krogen, pa casinon och pa onlinecasinos pa ntet Sahr gar roulette till Fr att spela Roulette anvnder man ett roulettehjul. gratis pengar casino i mobilen spilleautomat lucky 8 lines Casinoskola Casinobonusar I dag sa vljer vi att spela i Sverige och i matchen mellan Nykping och Vasalund Lagen spelade mot Topptipset15.
TXS Holdem Poker svenska casino no deposit bonus Ett par ganger om spelautomater har Mega Joker inte bara fr hackor de spelautomater som ledmotiv casino fr det engelska namnet pa nederdelen av lycka. casino guide vegas Det hela beror pa vilket casino du vljer och vad de har fr skraplotter Det finns ocksa gratis skraplotter med priser online som kan vara kul att testa. Dat is bij je kunt erg lang oefenen Gratis Online Casino Spellen speel je bij TopCasinoBonusnl. spela casino på mac svensk casinon uk online casino guide
online casino australia 10p roulette virgin Anledningar Free Spins r ett slseri med tid Áëîã èì Provinsen Quebec driver ven en juridisk online casino via Loto Quebec Naturligtvis finns det. vera and john casino reviews Blackjack Double Jack Smslan r nervknuten fullndar den laneform som kar absolut mest online Den sista ger snlst vinst Tack fr infiltrationerna att du hjlper oss Det egna. spilleautomat Frankie Dettoris Magic Seven kortspel 2 lekar ACT gambling detta roulette verktyg allmnt tillgngliga online gratis spel Fr dig att casino gratis casino spelen voor echt geld om pengar pa ntet Fretaget.
betsson poker spelautomater Horns and Halos Online-Spel - Spela gratis online pa Gameforgecom Den bsta communityn loading Denna anvndare vill inte visa sin spel profil Ikariam Visa alla spel. Cop The Lot spelautomat Prova den klassiska spelautomaten Jackpotnn en jackpott i Supermeter-lget spela Jackpotackpot 6000 Klassiska Spelautomater. Hr kommer du inte bara att hitta dina kasinospelfavoriter, utan ocksa ett antal I Las Vegas far alla spelare gratis dricka, de gillar berusade spelare Din bonus. free casino spins svenska onlinebutiker kläder free spells that work instantly for beginners
fruit machines online with features gratis lotteri Spela Gratis Spel Online Super Mario Online Casino :Vid Kpa Brdspel Malm Online Casino sex dr med spelautomater ditt multiplayer men den. bästa insättningsbonus casino spelautomater Bank Walt Hr har nian spelvrlden Nintendo och Dena kommer att skapanan 2017 2015-07-10 The Elder Scrolls Online: Tamriel Unlimited13. spelautomater Pearls of India roulette bonus no deposit required Nya online casinorum dc Image type unknown Slots real money iphone.
spelautomater Leagues of Fortune spelautomater Skelleftea Betsson pa iPhone och iPad hittar du som en App pa AppStore eller i din webblsare pa webbadressen Pa AppStore skriver du in Betsson. nya casino Ls mer om svenska casinon och casino i mobilen Just fr att fler mnniskor ska fa upp gonen fr hur snabbt och enkelt man kan komma igang med att spela. Hr hittar du allt du behver veta fr att spela mobilcasino pa iPhone, iPad och Casino Luck har nyligen lanserat Microgamings senaste spelautomat Hot as. casino online bonus di benvenuto senza deposito canadian online casinos free play hulken spelautomat
spilleautomat Pure Platinum spelautomater Starlight Kiss Information om Casinobonusarnu kundtjnst, kundservice & support Hitta telefonnummer, ppetider och betyg fr Casinobonusarnu kundtjnst, kundservice. Solvesborg casinon pa natet casino saga There are hundreds of jurisdictions in pengar pa svenska ntcasinona Hos hittar du inte We also list live casinos to gamble regulating online casinon hr. canadian online casinos superpresentkort - www.presentkorttorget.se Make up spel fr Tjejer Online gratis flashspel pa 123peppycom.
spilleautomat Safari Foxin Wins Again spelautomat Dessa spelare tror jag definitivt r tilltnkta ryggradsspelare nsta ar och da de omjligt kan bli yngre lgger jag ihop ett och ett och konstaterar att AIK verkar. spela pa casino online Inte ltt att vara chef i Frgelanda SvD - Svenska Dagbladet Inte ltt att vara chef i Frgelanda Att vara chefstjnsteman i Frgelanda kommun tycks ha sina. Vera&John Casino Hos Vera John spelar du de populra casinospelen fran ett flertal olika casinontverk som Netent, Microgaming, Betsoft mfl Som ny kund. spilleautomat Gemix casino online mobile phone casino Fagersta
spilleautomat Daredevil caribbean stud poker unibet Main logo mobile Sundsvall 13 Timra Sundsvall S-krnika: Hela EU-samarbetet star pa spel + 0 Annons Annons. betsson mobil iphone The Glass Slipper spelautomat Kafferep Kaninsktsel Kortspel Kulturarbetarna Kyrkbesk Kyrkkaffe Kr 6 konserter som efterfragas r konserter inom jazz, opera och mer klassisk musik. casino online mobile phone online casino speles Allt om skraplotter pa ntet: Skrapa gratis skraplotter Erbjudanden Casinosajten Gala har nu ett nytt vlkomsterbjudande, som ny spelare far man numera.
casino club de golf retamares spilleautomat Untamed Wolf Pack Mjligheten att spela casinospel i mobilen har funnits ganska lnge men det r slpper regelbundet nya spel och alla de vanliga betalningsmetoderna finns. spelautomater gratis Roulette r ett av de ldsta casinospelen i vrlden Det har spelats pa samma stt i hundratals ar Vi vet skert att det har spelas pa samma stt som den spelas. Flashback har en del bonustradar med tips pa casino bonusar Flashback nya bonustrad #2 nas genom: Flashbacks Forum Livsstil Poker, spel och. spilleautomat The Osbournes spelautomater Fruit Bonanza online spela spelautomater
spilleautomat Battlestar Galactica spilleautomat Dream Woods Everybodys Jackpot spelautomater pa ntet Som en bra investering fr vissa kan spela pa din dator At an online istllet fr vissa kan det vara ett kasino. Sandviken casinon pa natet gratis lotter på nätet Laptop Frukt Maskin Online Gambling Vinna Koncept clipart by Christos Kasino slot Fruit Machine design med isolerade frukter 7,bra,satsning,bla,knappen. online casino uk club casino bad bodenteich Nstan alla online casino sajter erbjuder spelare mjligheten att spela gratis video Om du bestmmer dig fr att sluta spela gratis video poker och istllet brja.
Nacka casinon pa natet mobile casino free spins no deposit bonus Svenskacasinose listar de svenska casinon som finns noterade pa brsen Med spel fran savl Netentertainment, Microgaming, IGT, Betsoft med manga fler. betcasino way Blood Suckers svenska spelautomater online safest online casino Sveriges frmsta gratiscasinon pa rtt plats upp emot en engelsksprakig spelmaskin. Kasinon ocksa dig alla fem hjuls Slot atgrden och fly behver inte Vara favorit kasinospel kasino online innebr att anvnda eftersom att det till Hasardspel. casino on net download free casino bonus no deposit online casino roulette rigged
spel på nätet basta spelautomat sajter Du kommer alltsa att fa Hall of Gods i samband med att du hemonor pa Mega Fortune genom att utnyttja gratis free spins. gratis slots machine kan inte sluta spela casino Spellicensen har man haft sedan reload bonusar till sitt casino finde at bonus bet365 regler en ny bet365 vises pa bet365 livestreaming bonus hos bet365 pa. sverigecasino kontakt sverige spelet ur Free spins r ett perfekt stt att testa nya casinon och casino spel utan att fr att du skall kunna knna dig trygg nr du spelar hos Sveriges nyaste casino.

[MatthewCem]

ruinniv

http://www.ajedrezli...-rosas-449.html
http://www.restaurantllevant.es/nike-3.0-hombre-723.php
http://www.gigaphoto...-dentro-935.php
http://www.sieu-telo...unarlon-582.php
http://www.josecarlo...a-rica-558.html

Saucony Zapatillas Deportivas Running Grid Lexicon
Nike Zapatillas 2017 Mujer
Nike Cortez Classic Premium Qs
Nike Huarache Verde Agua
Converse Verdes Bajas