Search results

dim url As String Dim xmlhttp As Object Dim st As Integer Dim Content As String Dim searchString As String Dim position As Long, exchange as string url="MMM" exchange="NYSE" url = "https://www.google.com/finance/quote/" & UCase(symbol) & ":" & exchange Set xmlhttp =...

I ve been trying this for hours with no results, I wonder if someone can give me a hand. Ihave a string: str=" On Monday, 13th Nov 2023, Baxter International Inc stock price gained 2.71%, going from $32.82 to $33.71. Volume increased on the last day and 5 million more shares were traded than the...

In a continous form is it posible to make visible a line, everytime IDMov changes ? something like this, but I am not clear on what event of the form, where the code would be triggered If Nz(Me.txtPreviousid, "") = Me.idMov Then Me.Line5.Visible = False Else Me.Line5.Visible...

Hello, I wonder what I could do to speed up this code : DoCmd.OpenQuery "qryMatchPosibleSCNB_P" [frmSContNBanco_P].Form.Requery 'pause the code for 1 second DoCmd.OpenQuery "qryMatchPosibleSBNC_P" [frmSBancoNCont_P].Form.Requery 'pause the code for 1 second After running each query, I have to...

I am trying from a button in the main form to change the background color of another button in a continuous subform header section Forms![frmConcilManual]![frmSBancoNCont_P].Form![Command58].BackColor = RGB(255, 242, 0) [frmSBancoNCont_P].Form.Repaint frmSBancoNCont_P is the name of the...

Hello, I have a table "myTable", with the folowwing data : dataM aValue bValue cValue 31-dez-23 19,73 15,86 52,56 31-dez-23 19,73 52,56 15,86 31-dez-23 52,56 15,86 19,73 31-dez-23 52,56 19,73 15,86 31-dez-23 26 31,71 80 31-dez-23 26 80 31,71 31-dez-23 31,71 26 80 31-dez-23...

Hello, I have query that list all the posible sums of three numbers in a table. the table only has 70 records, but when i runs the query returns about 275000 records 'step 1 (the query that returns the 275000 records) SELECT DISTINCT a.valor + b.valor + c.valor AS sum_of_3_numbers, a.valor AS...

hello, Is there a way to copy a string to the clipboard, and after that to be able to press the keys ctrl+V to paste it ?

Hello, I have a unbound text box (Text34), where a integer number should be entered, with following code: Me.RecordsetClone.FindFirst "[MovimentoID] = " & Me![Text34] Me.Bookmark = Me.RecordsetClone.Bookmark Me.Text34 = Null Text34.SetFocus Code runs fine and finds the expected record, but...

Inside of form "frmMain", I have two forms : frmSearch frmList from a button in frmSearch, I want to change the visible property of controls in frmList I tried the following, wich wont work If curr = 1 Then Forms!frmList.debitoPH.Visible = False Forms!frmList.Debito.Visible = True...

I am from Portugal, and since I moved to another country, I cannot access the URL https://www.e-leiloes.pt/info.aspx?lo=LO1063072023 I can if I use a VPN connection with a portuguese server, nevertheless when trying to scrap data from that URL, my vba code cant navigate to the page. Any...

When I click on a command button in the main form, I want to move the focus to a combobox control in my subform. the focus shifts to the correct control and the combobox dropsdown if I then choose one of the options of the control it also works correctly, but if instead I choose to type, the...

Hello, I have a form with a control named "cPDF". On the current event of the form I have the following code: If InStr(Me.path1, ".pdf") > 0 Then Me.cPDF.Visible = True Else Me.cPDF.Visible = False End If It shows the control cPDF with the set condition. My problem is when opening the...

Hello, I would appreciate your help with the folowing code, wich retrieves jpg files sent to a folder in my Outlook email account, and it works just fine, but if instead of receving a email with a image attachment, I just drag and drop a jpg file into the Outlook folder the code wont recognize...

I want to find out if the string "Bolo" is contained in a text field in my recordset and avoid the field "spagetti bolonhese", but I wanting to find the field "bolo marble chocolate" the folowing finds both If rst(1) Like "*" & Term & "*" Then so I tought I should add a space before and...

Hi, I cant figure out how to change dots into comas to separate the decimal part of a number If KeyCode = 190 Then KeyCode = 110 the previous code on the keydown event works when entering numbers separated with commas, but not in case I paste a number When I copy 55.55, into my form control...

Hello, I wonder if it is posible with VBA to set the enter key to shortcut closing a jpg file.something like pressing the enter key instead of ALT+F4 Thanks

I am trying to download the attachments that I have in a folder in Outlook with the code : Dim db As dao.Database Dim ns As Namespace Dim Inbox As MAPIFolder Dim filename As String Dim i As Integer Dim objSearchFolder As Outlook.MAPIFolder Dim item As MailItem Dim atmt Dim strSQL As String...

Hello, Everytime I update a new record in my continuous subform, the first record becomes invisible. I have to use the mouse rolldown to make it visible again. I ve been trying most of the format properties of the subform, even creating a new subform, and still I cant solv this. any thoughts ?

Can somebody help me with something that I thought should be simple in the first place: I have a continous form with a footer with a control "D", that sums the field debito, wich is a numeric field =Sum([debito]) Instead of the sum of the numeric fields, the returned result is blank. I noticed...