Search results

  1. ezfriend

    Creating an automatic custom alphanumeric number?

    I am not sure what the purpose of the "AAAYY" is for, but here is how I would do it. It's probably not the best way to do it, but just my two cents. Private Function GetNextValue() As String Dim sSQL As String Dim rs As Recordset sSQL = "" sSQL = sSQL & "SELECT...
  2. ezfriend

    Passing a Combo variable to a Command Button

    If cboSelectCourse only contain the ID, you can just set the intCrseID If IsNumeric(cboSelectCourse) = True Then intCrseID = cboSelectCourse End If If you have multiple columns in the combobox, you will need to specify which column you want to set to the intCrseID...
  3. ezfriend

    Unbound form with a bound subform

    I created something very similar to that. My project has to do with a project and time entries for each time a person work on the project. The main form contains bounded controls. The subform; however, is a display screen only. I then create an ADD button next to the subform where user can...
  4. ezfriend

    one-to-many to one-to-one

    I have a main form and a subform that was originally design as a one-to-many relationship. Now the users want it to be a one-to-one relationship. The logical way is probably moving all of the fields in the subform to the table where the main form is loading from. For one db, it is probably...
  5. ezfriend

    Question New Project Help Please

    What's the question?
  6. ezfriend

    Combine duplicate rows

    Thanks. I'll give that a try and see if that will improve the performance.
  7. ezfriend

    Combine duplicate rows

    Have a query the return the search result as follow. (note that I have thousands of rows as the query results) ID Name DateEntered Comments ---------------------------------------- 1 Joe Johnson 2/2/2009 Comment1 1 Joe Johnson 2/2/2009 Comment2 1...
  8. ezfriend

    Variable Button Labels

    Here is an example excel file. Press Alt+F11 to see the vba code.
  9. ezfriend

    Return recordset with adp connection

    How can I return a recordset using adp.connection my recordset is "SELECT * FROM vwCustomderDat WHERE CustID = 223234 " Private Sub Process() Dim rs As ADODB.Recordset Dim sSQL As String Dim sVals As String Set rs = New ADODB.Recordset sVals = "" sSQL = ""...
  10. ezfriend

    Importing a excel file

    map that path to a drive letter and try to see if it can read the file.
  11. ezfriend

    Convert table with only one column into a table with several

    Since the fields are always going to be the same, it is easier to just create the table and then read the data in.
  12. ezfriend

    Question Creating a .DAT file

    DAT files can be anything. It could be a text (data) file. What do you use this DAT file for?
  13. ezfriend

    Combo populating a combo

    Your action combo box should have Column Count = 2 Column Width = 1;0 since the Row Source is table "Action" Under the click event of the Action combobox you should have something like this. Note: the control Place.Column(....) is the second combobox. Private Sub Place_Click()...
  14. ezfriend

    Open pdf read only

    When the "READ ONLY" is select, can you change the file propertie (read only) to true?
  15. ezfriend

    Print all hyperlinks

    You should create a field in the database to hold the hyperlink (file path + filename) data. Using a button, you can just quickly loop through all records using that field and print the PDF.
  16. ezfriend

    Error message

    The error could be in your "Enforcement Hours to Date" form.
  17. ezfriend

    Compact & Repair causes repeated crashes

    I had the same issue over and over, but so far doing what you are doing is the best solution. The other thing is that if the DB is on the network folder, the crash tend to happen. I copy a lot of DBs to my desktop and compact it quick. That seem to do the trick.
  18. ezfriend

    Startup Module for Public Function/

    Create a Macro and must call it "AutoExec" For Action, use RunCode and under Function name call a function Main() In a module, declare a function like this. Public Function Main() 'do whatever you want to do here. End Function NOTE: Don't put anything in the start up
  19. ezfriend

    TransferSpreadsheet into SQL Server

    Well, your table "HAH_AppointmentsTEMP" is a local table to the Access DB when peform DoCmd.TransferSpreadsheet.... When running the INSERT statement using your cnn, it is probably looking for the "HAH_AppointmentsTEMP" table from your SQL Server which doesn't exists. One quick way (might not...
  20. ezfriend

    Not In List to open form at specific record ??

    You can do something like DoCmd.OpenForm "frmClientMain", , , , , , "GoToNewClient" in your frmClientMain load event, you can do something like Private Sub Form_Load() If Me.OpenArgs = "GoToNewClient" Then 'The last client should be your newly added client...
Back
Top Bottom