Por favor, tenha paciência comigo, pois sou novo no Access VBA.
Tenho aqui um subformulário com uma planilha de dados que gostaria de exibir na Visualização Pop-Up.
Se o Pop Up for Não, ele exibirá a página inteira.
Se o Pop Up for Sim, ele exibirá apenas isto abaixo:
Estas são minhas propriedades:
Tentei definir o Redimensionamento automático como Não, e acontece a mesma coisa.
O que devo definir aqui nas propriedades para que pelo menos isso seja exibido automaticamente abaixo:
Aparecer
Tentando alterar isso para que apenas registros fora do ano atual sejam excluídos. Anteriormente, eu estava trabalhando em um intervalo contínuo de 12 meses para provar o conceito, agora preciso manter apenas os dados do ano atual. Tentei algumas maneiras diferentes, mas não consigo descobrir, não quero entrar em todos os meses e alterar a contagem de meses em 1. Existe uma maneira de dizer se a data cair fora de 2025, remova-a
exemplo de formato de data em dados 13/09/2024 16:35:16
código usado anteriormente
Sub Delete_Rows() 'DELETE HISTORICAL DATA OVER 1 YEAR OLD
With Sheets("HistoricalData")
lr = .Cells(Rows.Count, "C").End(xlUp).Row
For i = lr To 2 Step -1
If CDate(.Cells(i, "C").Value) < DateAdd("m", -12, Date) Then 'SETS THE MONTH COUNT TO MORE THAN 12 MONTHS OLD
.Rows(i).EntireRow.Delete ' DELETES ROW
End If
Next i
End With
End Sub
Tenho seguido este tutorial para extrair dados de uma URL, pois ele corresponde bem de perto à minha necessidade (3 div's de profundidade). Infelizmente, onde o StackOverflow não suporta mais o IE, não posso testar o código do tutorial para ver se ele funciona como está. No meu caso, não posso usar o plugin do Chrome e tenho que autenticar no site antes de navegar para a URL. Também tentei as soluções na pergunta 15191847 - especificamente a solução do gembird - ela me deu o mesmo erro.
Quando executo o abaixo, recebo um "Erro de tempo de execução '91'. Imprimi o ie.document em um arquivo de texto e verifiquei que os IDs de div que estou pesquisando estão corretos e que estão sendo capturados. O erro aparece em Set Questions = QuestionList.Children. Alguma ideia sobre o motivo pelo qual ele pode estar me mostrando o erro?
Dim ie As InternetExplorer
Dim html As HTMLDocument
Dim QuestionList As IHTMLElement, QuestionField As IHTMLElement
Dim Questions As IHTMLElementCollection, QuestionFieldLinks As IHTMLElementCollection, QuestionFields As IHTMLElementCollection
Dim Question As IHTMLElement
Dim RowNumber As Long
Dim votes As String, url As String, views As String, QuestionId As String
url = "<<my url>>"
'open Internet Explorer in memory, and go to website
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate url
'Wait until IE is done loading page
Do While ie.READYSTATE <> READYSTATE_COMPLETE
Application.StatusBar = "Trying to go to " & url
DoEvents
Loop
Cells.Clear
'show text of HTML document returned
Set html = ie.Document
'close down IE and reset status bar
Set ie = Nothing
Application.StatusBar = ""
'put heading across the top of row 3
Range("A3").Value = "Field"
Range("B3").Value = "Values"
Set QuestionList = html.getElementByID("fieldgroup ")
Set Questions = QuestionList.Children
RowNumber = 4
For Each Question In Questions
If Question.className = "fieldrow _text-field" Then
'get a list of all of the parts of this question, and loop over them
Set QuestionFields = Question.all
For Each QuestionField In QuestionFields
'if this is the question's votes, store it (get rid of any surrounding text)
If QuestionField.className = "fieldlabel" Then
Cells(RowNumber, 1).Value = Trim(QuestionField.innerText)
End If
'likewise for views (getting rid of any text)
If QuestionField.className = "fieldvalue" Then
Cells(RowNumber, 2).Value = Trim(QuestionField.innerText)
End If
Next QuestionField
'go on to next row of worksheet
RowNumber = RowNumber + 1
End If
Next
Set html = Nothing
A saída HTML se parece com isso.
<div class="fieldgroup " style="" group-title="">
<div class="fieldrow _text-field">
<div class="fieldlabel">Reporting</div>
<div class="fieldvalue">Yes</div>
</div>
<div class="fieldrow _text-field">
<div class="fieldlabel">Annotate ''Yes''</div>
<div class="fieldvalue">Yes</div>
</div>
...
Tenho um (sub)formulário de planilha de dados que recebe o recordsource de um procedimento armazenado, então ele não é atualizável. Quero duplicar os valores de uma coluna - somente no formulário do Access - para unbound checkbox (uma nova coluna) - para que o usuário possa clicar nele e as coisas aconteçam.
Tentei definir o valor de diferentes maneiras, mas sempre obtenho apenas o valor da primeira linha, inserido em todas as linhas.
O que recebo do procedimento armazenado:
| EU IA | Confirmado |
|---|---|
| 1 | Verdadeiro |
| 2 | Falso |
| 3 | Falso |
O que eu quero:
| EU IA | Confirmado | ConfirmedCopy (não vinculado) |
|---|---|---|
| 1 | Verdadeiro | Verdadeiro |
| 2 | Falso | Falso |
| 3 | Falso | Falso |
O que eu obtenho se eu definir o Default Value do ConfirmedCopy para =[Confirmed], ou se eu fizer o mesmo com o VBA. Então ele pega o valor da linha superior e o insere em todas as linhas no campo ConfirmedCopy:
| EU IA | Confirmado | ConfirmedCopy (não vinculado) |
|---|---|---|
| 1 | Verdadeiro | Verdadeiro |
| 2 | Falso | Verdadeiro |
| 3 | Falso | Verdadeiro |
Tenho um documento do Word que é uma exportação de um longo histórico de bate-papo e cada entrada inclui um carimbo de data/hora UNIX de 13 dígitos. Preciso converter cada carimbo de data/hora para data/hora convencional/legível (por exemplo, sexta-feira, 17 de janeiro de 2025, 2h47 EST) e anexar a conversão convencional após o carimbo de data/hora original. Tenho uma macro que FUNCIONA NA MAIORIA das vezes, mas meu loop não está iterando corretamente.
A macro tem como objetivo:
Não consigo descobrir como fazer a variável Range colar/inserir o valor anexado ao documento e depois iterar para encontrar o próximo registro de data e hora (sou muito inexperiente para saber o que estou fazendo errado)
Por exemplo, o primeiro registro de data e hora é "1702654591899" e o texto de substituição pretendido é: "1702654591899; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST" e quero repetir para o próximo registro de data e hora, iterando até o final do documento.
Aqui está o código que tenho com comentários:
'Function converts UNIX 13 Digit Timestamp to date/time in Eastern Standard Time
'Subtracts 18,000,000 miliseconds to subtract 5 hours for Eastern Standard Time
'Adapted from FaneDuru's Solution at:
'https://stackoverflow.com/questions/73011816/excel-vba-convert-unix-timestamp-to-date-time
Function fromUNIX13DigitsEST(uT) As Date
''Original line that converts to UTC or GMT (I'm not sure which but it's
''5 hours later than intended so I commented it out but left it for info purposes)
'fromUNIX13DigitsEST = CDbl(uT) / 86400000 + DateSerial(1970, 1, 1)
'Modified from line above to account for Eastern Standard Time
fromUNIX13DigitsEST = (CDbl(uT) - 18000000) / 86400000 + DateSerial(1970, 1, 1)
End Function
'Loops and Finds all 13 digit Unix Timestamps and replaces them with the Timestamp plus
'conventional date/time
Sub FindUnix13DigitTimestampsAndAddConventionalDateAndTime()
Dim TimestampInstance As Range
Dim TimestampAndConverted As String 'Artifact of the learning process kept to prevent loops
Set TimestampInstance = ActiveDocument.Range
With TimestampInstance.Find
'Do I need more of these? Is this section the problem?
.Text = "[0-9]{13}"
.MatchWildcards = True
Do While .Execute(Forward:=True) = True
TimestampInstance.Select
' Used to test before adding the "TimestampInstance.Text = ..." line below
' Sets string variable equal to the original Timestamp and adds the standard date/time/time zone
' Uses the Function above to convert the UNIX TimeStamp
' Kept to use in the MsgBox line below as a failsafe against a runaway loop
' Adapted from FaneDuru's Solution at
' https://stackoverflow.com/questions/73011816/excel-vba-convert-unix-timestamp-to-date-time
TimestampAndConverted = TimestampInstance + "; " + Format(fromUNIX13DigitsEST(TimestampInstance), "dddd, mmmm d, yyyy - hh:nn:ss AM/PM") + " EST"
' PROBLEMATIC LINE THAT PARTIALLY DOES WHAT I INTENDED IT TO DO
' Duplicates the Function call above and adds standard date items
' Meant to replace each 13-digit timestamp with the timestamp plus standard date/time/time zone
' If commented out then loop iterates as intended and the MsgBox below displays each successive
' output from the TimestampAndConverted variable
TimestampInstance.Text = TimestampInstance + "; " + Format(fromUNIX13DigitsEST(TimestampInstance), "dddd, mmmm d, yyyy - hh:nn:ss AM/PM") + " EST"
'Displays variable TimestampAndConverted above in a message box & helps prevent a runaway loop
MsgBox TimestampAndConverted
'
'
' Should there be code here to allow the loop to iterate to next 13-digit timestamp
' or reset "TimestampInstance" variable??
'
'
''This isn't the solution since it ends up replacing the 13-digit timestamps with "" so I commented it out
'TimestampInstance.Text = ""
Loop
End With
End Sub
Consegui exibir a saída pretendida em uma MsgBox para cada iteração usando uma variável de string, mas quando tento repetir o processo com a variável Range e inserir o texto de substituição no Range, ele fica preso no primeiro registro de data e hora e adiciona novamente a data/hora convencional continuamente em um loop.
Usando o primeiro registro de data e hora ("1702654591899") como exemplo, o texto adicionado depois é "; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST", mas o loop continua adicionando novamente "; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST", então termina como:
"1702654591899; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST ... 15, 2023 - 10:36:32 AM EST; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST; Sexta-feira, 15 de dezembro de 2023 - 10:36:32 AM EST..."
nesse ponto eu pressiono CTRL+Quebro o loop e encerro a macro.
Como adiciono a data/hora convencional uma vez após cada registro de data e hora encontrado e depois continuo para o próximo registro de data e hora?
Procurando um código vba para atualizar todos os campos sem os prompts que pertencem aos campos Ask, como o Print Preview faz. Embora, um código para abrir e fechar o Print Preview não seja desejado porque ele me traz de volta ao topo do documento em vez de me deixar na página onde eu estava. Estou falando sobre este código:
Sub Update()
Application.ScreenUpdating = False
With ActiveDocument
.PrintPreview
.ClosePrintPreview
End With
Application.ScreenUpdating = True
End Sub
Existe uma maneira alternativa de atualizar todos os campos, mas dizer aos prompts para não aparecerem? Ou o campo prompt do campo ask é inerente a eles e eles não podem ser desabilitados durante a ação?
Agradecemos antecipadamente pelo seu apoio
Willem
Dando continuidade a um tópico anterior ( como definir um objeto Account por MailItem.SendUsingAccount ao enviar um e-mail? ), estou interessado no fato de que uma das respostas naquele post usa SET ao definir a propriedade do item de e-mail, e uma não. Isso é bem estranho! Tenho um pedaço grande e bastante complexo de código VBA que
encontra a conta entre as disponíveis que corresponde a uma sequência que contém uma parte exclusiva do endereço de e-mail do qual desejo enviar
cria um novo item de e-mail e, em seguida, define a conta a ser usada para enviá-lo.
No meu código, a instrução SET precisa estar presente na etapa 1), mas precisa não estar lá na etapa 2), o que é bem estranho (inclusive SET gera um erro de tempo de execução 91). Acho que de alguma forma o objeto de conta está se transformando na string que é o endereço SMTP dessa conta, e que o Outlook está então trabalhando a partir desse endereço de e-mail para usar a conta necessária.
Obrigado. Partes principais do código:
a) Várias declarações
Public g_olapp As outlook.Application
Public g_ol_account As outlook.Account
Private olmsg As outlook.MailItem
b) Inicializar coisas
Set g_olapp = New outlook.Application
Set g_ol_account = find_account(g_from_email, b_err)
c) Encontre a função de conta, isso parece retornar um objeto, a instrução SET é necessária
Private Function find_account(s As String, b As Boolean) As outlook.Account
Dim p_olaccount As outlook.Account
Dim s_send_from As String
s_send_from = UCase(s)
If s_send_from = "" Then
If MsgBox("No account specified, do you want to use the default account <SPJUDGE> ?", Title:=box_title, Buttons:=vbYesNo + vbQuestion) = vbNo Then
b = True
Exit Function
End If
s_send_from = "SPJUDGE"
End If
Set find_account = Nothing
For Each p_olaccount In g_olapp.Session.Accounts
If (Not InStr(UCase(p_olaccount.SmtpAddress), s_send_from) = 0) Then
Set find_account = p_olaccount
s = p_olaccount.SmtpAddress
Exit Function
End If
Next
MsgBox "Account <" & s_send_from & "> not found" _
& String(2, 13) & "Program terminating", Title:=box_title, _
Buttons:=vbOKOnly + vbCritical
b = True
End Function
d) Faça o item de e-mail
Set olmsg = make_new_email(g_olapp, s_email)
e) Outra função para criar um novo objeto de e-mail.
Public Function make_new_email(olapp As Object, s As String) As outlook.MailItem
Dim arr() As String
Dim jloc As Integer
Dim jlb As Integer
Dim recip As outlook.Recipient
Set make_new_email = olapp.CreateItem(olMailItem)
' MsgBox g_ol_account note this does work.
With make_new_email
.SendUsingAccount = g_ol_account ' WHY NOT SET IN THIS LINE ??
If gb_set_reply Then
.ReplyRecipients.add (g_reply_to_email)
End If
.OriginatorDeliveryReportRequested = b_askfor_receipts
.ReadReceiptRequested = b_askfor_receipts
End With
s = Replace(s, "SIMON JUDGE", "", , , vbTextCompare)
arr = Split(s, ";") ' changed from comma Nov 2023
jlb = LBound(arr)
For jloc = jlb To UBound(arr)
Set recip = make_new_email.Recipients.add(Trim(arr(jloc)))
If jloc = jlb Then
recip.Type = olTo
Else
recip.Type = olCC
End If
Next jloc
End Function
Por favor, tenha paciência comigo, pois sou novo no Access VBA.
Tenho uma caixa de texto aqui no Form2 nomeada txtEIDcom um Employee IDvalor que é passado de outro formulário.
Também tenho uma caixa de texto de exemplo chamada txtFullNameque deve preencher automaticamente o nome de uma pessoa da tabela tblEmployeescom campo de tabela EmployeeNameonde Form2.txtEID.valueé igual a EIDde tblEmployees.
Não sei como fazer o preenchimento automático na caixa de texto, mas para meu teste, tentei em uma ComboBox com esta linha abaixo em sua propriedade Rowsource:
SELECT [tblEmployees].[ID], [tblEmployees].[EmployeeName] FROM tblEmployees WHERE [tblEmployees].[EID] = [txtEID];
Ele está mostrando o valor desejado (nome da pessoa com base no EID de txtEID) no ComboBox, mas apenas como uma lista suspensa.
Como posso definir o valor da caixa de texto txtFullNamepara o nome de uma pessoa da tabela com base no EID exibido em txtEID. Também não sei como configurá-lo na txtFullNamepropriedade Control Source.
Esse tem sido meu problema por 6 horas. Sua ideia é muito apreciada.
Novo em VBA e completamente frustrado. Apenas tentando inicializar um array de strings.
Dim MyArray() como String
MeuArray = Array("A", "B", "C")
Retorna erro de tempo de execução 13: incompatibilidade de tipo.
O que estou perdendo?
Comecei com sequências de caracteres mais complexas, simplificadas para letras isoladas, mas obviamente esse não era o problema.
EDIT: Tim Williams percebeu o problema. Eu não estava usando Set para uma variável de objeto.
Minha macro é:
Sub StyleFollowingBodyText()
' Charles Kenyon 15 December 2024
' Set the following style for most QuickStyle paragraph styles to be Body Text
Dim StyleCount As Long
Dim thisStyle As Style
Dim iCount As Long
'
With ActiveDocument
Let StyleCount = .Styles.Count
For iCount = 1 To StyleCount
Let thisStyle = .Styles(iCount)
If thisStyle.QuickStyle = True Then
If thisStyle.Type = wdStyleTypeParagraph Or wdStyleTypeLinked Then
If thisStyle.NameLocal <> "Normal" Then
thisStyle.NextParagraphStyle = "Body Text"
End If
End If
End If
Next iCount
End With
End Sub
e recebo esta mensagem de erro ao executá-lo:
Esta mensagem de erro parece ser um pouco "pega-tudo" e não é muito útil. Conforme apontado por Tim Williams, o problema não é usar o comando Set para uma variável de objeto.
Está parando em Let thisStyle = .Styles(iCount).
O propósito da macro é alterar a maioria dos QuickStyles de parágrafo para ter o estilo Body Text como o estilo a seguir. Estou tentando alterar mais de 50 [Quick] Style Sets porque prefiro não ter a maior parte dos meus documentos usando o estilo Normal.