Recent content by yellow

  1. Y

    Count the number of Months Between two dates

    Nothing like replying to a thread that is 12 years old right :) You don't have an End Sub. You have a function in a sub. They need to be separate. So... Private Sub WC_Visit1_Date_Exit(Cancel As Integer) Code End Sub Public Function MydateDiff(Interval, DOB, WC_Visit1_Date) Code End...
  2. Y

    Comparing integer variable...

    If I understand your problem. First number displayed in label. iCurrentValue = label1.caption iLowestValue = iCurrentValue Then on each subsequent label update: iCurrentValue = label1.caption If iCurrentValue < iLowestValue Then iLowestValue = iCurrentValue EndIf This would give you the...
  3. Y

    How to upload small text file from within my vb6 form application?

    The attached Word document, thanks to Joacim Andersson, explains how to upload files with VB6 via FTP. Hope it helps.
  4. Y

    msgbox

    If MsgBox ("Are you sure", vbYesNo) = vbYes then action Else OtherAction End If
  5. Y

    Using a query to extract email addresses

    Design a new blank query. Add the relevant table. In the field column add the query provided by mresann. IE: Mid(strText, InStrRev(strText, " ", InStr(stremail, "@")) + 1, InStr(InStr(strText, "@"), strText, " ") - InStrRev(strText, " ", InStr(strText, "@"))) You need to replace strText...
  6. Y

    ListBox parameters problem

    Why don't you post this a few more times? Perhaps you could try posting a few in Tables and a couple in Macros.
  7. Y

    Cycle through all records (Newbie)

    The problem lies in these lines: strSource = "" & strSource & FileName & fextension strStaging = "" & strStaging & FileName & fextension The first time it runs strSouce is equal to whatever your constant is, then you're adding your filename. Then the second time it runs strSource is equal to...
  8. Y

    disabling "delete record"

    Setting the properties of the form to Allow Deletions = No, should disable delete record from the Edit menu.
  9. Y

    Using a query to extract email addresses

    How many lines of text are you talking about? How many email addresses are involved? It should be possible. As an email address does not contain any spaces. And it must contain an @. Therefore you could: 1) Use InStr to find the position of each @ sign 2) From there you can move...
  10. Y

    tap control upside down

    Maybe it's just me...But what is a tap control?
  11. Y

    TutputTo limitation

    Excel is probably your problem. The maximum number of rows used to around 65,000. Not sure if the newer version of Excel handle more rows.
  12. Y

    Macro autofill parameter query Question

    If you want a macro to fill in the parameters, then I'm guessing you know what those parameters are, if so then there's no need to run a parameter query... What are you trying to achieve?
  13. Y

    Stop Make-Table Query Pop-ups

    The reason you're still seeing the warnings with the macro is because you are turning warnings off after running your query. You need to: SetWarnings(No) OpenQuery Close SetWarnings(Yes) You want to be careful turning off warnings in the option menu, as one day, it'll come back and bite you...
  14. Y

    Stop Make-Table Query Pop-ups

    The first thing in your macro needs to be setwarnings = No. Then run all your other stuff. Then setwarnings = yes at the end.
  15. Y

    Stop Make-Table Query Pop-ups

    Look at the SetWarnings action. But make sure you remember to turn warnings back on afterwards.
See more
Top Bottom