Recent content by Eugene-LS

Try use nslookup tool. Sub testGetHostIPByName() Dim sVal$ sVal = Environ("COMPUTERNAME") sVal = GetHostIPByName(sVal) Debug.Print sVal End Sub Function GetHostIPByName(vHostName) As String ' es - 19.05.2023 v002 ' Фукция возвращает IP-Адрес по имени доступного на д.м. Хоста с...

I just have that kind of style ...

I think it's safer this way: Private Sub lstURL_AfterUpdate() Dim sVal$ sVal = Me.lstURL Me.txtWebAddress2 = sVal sVal = "document.location.href = '" & sVal & "';" Call Me.EdgeBrowser2.ExecuteJavascript(sVal) End Sub

Okay, post your form and some data - we need to see what's wrong with it.

Instead of Me.Filter you should use: Me.[Sub Form Object Name].Form.Filter Private Sub FilterSubMask() Dim sFilter As String ' Filter by SubCategories If Me.cboChoiceSubCategories.ListIndex > -1 Then ' Value selected sFilter = sFilter & " AND (IDSubCategories = " &...

Try: Public Function Corrected() ' Why function??? - it does not returns any thing! Dim sQry As String sQry = "DELETE FROM Discrepancies as A " & vbCrLf & _ "WHERE ((A.Main_Jpg = 'A.Accession') AND " & _ "(A.Main_Raw = 'A.Accession')" & vbCrLf & " AND " & _...

Otherwise, forget it. I guess I'm the only Russian here. .... Democracy is a great thing! Come home and give your paycheck to the cockroaches (they have a majority of votes). ;)

Try: vba access DSum

For example: I can't open and listen to the clip: https://www.youtube.com/watch?v=p3j2NYZ8FKs But the same in rutube (!!!): https://rutube.ru/video/751defe1c51409ab3f6e97b4a5c163a9/ ... The iron wall again? That's what I'm talking about.

Everything is allowed, but YouTube is slowed down so that you can't watch the videos (in RF).

This is just a “humorous addition” to my post so that those reading it won't be so sad to read it.

- “The head of the Duma Committee on Information Policy Alexander Khinshtein ...” It's already funny! There is no such word as “information policy”, and there can't be. No one can decide what information I can watch and what I can't. Otherwise I'm a slave. I defiantly don't consider myself one...

One way more (using msoFileDialog): With Application.FileDialog(4) '4 = msoFileDialogFolderPicker .Title = "BrowseForFolder" .InitialFileName = Environ("UserProfile") & "\Documents" .Filters.Clear .Show If .SelectedItems.Count > 0 Then...

If your values luck like "24-008765-T" - you have to take the number from the fourth character, not the second. It should be only 6 characters, not all of them as you have. Mid(StudentNo, 2) <> Mid(StudentNo, 4, 6) ... :) Mid() Function Me.StudentNo = Right(Year(Date), 2) & "-" & _...