Recent content by dkc123

Thanks The_Doc_Man...

Thanks a lot Minty...You were right there were lots of undeclared variables... buts its working fine now..heres the code.. Dim db As DAO.Database Dim rs As DAO.Recordset Dim rstoid As DAO.Recordset Dim strtoid As String, strtnid As String, struser As String, strreg As String, strtid As String...

Hi friends, Got stuck with the first loop not moving ahead...The function is executing fine ..but oce it returns to the originat recordset loop startsat the first record again... plz help?? Dim db As DAO.Database Dim rs As DAO.Recordset Dim strtoid As String, strtnid As String 'strtoid =...

Heres the code for the Module...Its working fine... Option Compare Database Public Sub SaveTestPro(strTestID As String, strbkngid As String) 'TestNameID as in the TestName table is passed on in this string(strTestID) 'BkngOrdrTblID from the BkngOrdrTbl tbl or in this case NonProfileTests...

Thanks everyone for your replies.... Finally could resolve the problem when broke the code in indivudualbits ad tried to execute the problem was in If only, not thaat I hadnt closed any of the statements but I was using an extra If--> End If which could have been avoided.....I was individually...

Thanks a lot Minty for replying, at least there's a ray of hope.. I used Do Until rs.eof as you advised ....still same error There are 10 warnings on because have copied lots of individual codes from different controls where they have been used...since am only developing didnt bother much..but...

But all the loops Inside are working perfect- probem has arisen only when added the first level -> rs.movefirst->Do....Otherloops are just copied and working fine...

Hi Friends, Got stuck up with Error LoopwithoutDo- But I do have the Do .... Also checked for misssing End If's again and again; they are all there.. Following is the code, had a working code with subloops which were working perfect, but then I tried to put those in Loop- so that the query...

Here is the solution that is working fine for me, just sharing so that if anyone else has a problem may find helpful... Private Sub Form_Open(Cancel As Integer) Dim db As Database Dim rs As Recordset Dim cnt As Control Dim sqltbl As String If IsNull(Me.OpenArgs) = False Then sqltbl = ("Select *...

Thanks a lot for all the help! I feel access has only improved the way I work, learning new things is just a part of my profession!! I'll definitely use the code for the combo, till yet I'd been using the combobox wizrd for the same purpose..Thanks

Thanks fr replying , I'll try and get back, I'm sure this will work..

I would try to put things simpler, If I have a Table TblTestname with fields TestName and TestValue like below AutoID TestName TestValue 1. 101 25 2. 102 35 3. 103 1265 4. 104 45 5. 105 65 6. 7. Then I need that the form with textbox name 101 to be populated with 25, 102 to be...

Thanks I was'nt aware about the the form being bound even though I could see the Query in the form recordsource in the properties table.. I am a doctor and not a software engineer, I have learned everything from the net and tutorials.. Will give a little backround first, this is from an existing...

Dim db As Database Dim rs As DAO.Recordset Dim sqltbl As String If IsNull(Me.OpenArgs) = False Then sqltbl = ("Select TestName, TestValue FROM NonProfileTests WHERE TestOrderID ='" & Me.OpenArgs & "") Set db = CurrentDb Set rs = db.OpenRecordset(sqltbl) Set Me.Recordset = rs rs.Close Set db...

Thanks fr replying.. I'm checking out the links hope something works