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 strongm 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. Ausburgh

    Creating a Desktop Icon for Application

    Hi Guys, How can I create a desktop Icon for my Access Application? Thanks in Advance
  2. Ausburgh

    Printing every record in a recordset

    I'm going to dazzle you with my technical prowess here ... It's an ActiveReport ... it just prints/outputs the data ... (yeah, profound right? haha). My knowledge is limited to the fact that you just kind of point/link the field(s) in the report design to the appropriate field in the database...
  3. Ausburgh

    Printing every record in a recordset

    In my COMPARE_REC table on the SQL Server side there are 5 records. The reports should resemble (these figures obviously don't add-up) : Dept FY04XP FY05XP FY06XP ABC 123.45 234.56 345.67 BCD 456.78 567.89...
  4. Ausburgh

    Printing every record in a recordset

    ...Set Conn = New ADODB.Connection 'define the recordset access statement Dim strSQL As String strSQL = "SELECT * FROM COMPARE_REC" Set rs = New ADODB.Recordset Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security...
  5. Ausburgh

    Find a record in a Recordset (on the SQL Server)

    Thanks for your responses ... I just got back from my vacation last night (5/25 - 6/2 - as you can image I'm exhausted ... not that anyone cares!). In any case, Jerry's explanation is correct ... the problem is that there will be multiple records that do have the same remark (my search field)...
  6. Ausburgh

    Find a record in a Recordset (on the SQL Server)

    ...to the database. Set Conn = New ADODB.Connection 'define the recordset access statement Dim strSQL As String strSQL = "SELECT * FROM Expense ORDER BY ExpenseID" Set rs = New ADODB.Recordset On Error GoTo Err_Exit Conn.ConnectionString =...
  7. Ausburgh

    ActiveReport w/ADO (by code) connected to SQL Server

    I'm trying to extract the info from the SQL server. The query on the SQL side is kind of huge so here's a small piece of it: SELECT dbo.ALLOCATED.*, dbo.OBLandEXPD.*, dbo.ALLOCATED.SumOfASal * .4344 AS SE_ASal, dbo.ALLOCATED.SumOfASal * .5656 AS RE_ASal, dbo.ALLOCATED.SumOfAAwd * .4344 AS...
  8. Ausburgh

    ActiveReport w/ADO (by code) connected to SQL Server

    I have multiple records grouped by Branch which rolls all records in the "View table" up into 5 records(again grouped by Branch). When I used the DAO control I was able to generate one report with all 5 branches (on separate pages) with: Private Sub ghBranch_Format() ghBranch.NewPage =...
  9. Ausburgh

    ActiveReport w/ADO (by code) connected to SQL Server

    Thanks George that was it. Be patient with me ... this VB novice is learning. Thanks again.
  10. Ausburgh

    ActiveReport w/ADO (by code) connected to SQL Server

    Thanks George that was it. Be patience with me ... this VB novice is learning. Thanks again.
  11. Ausburgh

    ActiveReport w/ADO (by code) connected to SQL Server

    I hope I can explain the issue I'm having suffiently ... in any case here it is: I connected to the SQL server successfully but I'm having problems generating my reports anyway. And I suspect it's due to the & "" below ... but if I remove them I get an error too. Field1.DataValue =...
  12. Ausburgh

    Find a record in a Recordset (on the SQL Server)

    How can I find a record in a recordset (connected to the SQL Server via code) I modified my code to look like: Private Sub List1_Click() Dim Template As String Template = "[ERemark] = " & Chr$(34) & List1.List(List1.ListIndex) & Chr$(34) rs.Find Template End Sub Result: the list was blank...
  13. Ausburgh

    VB to SQL Server Connection

    You're right. My eyes are SO tired but everything seems to be fine now. Thanks George and JerryKlmns; You guys are my heroes.
  14. Ausburgh

    VB to SQL Server Connection

    Private Sub cmdNav_Click(Index As Integer) With rs cboABranch.Text = !ABranch cboASuppliesType.Text = !ASuppliesType & "" txtASal.Text = !ASal txtAAwd.Text = !AAwd & "" txtABen.Text = !ABen & "" txtAOT.Text = !AOT & ""...
  15. Ausburgh

    VB to SQL Server Connection

    Thanks George it worked. However, I find that if I stop on say record #25 and I edit it and save it and then move to another record before I close the app ... record #25 is saved twice deleting the immediate record in the direction in which I moved after I saved record #25 (I hope I explained...
  16. Ausburgh

    VB to SQL Server Connection

    Now I can see the first record only and I can edit that record only. Anybody know how I can move to the subsequent records? I added the following code to my Form_Load(): With rs cboABranch.Text = !ABranch cboASuppliesType.Text = !ASuppliesType & "" txtASal.Text =...
  17. Ausburgh

    VB to SQL Server Connection

    Thanks JerryKlmns that worked. I can update (add new records) the database on the SQL Server side now. Now I need to figure out how to edit, navigate and generally maintain the records ... since I can't see them when I load the application.
  18. Ausburgh

    VB to SQL Server Connection

    Thanks gmmastros & JerryKlmns for responding. Now I *have a connection but I cannot see any of the current records in the database (hence I cannot edit or update the records). *However everytime I try to add a new record on the VB side - I see a new record on the SQL side but it's an empty...
  19. Ausburgh

    VB to SQL Server Connection

    ...'RecNav.MoveLast rs.MoveLast End Select End Sub Private Sub Form_Load() 'Me.WindowState = vbMaximized '********************************************** 'Set and make the connection to the database. Set Conn = New ADODB.Connection...

Part and Inventory Search

Back
Top