i am doing a vb project, i am getting error code 3021, when click doc1, this error occures,
code below -
Private Sub cmdDoc1_Due_Click()
-
Dim sysd As Date
-
sysd = Format(Date, "dd-MMM-yy")
-
Dim Row_Var As Integer
-
Dim VhclNo As String
-
Dim date1, strQueryDoc1Chk, strRecordFind, strQuerySM As String
-
Dim rsDoc1Chk As New ADODB.Recordset
-
Dim rsRecordFind As New ADODB.Recordset
-
Row_Var = 1
-
Call ConnOpen
-
strQuery = "SELECT ppmk_vhcl_no, max(ppmk_date) AS DateMax FROM preventive_prgm_maint_kms WHERE ppmk_date <= '" & UCase(sysd) & "' GROUP BY ppmk_vhcl_no ORDER BY ppmk_vhcl_no"
-
rsSlno.Open (strQuery), gcnn, adOpenDynamic, adLockOptimistic
-
Dim rsVhclMake As New ADODB.Recordset
-
Dim VEHMAKE As String
-
-
While Not rsSlno.EOF
-
Dim Vhcl_no As String
-
Dim maxdate As String
-
Vhcl_no = rsSlno("ppmk_vhcl_no")
-
maxdate = rsSlno("DateMax")
-
strRecordFind = "SELECT ppmk_vhcl_status FROM preventive_vehicle_master WHERE ppmk_vhcl_no = '" & Vhcl_no & "'"
-
rsRecordFind.Open (strRecordFind), gcnn, adOpenDynamic, adLockOptimistic
-
If (rsRecordFind("ppmk_vhcl_status") = "AA") Then
-
GoTo lblnext
-
End If
-
If (rsRecordFind("ppmk_vhcl_status") = "VT_PERM") Then
-
GoTo skip_slno
-
End If
-
If (rsRecordFind("ppmk_vhcl_status") = "SCRP") Then
-
GoTo skip_slno
-
End If
-
lblnext:
-
rsVhclMake.Open "SELECT ppmk_vhcl_make FROM preventive_vehicle_master WHERE ppmk_vhcl_no = '" & Vhcl_no & "'", gcnn, adOpenDynamic, adLockOptimistic
-
VEHMAKE = rsVhclMake("ppmk_vhcl_make")
-
strQuery3 = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "'"
-
rsdoc.Open (strQuery3), gcnn, adOpenDynamic, adLockOptimistic
-
-
While Not rsdoc.EOF
-
If UCase(rsdoc("ppmk_dock_compltd")) = "DOC1" Then
-
rsdoc.Close
-
rsVhclMake.Close
-
GoTo skip_slno
-
Else
-
strQueryDoc1Chk = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date <= '" & maxdate & "' ORDER BY ppmk_date DESC"
-
rsDoc1Chk.Open (strQueryDoc1Chk), gcnn, adOpenDynamic, adLockOptimistic
-
-
Do While Not rsDoc1Chk.EOF
-
If UCase(rsDoc1Chk("ppmk_dock2_compltd")) = "DOC2" Then
-
Exit Do
-
End If
-
If UCase(rsDoc1Chk("ppmk_dock_compltd")) = "DOC1" Then
-
rsDoc1Chk.Close
-
rsdoc.Close
-
rsVhclMake.Close
-
GoTo skip_slno
-
Exit Do
-
End If
-
rsDoc1Chk.MoveNext
-
Loop
-
rsDoc1Chk.Close
-
End If
-
rsdoc.MoveNext
-
Wend
-
rsdoc.Close
-
rsVhclMake.Close
-
Dim rsSMveh As New ADODB.Recordset
-
rsSMveh.Open ("SELECT ppmk_start_km_doc1 FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "'"), gcnn, adOpenDynamic, adLockOptimistic
-
If (rsSMveh("ppmk_start_km_doc1") > 13000 And VEHMAKE = "SM") Then
-
'strQuerySM = "UPDATE preventive_prgm_maint_kms SET PPMK_SLNO=" & Row_Var & " WHERE PPMK_VHCL_NO='" & Vhcl_no & "' and ppmk_date='" & maxdate & "'"
-
strQuerySM = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & Row_Var & " WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "' AND ppmk_start_km_doc1 BETWEEN 13000 AND 20000 "
-
gcnn.Execute (strQuerySM)
-
GoTo rowincr
-
End If
-
StrQuery1 = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & Row_Var & " WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "' AND ppmk_start_km_doc1 BETWEEN 18000 AND 25000 "
-
gcnn.Execute (StrQuery1)
-
rowincr:
-
Row_Var = Row_Var + 1
-
rsSMveh.Close
-
skip_slno:
-
rsSlno.MoveNext
-
rsRecordFind.Close
-
Wend
-
rsSlno.Close
-
Dim strQueryKmDesc As String
-
Dim rsKmSlno As New ADODB.Recordset
-
Dim vardesc, veh_slno As Integer
-
Dim veh_no As String
-
vardesc = 1
-
strQueryKmDesc = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_slno IS NOT NULL ORDER BY ppmk_start_km_doc1 DESC"
-
rsKmSlno.Open (strQueryKmDesc), gcnn, adOpenDynamic, adLockOptimistic
-
While Not rsKmSlno.EOF
-
veh_no = rsKmSlno("ppmk_vhcl_no")
-
veh_slno = rsKmSlno("ppmk_slno")
-
gcnn.Execute ("UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & vardesc & " WHERE ppmk_vhcl_no = '" & veh_no & "' AND ppmk_slno = '" & veh_slno & "'")
-
rsKmSlno.MoveNext
-
vardesc = vardesc + 1
-
Wend
-
rsKmSlno.Close
-
Load deVMS
-
With deVMS
-
If .rsCommand2_Grouping.State <> 0 Then .rsCommand2_Grouping.Close
-
'.Command2 CDate(sysd)
-
End With
-
DataReport2.Refresh
-
If DataReport2.Visible = False Then DataReport2.Show
-
strQuery2 = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = ''"
-
gcnn.Execute (strQuery2)
-
Call ConnClose
-
-
End Sub
3 1334
Place brake point and check in debug mode exactly which line of code is creating the problem.
It seems there is no record in the database.
Hi,
What Point /Line of the code, you are getting error...?
Try changing to : "Do While Not rsSlno.EOF" .... Loop
Instead of While Not..
Regards
Veena
i am doing a vb project, i am getting error code 3021, when click doc1, this error occures, i am geeting error in line 23 code is
( If (rsRecordFind("ppmk_vhcl_status") = "AA") Then)
code below -
Private Sub cmdDoc1_Due_Click()
-
Dim sysd As Date
-
sysd = Format(Date, "dd-MMM-yy")
-
Dim Row_Var As Integer
-
Dim VhclNo As String
-
Dim date1, strQueryDoc1Chk, strRecordFind, strQuerySM As String
-
Dim rsDoc1Chk As New ADODB.Recordset
-
Dim rsRecordFind As New ADODB.Recordset
-
Row_Var = 1
-
Call ConnOpen
-
strQuery = "SELECT ppmk_vhcl_no, max(ppmk_date) AS DateMax FROM preventive_prgm_maint_kms WHERE ppmk_date <= '" & UCase(sysd) & "' GROUP BY ppmk_vhcl_no ORDER BY ppmk_vhcl_no"
-
rsSlno.Open (strQuery), gcnn, adOpenDynamic, adLockOptimistic
-
Dim rsVhclMake As New ADODB.Recordset
-
Dim VEHMAKE As String
-
-
While Not rsSlno.EOF
-
Dim Vhcl_no As String
-
Dim maxdate As String
-
Vhcl_no = rsSlno("ppmk_vhcl_no")
-
maxdate = rsSlno("DateMax")
-
strRecordFind = "SELECT ppmk_vhcl_status FROM preventive_vehicle_master WHERE ppmk_vhcl_no = '" & Vhcl_no & "'"
-
rsRecordFind.Open (strRecordFind), gcnn, adOpenDynamic, adLockOptimistic
-
If (rsRecordFind("ppmk_vhcl_status") = "AA") Then
-
GoTo lblnext
-
End If
-
If (rsRecordFind("ppmk_vhcl_status") = "VT_PERM") Then
-
GoTo skip_slno
-
End If
-
If (rsRecordFind("ppmk_vhcl_status") = "SCRP") Then
-
GoTo skip_slno
-
End If
-
lblnext:
-
rsVhclMake.Open "SELECT ppmk_vhcl_make FROM preventive_vehicle_master WHERE ppmk_vhcl_no = '" & Vhcl_no & "'", gcnn, adOpenDynamic, adLockOptimistic
-
VEHMAKE = rsVhclMake("ppmk_vhcl_make")
-
strQuery3 = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "'"
-
rsdoc.Open (strQuery3), gcnn, adOpenDynamic, adLockOptimistic
-
-
While Not rsdoc.EOF
-
If UCase(rsdoc("ppmk_dock_compltd")) = "DOC1" Then
-
rsdoc.Close
-
rsVhclMake.Close
-
GoTo skip_slno
-
Else
-
strQueryDoc1Chk = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date <= '" & maxdate & "' ORDER BY ppmk_date DESC"
-
rsDoc1Chk.Open (strQueryDoc1Chk), gcnn, adOpenDynamic, adLockOptimistic
-
-
Do While Not rsDoc1Chk.EOF
-
If UCase(rsDoc1Chk("ppmk_dock2_compltd")) = "DOC2" Then
-
Exit Do
-
End If
-
If UCase(rsDoc1Chk("ppmk_dock_compltd")) = "DOC1" Then
-
rsDoc1Chk.Close
-
rsdoc.Close
-
rsVhclMake.Close
-
GoTo skip_slno
-
Exit Do
-
End If
-
rsDoc1Chk.MoveNext
-
Loop
-
rsDoc1Chk.Close
-
End If
-
rsdoc.MoveNext
-
Wend
-
rsdoc.Close
-
rsVhclMake.Close
-
Dim rsSMveh As New ADODB.Recordset
-
rsSMveh.Open ("SELECT ppmk_start_km_doc1 FROM preventive_prgm_maint_kms WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "'"), gcnn, adOpenDynamic, adLockOptimistic
-
If (rsSMveh("ppmk_start_km_doc1") > 13000 And VEHMAKE = "SM") Then
-
'strQuerySM = "UPDATE preventive_prgm_maint_kms SET PPMK_SLNO=" & Row_Var & " WHERE PPMK_VHCL_NO='" & Vhcl_no & "' and ppmk_date='" & maxdate & "'"
-
strQuerySM = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & Row_Var & " WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "' AND ppmk_start_km_doc1 BETWEEN 13000 AND 20000 "
-
gcnn.Execute (strQuerySM)
-
GoTo rowincr
-
End If
-
StrQuery1 = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & Row_Var & " WHERE ppmk_vhcl_no = '" & Vhcl_no & "' AND ppmk_date = '" & maxdate & "' AND ppmk_start_km_doc1 BETWEEN 18000 AND 25000 "
-
gcnn.Execute (StrQuery1)
-
rowincr:
-
Row_Var = Row_Var + 1
-
rsSMveh.Close
-
skip_slno:
-
rsSlno.MoveNext
-
rsRecordFind.Close
-
Wend
-
rsSlno.Close
-
Dim strQueryKmDesc As String
-
Dim rsKmSlno As New ADODB.Recordset
-
Dim vardesc, veh_slno As Integer
-
Dim veh_no As String
-
vardesc = 1
-
strQueryKmDesc = "SELECT * FROM preventive_prgm_maint_kms WHERE ppmk_slno IS NOT NULL ORDER BY ppmk_start_km_doc1 DESC"
-
rsKmSlno.Open (strQueryKmDesc), gcnn, adOpenDynamic, adLockOptimistic
-
While Not rsKmSlno.EOF
-
veh_no = rsKmSlno("ppmk_vhcl_no")
-
veh_slno = rsKmSlno("ppmk_slno")
-
gcnn.Execute ("UPDATE preventive_prgm_maint_kms SET ppmk_slno = " & vardesc & " WHERE ppmk_vhcl_no = '" & veh_no & "' AND ppmk_slno = '" & veh_slno & "'")
-
rsKmSlno.MoveNext
-
vardesc = vardesc + 1
-
Wend
-
rsKmSlno.Close
-
Load deVMS
-
With deVMS
-
If .rsCommand2_Grouping.State <> 0 Then .rsCommand2_Grouping.Close
-
'.Command2 CDate(sysd)
-
End With
-
DataReport2.Refresh
-
If DataReport2.Visible = False Then DataReport2.Show
-
strQuery2 = "UPDATE preventive_prgm_maint_kms SET ppmk_slno = ''"
-
gcnn.Execute (strQuery2)
-
Call ConnClose
-
-
End Sub
i am geeting error in line 23
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Colin Graham |
last post by:
I am writing this piece of code to show the previous record on a
control on the form but i keep getting the error message "Error 3021
no current record " and the line marked *** gets highlighted. I...
|
by: Robert Wing |
last post by:
I support an MS Access application in which errors are trapped using
the On Error statement. Just recently, the users of this system have
experienced run-time error number 3021 on a random basis. ...
|
by: dixie |
last post by:
Can someone please give me the error number for this error?
dixie
|
by: windandwaves |
last post by:
Hi,
I am trying to make errors a bit more meaningful for my users.
I am trying to fix error 3201 where there is a missing field in a form.
If I do not do any error trapping, then I get
...
|
by: Robert |
last post by:
I have a label on my form lblCount and the following code in my form for
displaying a record count:
Private Sub Form_Current()
Me.RecordsetClone.Bookmark = Me.Bookmark
Me!lblCount.Caption =...
|
by: ruvi |
last post by:
I am getting runtime error 3021 - Either EOF or BOF is true or the current record has been deleted.....
I have 2 combo boxes in a form- One for the client and the other for the project.
When the...
|
by: Oseyo |
last post by:
I'm working with Access 2000 Version 9.0. I closed a Database that i was working on and on opening it up again an Error Message displayed "No Current Record" the Help File displays the Error Code as...
|
by: fish919 |
last post by:
Hello All,
I am having a little trouble with my database. The Database has a parent table with 5 or 6 children tables in it they are linked by a common id filed.
The problem is that the...
|
by: bssandeshbs |
last post by:
I am developing a Address Book Database Project using Visual Basic 6...
When i click the delete button the data does'nt get deleted in the FrontEnd ..But it gets deleted in Database when we see in...
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: jfyes |
last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: af34tf |
last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
| |