Search results

  1. adhoustonj

    VBA RecordSet if EOF

    Hey AWF, I'm wondering how I can cycle through a set number of lets say 10 seats numbered 1-10, with 10 alphabetic names of A:J, and they are left to right. In this case, people will shift a seat to the right, but not everyone, and I need to record their new seat number. Is there an efficient...
  2. adhoustonj

    "New" Outlook

    I've just encountered this with a database user as well. From the Access Form once they click the command button to send the email, the outlook new message screen pops up with the attachment attached, and they click send, thinking everything is working as normal. Well today rolls around they...
  3. adhoustonj

    What makes the navigation pane look different like this?

    I have, I mean I'm no stranger to the answer being right in front of me, but I haven't seen where the setting/option/selection is. EDIT ---- AHH - so if you right click "All Access Objects" or the navigation pane header, go to view by, and details. Finally!!!!
  4. adhoustonj

    What makes the navigation pane look different like this?

    Hey AWF, Just curious why and how objects appear differently in the navigation pane. I haven't seen a setting to modify under navigation options, but sometimes I look at sample databases and the objects are much bigger with more detail associated with them as shown in pic #1. If i create a new...
  5. adhoustonj

    How many db's do I really have open?

    That checked out well and the outcome was what I was expecting/hoping. So just by opening access with none of my VBA/Macros/Forms active: Debug.Print DBEngine.Workspaces(0).Databases.Count This returns 1 and then each additional SET adds another database object to the databases collection Dim...
  6. adhoustonj

    How many db's do I really have open?

    Cool cool, thanks Doc. I'll check this out as soon as I'm back in the office tomorrow. First thoughts are if I need to Dim x as DAO.Workspace and if it is still relevant in latest Access build version. Just thinking out loud not asking anyone to put in the legwork. I thought Workspaces were...
  7. adhoustonj

    How many db's do I really have open?

    Hey AWF, Hypothetically if I have a form event that had a Private Sub PlaceholderNameRoutine_Click() Dim db as DAO.Database Set db = currentdb() 'call function(i) TestMyCurrentDB1 set db = nothing End Sub Which called 9 other functions in a module/subs such as TestMyCurrentDB2, 3, 4, etc -...
  8. adhoustonj

    Solved strSql - Object Required

    It should be this since you need to join the variable into the SQL statement. strSql = "SELECT * FROM [PoolBookings] WHERE [BookingID] = " & LastID & ""
  9. adhoustonj

    Issue with migration to SQL Server and .Addnew

    This works for me with linked SQL Server tables. Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs2 As DAO.Recordset Dim Form As Integer Set db = CurrentDb Set rs = db.OpenRecordset("tbl_users", dbOpenDynaset, dbSeeChanges) Dim fld As Field Dim idn as LongPtr...
  10. adhoustonj

    Issue with migration to SQL Server and .Addnew

    You may also need to add dbSeeChanges as a recordset option when working with SQL Server. Set rs = db.OpenRecordset("tbl_users",dbSeeChanges) or Set rs = db.OpenRecordset("tbl_users",dbOpenDynaset, dbSeeChanges)
  11. adhoustonj

    Looking for a previous post or resource that imitated a header click and then drop down select

    Looking to implement it on an Access Form. That was what was used in the example resource as well.
  12. adhoustonj

    Looking for a previous post or resource that imitated a header click and then drop down select

    Hey AWF, I'm looking for an old post and wondering if it rings a bell in anyone's head on where to find. Can't remember if it was an AUG group, forum post.. I do think the example used was Microsoft's webpage where you have your header as such: And then on clicking one of the header items...
  13. adhoustonj

    Solved Dynamic Insert statement

    As @MajP said - if your field headers really are 1.3.9 , 1.4, etc then you can't use those values as field names / column headers. You would have to replace the "." and change to something else such as 1_3_9 , 1_4 , etc. You can have field names with "." in them in SQL Server. You can not in MS...
  14. adhoustonj

    Solved Dynamic Insert statement

    Is it always going to be the same 3 tables that you are generating your insert statement from, and why 3 tables? Is it always 3 or sometimes more/less? It would be pretty cool if all 3 tables have the same structure to make them 1 table. Instead of tbl_A: Field_Heading Area 1.3.9. 651...
  15. adhoustonj

    Solved Dynamic Insert statement

    @Pat Hartman I'm using it to fix Access BE tables before migrating to SQL server, and was working to automate it. I have a lot of db's to migrate and some are +200 table databases where it is a mix of not having PK or AutoNumber, some have AutoNumber with no PK, or PK and no AutoNumber, or...
  16. adhoustonj

    Solved Dynamic Insert statement

    I've been using something based off of code MajP shared. This is only using one table versus the three you mentioned in your post, but could maybe be a starting point. In the function below strTable is my source table, and nstrTable is the new/target table. post here...
  17. adhoustonj

    How old is your computer?

    For the personal - 2022 Lenovo Legion 5 Pro RTX 3070ti & Ryzen 7. Waiting on the good deals to snag some desktop parts or the Nvidia 50 series cards drop and 40/40 super series become cheaper. For the work - 2022 HP Probook 440 G8. It gets the job done.
  18. adhoustonj

    Solved Problems with code execution following email

    Once you put your breakpoint by clicking to the left on your code, go back to your SaveFinalAuth_Click on your form, and your code will stop at this line. Then F8 to walk through. You can put another breakpoint further down in your code and instead of having to F8 all the way through it, press...
  19. adhoustonj

    Solved Problems with code execution following email

    Agreeing with Minty.. all my db's have oMail.send '.Send or .display
  20. adhoustonj

    combobox reverting to original value with Not In List event

    I don't know if I get it either.... Honest. In your example: "(DRWG VIEW T-T) [***-0A244-1*" This would like be updated to some of the following "(DRWG VIEW T-T)" "(DRWG VIEW T-T) [***-0A244-10=***]" "(DRWG VIEW T-T) [***-0A244-20=***]" But there is no need to go to a different task and select...
Back
Top Bottom