Recent content by moke123

  1. moke123

    Fairly New and Need Help

    While you're at it you should eliminate any spaces and special characters in your field names, as well as all your other objects.
  2. moke123

    Using column property in combo box

    you could also use Select Case Right(Me!cboFormat.Column(1),2) Case "CD" Case "LP" Case "45" Case Else End select
  3. moke123

    Sort Records in listbox

    you could also run the query and use the following to test if records returned. if not Me.List0.ListCount > 0 then MsgBox "Sorry, no records were found.", vbInformation, "Search Menu" Me.txtLname.value = Null Me.txtLname.SetFocus end if
  4. moke123

    Payment Crashes with VPI

    Back when I worked privately, we used to do it the old fashion way. Look out the window, see what kind of car they showed up in, and set our hourly rate accordingly.
  5. moke123

    Citizens United v. Federal Election Commission, 558 U.S. 310 (2010)

    You guys do know that an alford plea and pre-trial diversion are not mutually exclusive and are often taken together, right?
  6. moke123

    Medical

    The current administration cut 30,000 jobs from the VA last year and I think another 35,000 of unfilled positions. It was part of project 2025. No surprise that it will take months to get an appointment.
  7. moke123

    Form as Form? or String?

    This begs the question of how they get hidden or not in the first place. You could set a variable at that point.
  8. moke123

    Form as Form? or String?

    I encountered errors too. vbNewLine and vbCrLf both resolve to 13 but chr(13) wasn't working correctly, neither was chr(0) for null. Easy work arounds with only 2 short lines of code.
  9. moke123

    Form as Form? or String?

    For multi-select listboxes I use the following code. The reason for the enums is that they are also used in other procedures. you could use it as GetList = "TransactionID IN(" & fGetLbx("your listbox object" & ")" Public Enum eDelimiterType NoDelimiter = 0 DoubleQuotes = 1...
  10. moke123

    Form as Form? or String?

    I would say it's an object. when I need to requery all the list boxes on a form I use something like this and pass in the form reference Public Sub ReqLbx(frm As Form) Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acListBox Then ctl.Requery...
  11. moke123

    Is AI Increasing Costs?

    I read an article which mentioned that the US data centers will require nearly 90% of the global supply of high end computer chips.
  12. moke123

    Auto Insurance

    Wow $2800+ a year seems pretty high to me. There are a lot of factors taken into considerations by the underwriters. Age, driving/accident records, commercial vs. personal, miles driven per year, # of drivers in household, coverage limits, and more. I pay $840 a year for both liability and...
  13. moke123

    Birthday Report

    Something like this?
  14. moke123

    Birthday Report

    For what reason are you using dateserial? And using date() in the year criteria rather than BDate?
  15. moke123

    Reddit usage in countries around the world - do you use it?

    Is this question related to this? https://www.huffpost.com/entry/reddit-challenges-australia-teen-social-media-ban_n_693bde79e4b07bcd25427c0a?ba=&utm_source=buzzfeed&utm_medium=iframely
Back
Top Bottom