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 derfloh 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: *

  1. denosaur

    Import multiple worksheets into single Access Table using VBA

    ...Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open(sFile) Set rs = CurrentDb.OpenRecordset("SELECT * FROM SR10") For s = 1 To 212 Step 2 Set oSheet = oBook.Worksheets(s) For r = 2 To 51 rs.AddNew...
  2. denosaur

    Import multiple worksheets into single Access Table using VBA

    I do not know how to get to all the sheets in the workbook...only Sheet1. There are 212 sheets (Sheet1, Sheet2, etc.) and I need all of them. A point in the right direction would help a lot.
  3. denosaur

    Import multiple worksheets into single Access Table using VBA

    I have an Excel spreadsheet that has 212 worksheets and I need to import (or copy) the data from each of the worksheets into a single table in Access. I figured if I could specify the worksheet to import, I could loop through the worksheets importing the data for each one, but the...
  4. denosaur

    Access Applicaton Options.

    Check out http://www.mvps.org/access/api/api0019.htm to address the maximize issue. Check out http://www.mvps.org/access/api/api0022.htm to address the disable the X to close the application issue. I hope that helps. Deno
  5. denosaur

    Access Applicaton Options.

    Do you want a form to maximize or the Access window to maximize?
  6. denosaur

    VBA DATE issue; DD-MM-YY ?

    Try using the DateValue function with the DTPicker fields. I had a similar issue with DTPicker fields and it worked for me. Ex: DateValue([Forms]![frmMeerMinderWerk].[cmbRedenAfwezig]) AS FK_afwezig_reden I hope it works for you. Deno
  7. denosaur

    Help with search PLEASE! Due tomorrow

    ...Main.[G/L_Acct#], Main.Total_Orig_Cost, Main.[Computer Name], Main.Department, Main.Comments, Main.VIN FROM Main WHERE (((Main.Manufacturer) Like "*" & [Forms]![csearch]![Manufacturer] & "*") OR ((Main.[Model#]) Like "*" & [Forms]![csearch]![Model#] & "*") OR ((Main.[Serial#]) Like "*" &...
  8. denosaur

    Help with search PLEASE! Due tomorrow

    ...in your query, then you should try replacing the current WHERE clause in your SQL statement to the following: ... WHERE (((Main.Manufacturer) Like "*" & [Forms]![csearch]![Manufacturer] & "*") OR ((Main.[Model#]) Like "*" & [Forms]![csearch]![Model#] & "*") OR ((Main.[Serial#]) Like "*" &...
  9. denosaur

    Need function to import Several Separate Workbook Sheets

    ...ImportFireFighterForms() Dim fName As String Set fs = Application.FileSearch With fs .LookIn = "C:\FireFighterForm" .FileName = "Tbl_Data*.xls" If .Execute(SortBy:=msoSortbyFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then For i = 1 To .FoundFiles.Count...
  10. denosaur

    Type mismatch in open recordset

    ...that the reference to Microsoft ActiveX Data Objects 2.x Library. If this is not the issue, then you may also try changing the... & "Like " * " &[forms]![frmfindstencil]![StencilNumber] & " * "));", line to... & "Like '*" & [forms]![frmfindstencil]![StencilNumber] & " *'"));", I...
  11. denosaur

    myitem.body works in Access/Outlook 2003 but not 2002

    Try using .TextBody instead of .Body. I am running Access 2002/Outlook 2002. I reference Microsoft CDO for Exchange 2000 Library, so this is a different implementation, but it may be worth a shot.
  12. denosaur

    Outlook Security

    Hi! You might check out thread605-870309. You may find that it helps. The code helped solve this problem for me.
  13. denosaur

    Table Export with TransferDatabase

    You could create a Make-Table Query based on the table that you want to transfer to the backup database. In the Make Table dialog box, use the Table Name you want and point it to the backup database using the Another Database option. Then you can use DoCmd.OpenQuery... I hope that works for you.
  14. denosaur

    Coverting vertical data to horizontal

    ...As Long Public FromLoanNum As Long Public iLoanCounter As Integer Sub VerticalLoans() Dim rs As Recordset Dim sSQL As String sSQL = "SELECT * FROM VLoans" Set rs = CurrentDb.OpenRecordset(sSQL) Do While Not rs.EOF ToLoanNum = rs!toLoanID Do While rs!toLoanID = ToLoanNum...
  15. denosaur

    run macro once for each row in a table

    ...it has an argument, strCustomerID. Sub MySub() Dim rsCustomers As Recordset Dim strSQL As String Dim strCustomerID As String strSQL = "SELECT * FROM TblCustomers ORDER BY CustomerID" Set rsCustomers = CurrentDb.OpenRecordset(strSQL) If rsCustomers.BOF And rsCustomers.EOF Then MsgBox...
  16. denosaur

    refer to variables in loops

    autex, How are the values of the variables stored? If I knew more, I might be able to help.
  17. denosaur

    Convert EBCDIC to ASCII?

    HiTechUser, I had previously tried the link to convert ASCII to EBCDIC (and visa versa) from the microsoft support page to no avail. However, the code that you found and posted worked like a charm. I tested and validated the results (the file, which I am getting third hand, has trailer records...
  18. denosaur

    Convert EBCDIC to ASCII?

    I have a fixed width file with multiple 200 byte records that I understand was created on an IBM. The file contains a Zoned Numeric value, which looks like ASCII except for the last byte of the field. The values of the last byte of each field are one of the following characters: {, A, B, C, D...
  19. denosaur

    datagrid in access

    Rizunb, you should be able to select the query that you want to base the form on, click Insert on the menu bar, then select Form. From there, you can try Form Wizard or Autoform: Tabular or Autofrom: Data Sheet. You should be able to play around with those to find something to your liking. I...
  20. denosaur

    How to change Field Description property in a Linked Table

    Consider this... Assume I have a linked table, tblMonthlyRevenuesCurrent, with several columns, account_num and amount. I want the descriptions of the columns to be different. On the Data tab of your form properties dialog, select Record Source and click the ellipsis to the right of the field...

Part and Inventory Search

Back
Top