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!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: Zion7
  • Order by date
  1. Zion7

    Expression

    Yes SWi, I agree with LameID, i'm amazed the recordset & count property EVER worked. All the same. excuse the obvious but "Job File" & "JOB ITEMS Query" forms, must be open. (assuming parent & child form) Is the control holding this expression, located on either form/subform? All the same, i...
  2. Zion7

    Referential Integrity issue doing an Insert to SQL

    As gwinn7 said... ...You may need to add your Parent record first, obtain it's primary key, then use that value, for the foreign key.
  3. Zion7

    Is it Possible to Define a Funciton from Event Procedure

    Or, depending on what dictates the value of MyVar, you could use the source as an argument, to your function. On Click Event of each cmdButton.. If TextBox on current form "= ReturnWard([txtMyVar])" If "random value" "= ReturnWard(6)" etc...
  4. Zion7

    E-mail Updated Word Document as Attachment

    look up "Word Automation" & "Outlook Automation" .. bit of a learning curve!
  5. Zion7

    24 hour clock

    As Remou said, otherwise, convert the "short time" variable, to a string... Dim varStartTime As Date, varEndTime As Date Dim strStartTime as string, strEndTime as string varStartTime = "10:00" varEndTime = "14:00" strStartTime = Format(varStartTime, "short time") strEndTime =...
  6. Zion7

    Converting Column Data to Row Data

    Actually, small oversight (in case you decide to use this)... Do Until rec.EOF For x = 1 To 2 SQL = "INSERT INTO NewTAble(SupplierID, PackagingType, Value)" & _ "VALUES(" & rec(0) & ",'" & rec(x).Name & _ "','" & rec(x) & "')" conn.Execute SQL,,adExecuteNoRecords...
  7. Zion7

    Converting Column Data to Row Data

    Very quickly, of the top of my head... Rec As New ADODB.Recordset, SQL AS String, x as integer conn as New ADODB.Connection Set Conn = CurrentProject.Connection rec.open "tblPackage", conn, adOpenForwardOnly, adReadOnly Do Until rec.EOF For x = 1 To 2 SQL = "INSERT INTO...
  8. Zion7

    Creating Form from Table?

    As PHV said, that would be the easiest but, just for the record, you could create a form from scratch, change the "recordsource" property to any table or query you like, from there, the "Fields" icon from your menu bar, will offer all the available fields (dictated by your recordsource)...
  9. Zion7

    Code isn't recognizing my table/field....

    chanman, as Caution said if it is an open form but, you said "Table". Then try DLookUp() If IsNull(DLookUp("Imported","ImportDate")) Then
  10. Zion7

    Unable to enter text in text box

    Like PHV said, first see if it compiles. I highly doubt this is it, is youe recordsource an uneditable query eg. UNION, TOTALS, DISTINCT etc..
  11. Zion7

    Print a File from VBA

    kopy, try to speak in more general terms. What's a "drawing" file? ...a file in same/another directory? What, where & how, do we find the "Current part Number"? ..from a main/sub form, with the focus? VBA has many file search and manipulation functions. And print methods & actions. Type...
  12. Zion7

    Unable to enter text in text box

    You can't enter Numeric values? ...can you enter text values? Check all properties..., Subform, enabled/locked. Check the recordsource, any calculated fields. Any of the controls, enabled/locked?
  13. Zion7

    Limiting object group selection in listbox

    Wouldn't you just add that clause to your WHERE statement? Me.NameList.RowSource = Me.NameList.RowSource & " WHERE Left(" & strKeyField & ",1) >= '" & strStart & "' AND Left(" & strKeyField & ",1) <= '" & strEnd & "' " & strOrder & _ " AND chkActive = -1"
  14. Zion7

    Update

    Ragah, Ace & I are probably unsure where & what recordsource you're updating (parent, child, control?). So, if main form, Me.recordsource.Requery or Me.refresh or Me.Recalc maybe Me.Repaint If subform Me.sfrmName.Form.Requery it appears you tried to requery a control. I think only listboxes...
  15. Zion7

    Combining values from the same field in an Access query?

    Sellert, otside of Ace's code, you consider either using "Totals/Grouping" query(toggling the Sum icon on the menu bar, in the query pane), or just downright use the grouping properties on the report, from design view (preferred!).
  16. Zion7

    Update

    well, I finally got off my lazy b*** and tried it. strSQL = "UPDATE Requests" & _ " SET Requests.A=Year([B]) & '_' & [RequestID]" & _ & " WHERE ((Requests.[A] Is Null) AND " & _ (Requests.[B] Is Not Null));" So yes Aceman, I believe you're correct on both...
  17. Zion7

    Replicate 'group by' in continuous subform?

    Kaned, are you sure Reservations AND Rooms are BOTH continuous? Access does not allow a contiuous form within a continuous form? So, my point is, if Reservations is singular, you can use an unbound calculated field, with a controlsource like =DMax("txtDate","tblRooms","ResID =" & [ResID]) PS...
  18. Zion7

    Update

    Good point Ace but, I'm really getting tossed on the syntax, eg. mine's way out of whack! But, are you sure about yours? Ragah said A was Text. I'm assuming we need qualifiers, and since most VBA funcions are legal in SQL statements, no need for concatenation, thus... strSQL = "UPDATE...
  19. Zion7

    Update

    Try This, strSQL = "UPDATE Requests" _ & " SET A=' & Right([B],4) & '_' & [RequestID]'" _ & " WHERE (((A) Is Null) AND (([B]) Is Not Null))"
  20. Zion7

    Error Handling

    Sorry CopperWire, I forgot to add... Err_Command84_Click: If Err = 3022 Then '(duplicate Key) MsgBox "This record already exists", vbOKOnly, "Record NOT Saved" Resume Next 'or whatever you want Else MsgBox Err & vbcrlf & Error$,,"Error"...

Part and Inventory Search

Back
Top