Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by FirstAndGoal4

  1. FirstAndGoal4

    problems connecting to backend

    When you attach the tables, can't you tell it to "save password"?
  2. FirstAndGoal4

    Referencing a form variable in VB code

    To display the value for testing, you could do msgbox Me![Initials_In] or just put a breakpoint on that line and use the immediate or watch windows.
  3. FirstAndGoal4

    How do you move to a specific record?

    I assume you have a form that does not have a RecordSource but does have unbound controls on it? If so, you write code to set the value of the controls to the values in the recordset.
  4. FirstAndGoal4

    Compact / Repair / Backup over network....

    LDBs hang around because someone exited the system in an unusal way. You can just delete it. Check out the CompactDatabase method for help on you other questions.
  5. FirstAndGoal4

    Cannot delete record with weird symbols

    Haven't seen that before. Just open up the table, select that row, and hit delete.
  6. FirstAndGoal4

    Interactive Query

    if just for column x, put in the query criteria for column x: [enter value] (or whatever you want). When it run it will popup an entry box.
  7. FirstAndGoal4

    OpenRecordset SQL Statement Does Not Fit

    Is this part correct: [regname] = " & """" & RegionName & """" What's with all the double quote marks? Are these actually stored in your tables?
  8. FirstAndGoal4

    Character Count

    I assume there is a table with many columns here: Dim fld As Field Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(&quot;your table name here&quot;) rs.MoveFirst Do While Not rs.EOF For Each fld In rs.Fields If Len(Trim(fld.Value)) <> 9 Then '....do something to let...
  9. FirstAndGoal4

    Dynamic forms

    Here's a start: Public Sub DynamicForm() Dim frm As Form Dim ctlLabel As Control, ctlText As Control Dim intDataX As Integer, intDataY As Integer Dim intLabelX As Integer, intLabelY As Integer ' Create new form and set its record source. Set frm = CreateForm...
  10. FirstAndGoal4

    NotInList event

    Pass the client name to frmAddClient using OpenArgs (see DoCmd.OpenForm) and set the proper form control in the OnOpen event. Enter the other info and store the ClientId in a global variable using the AfterUpdate event. Close the form. In the Activate event of frmAddNewJob, do a...
  11. FirstAndGoal4

    Join two tables which has different fields

    Just the fields or with data???
  12. FirstAndGoal4

    Query Performance, optimising for a network

    Query2 resultset is a subset of Query1. The added &quot;where&quot; condition should make it run faster. Try this for a speed fix... create a dummy table in the data database with 1 field (name it what ever you want). Create a global recordset variable in a module of your application...
  13. FirstAndGoal4

    How to refer to Datasheet subform column, row ?

    A little more info: are you trying to refer to it in VBA from a mainform? If so you can get to the subforms underlying recorset: Private Sub Form_Current() Dim rs As Recordset Set rs = Me.<subform name>.Form.RecordsetClone ....do what you want End Sub
  14. FirstAndGoal4

    check if a recordset is open

    &quot;You can also use the recordcount, if a value is returned then your set is open, if an error occurs then it is closed.&quot; No offense Harpz but that is not a very good solution. Not only do you incur the overhead of error handling by doing it this way, you would probably catch heck from...
  15. FirstAndGoal4

    How to use DateValue correctly?

    dim date as somedate x=&quot;103021603&quot; somedate = cdate(mid(x,4,2) & &quot;/&quot; & mid(x,6,2) & &quot;/&quot; & right(x,2))

Part and Inventory Search

Back
Top