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 Rhinorhino 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 madhula

  1. madhula

    Problem with deleting record

    I just tried replacing dbs.Execute ("delete AttId from sysDeptDef where DeptId='" & CurrentDeptId & "'") with rst_local.delete It worked :) Thanks for your replies
  2. madhula

    Problem with deleting record

    Yes i can just delete the entire row.I was just playing with the code to try my luck. when i delete the netire row with that deptid..i think both the rows with same deptid are deleted.when the process searches for next record it cannot find the record since it is already deleted and process...
  3. madhula

    Problem with deleting record

    HI, I am using the following function to delete a record from sysDeptDef table which is not present in ups_new table. I have two rows for the same deptid but diff attid. when i use the delete command the two rows get deleted but when the loop executes it cannot find the deptid so it fails.can...
  4. madhula

    Runtime error 3134

    I tried that ...didnot work..:(
  5. madhula

    Runtime error 3134

    i have used this code dbs.Execute ("INSERT INTO sysDeptDef (DeptId,DeptId_Up1,DeptId_Up2,AttId,LobId,LevelCheck,Oc_Id,Level) VALUES ('" & CurrentDeptId & "','" & rst_check(LevelUp1) & "','" & rst_check(LevelUp2) & "'," & AttId & ",'" & rst_check(LobId) & "', " & LevelCheck & "," & Oc_Id & "," &...
  6. madhula

    Runtime error 3134

    I think the problem is with currentlevel.i have tried inserting one at a time..it breaks when i insert currentlevel.. Level field in the table is a number....currentlevel is an integer do you think anything is wrong with mismatch of datatypes?
  7. madhula

    Runtime error 3134

    same problem...:(
  8. madhula

    Runtime error 3134

    I have removed that field and i am inserting into a new table sysDeptNew. Sorry i didnot paste the correct tabelname. I didnot wanted to mess with sysDeptDef so i created anotehr table same fields datatypes but with no oc_id.
  9. madhula

    Runtime error 3134

    INSERT INTO sysDeptDef(DeptId,DeptId_Up1,DeptId_Up2,AttId,LobId,Level,Oc_id,LevelCheck) VALUES ('D000139010','L4_DEPTID','L3_DEPTID',2,'L5_DEPTID',5,False) I have chnaged the code to MsgBox ("INSERT INTO sysDeptNew (DeptId,DeptId_Up1,DeptId_Up2,AttId,LobId,Level,LevelCheck) VALUES ('" & _...
  10. madhula

    Runtime error 3134

    I get the same error even after using the single quotes...i am struck with problem for so long............:(
  11. madhula

    Runtime error 3134

    Dim CurrentLevel As Integer Dim CurrentDeptId As Variant Dim LevelUp1 As String Dim LevelUp2 As String Dim LobId As String Dim AttId As Integer Dim Oc_Id As Integer Dim LevelCheck As Boolean Set rst_check = dbs.OpenRecordset("Select dept_level,deptid from...
  12. madhula

    insert record

    i have used dbs.Execute ("INSERT INTO sysDeptDef (DeptId,DeptId_Up1,DeptId_Up2,AttId,LobId,Level,oc_id,LevelCheck) VALUES ('" & CurrentDeptId & "','" & LevelUp1 & "','" & LevelUp2 & "'," & AttId & ",'" & LobId & "'," & CurrentLevel & "," & Oc_Id & ",'" & LevelCheck & "')") it still fails..:(...
  13. madhula

    insert record

    Dim CurrentLevel As Integer Dim CurrentDeptId As Variant Dim LevelUp1 As Variant Dim LevelUp2 As Variant Dim LobId As Variant Dim AttId As Integer Dim Oc_Id As Integer Dim LevelCheck As Boolean Set rst_check = dbs.OpenRecordset("Select dept_level,deptid from...
  14. madhula

    If not conditional loop

    Hello, I have given the code for the function. Sub DeptCheck_New() Dim dbs As DAO.Database Dim rst_pplops As DAO.Recordset Dim rst_local As DAO.Recordset Dim CurrentLevel As Integer Dim CurrentDeptId As String Dim LevelUp1 As String Dim LevelUp2 As String Dim...
  15. madhula

    If not conditional loop

    Do Until rst_local.EOF If rst_pplops(LevelUp1) = rst_local("DeptId_Up1") And _ rst_pplops(LevelUp2) = rst_local("DeptId_Up2") And _ rst_pplops("Dept_Level") = CurrentLevel And rst_pplops("EFF_STATUS") = "A" And rst_pplops("DeptId") = CurrentDeptId Then 'If...
See more

Part and Inventory Search

Back
Top