Programming Forums > Application Development > Visual Basic

shidayati · Mar 31st, 2008, 1:21 PM

 vb Syntax (Toggle Plain Text) 
Private Sub Label5_Click()
Dim pegang3 As String
If Option2.Value = True Then
 
 
Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '*" & Text2.Text & "*'")
 
  Text2 = Combo2 & "/" & Combo1 & "/" & Combo3
pegang3 = Combo2 & "/" & Combo1 & "/" & Combo3
 
 If Text2 <> "" Then
 
 
 
        'Text2 = rsGeneral.Fields!Date
 
         Text2.Text = General.RecordCount
 
         frmadmin.txtDate = pegang3
 
        If General.RecordCount <> 0 Then
            Do While Not General.EOF
                If General.Fields!Date = Text2.Text Then
                Call loadLV
                 End If
 
                General.MoveNext
            Loop
 
 
        Else
            MsgBox ("Record 0")
        End If
    End If
End If
 
 
End Sub
Private Sub Label5_Click()
Dim pegang3 As String
If Option2.Value = True Then
 

Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '*" & Text2.Text & "*'")
 
  Text2 = Combo2 & "/" & Combo1 & "/" & Combo3
pegang3 = Combo2 & "/" & Combo1 & "/" & Combo3

 If Text2 <> "" Then

        
       
        'Text2 = rsGeneral.Fields!Date

         Text2.Text = General.RecordCount

         frmadmin.txtDate = pegang3
         
        If General.RecordCount <> 0 Then
            Do While Not General.EOF
                If General.Fields!Date = Text2.Text Then
                Call loadLV
                 End If
                
                General.MoveNext
            Loop
                
           
        Else
            MsgBox ("Record 0")
        End If
    End If
End If


End Sub

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
i don't what problems with this code..something with their looping and call funtion not work properly.the result no shown like i want and not appear at listview data.

Freaky Chris · Mar 31st, 2008, 1:24 PM

Is this VBA for Access? Plus could you please use code tags.

im afraid i can't offer much help as i do not know what it is supose to look like, if you could provide a bit more info that would be helpful.

Chris

shidayati · Mar 31st, 2008, 1:40 PM

 vb Syntax (Toggle Plain Text) 
Private Sub Label5_Click()
Dim pegang3 As String
 
""""user click at radio button for enter daily report
If Option2.Value = True Then
 
 
Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '*" & Text2.Text & "*'")
 
  Text2 = Combo2 & "/" & Combo1 & "/" & Combo3
"""" combo1 for dare
'''''''combo2 for month
'''''combo3 for year
 
 If Text2 <> "" Then
 
 
 
        'Text2 = rsGeneral.Fields!Date
 
         Text2.Text = General.RecordCount
 
 '''' check and loop for result
 
        If General.RecordCount <> 0 Then
            Do While Not General.EOF
                If General.Fields!Date = Text2.Text Then
                Call loadLV
                 End If
 
                General.MoveNext
            Loop
 
 
        Else
            MsgBox ("Record 0")
        End If
    End If
End If
 
 
End Sub
Private Sub Label5_Click()
Dim pegang3 As String

""""user click at radio button for enter daily report
If Option2.Value = True Then
 

Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '*" & Text2.Text & "*'")
 
  Text2 = Combo2 & "/" & Combo1 & "/" & Combo3
"""" combo1 for dare
'''''''combo2 for month
'''''combo3 for year

 If Text2 <> "" Then

        
       
        'Text2 = rsGeneral.Fields!Date

         Text2.Text = General.RecordCount

 '''' check and loop for result
         
        If General.RecordCount <> 0 Then
            Do While Not General.EOF
                If General.Fields!Date = Text2.Text Then
                Call loadLV
                 End If
                
                General.MoveNext
            Loop
                
           
        Else
            MsgBox ("Record 0")
        End If
    End If
End If


End Sub

''''''''''''''''''''''''''''''''''''
this program is to show daily report for student attendance based on date that enter by teacher......example if 30 student attend class on 28/02/2008..show the result will be shown all names of student.

OpenLoop · Mar 31st, 2008, 5:34 PM

Is this the full code? what is loadLV?

shidayati · Apr 1st, 2008, 7:21 AM

 vb Syntax (Toggle Plain Text) 
''''call function
 
 
Private Sub loadLV()
 
'''''function in search'''''''''
 
On Error Resume Next
ListView1.ListItems.Clear
 
Do While Not General.EOF
Set items = ListView1.ListItems.Add(, , General.Fields!Log)
'items.SubItems(1) = rsSTUDENT.Fields!STUDENTNAME
items.SubItems(1) = General.Fields!Date
items.SubItems(2) = General.Fields!ATTENDANCE
 
General.MoveNext
Loop
End Sub
''''call function


Private Sub loadLV()

'''''function in search'''''''''

On Error Resume Next
ListView1.ListItems.Clear

Do While Not General.EOF
Set items = ListView1.ListItems.Add(, , General.Fields!Log)
'items.SubItems(1) = rsSTUDENT.Fields!STUDENTNAME
items.SubItems(1) = General.Fields!Date
items.SubItems(2) = General.Fields!ATTENDANCE

General.MoveNext
Loop
End Sub

Mar 31st, 2008, 1:21 PM	#1
shidayati Newbie Join Date: Mar 2008 Posts: 5 Rep Power: 0	someone plz help me with mh code vb Syntax (Toggle Plain Text) Private Sub Label5_Click() Dim pegang3 As String If Option2.Value = True Then Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '" & Text2.Text & "'") Text2 = Combo2 & "/" & Combo1 & "/" & Combo3 pegang3 = Combo2 & "/" & Combo1 & "/" & Combo3 If Text2 <> "" Then 'Text2 = rsGeneral.Fields!Date Text2.Text = General.RecordCount frmadmin.txtDate = pegang3 If General.RecordCount <> 0 Then Do While Not General.EOF If General.Fields!Date = Text2.Text Then Call loadLV End If General.MoveNext Loop Else MsgBox ("Record 0") End If End If End If End Sub Private Sub Label5_Click() Dim pegang3 As String If Option2.Value = True Then Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '" & Text2.Text & "'") Text2 = Combo2 & "/" & Combo1 & "/" & Combo3 pegang3 = Combo2 & "/" & Combo1 & "/" & Combo3 If Text2 <> "" Then 'Text2 = rsGeneral.Fields!Date Text2.Text = General.RecordCount frmadmin.txtDate = pegang3 If General.RecordCount <> 0 Then Do While Not General.EOF If General.Fields!Date = Text2.Text Then Call loadLV End If General.MoveNext Loop Else MsgBox ("Record 0") End If End If End If End Sub """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" i don't what problems with this code..something with their looping and call funtion not work properly.the result no shown like i want and not appear at listview data. Last edited by big_k105; Mar 31st, 2008 at 3:53 PM.

Mar 31st, 2008, 1:24 PM	#2
Freaky Chris Hobbyist Programmer Join Date: Dec 2007 Location: England Posts: 169 Rep Power: 1	Re: someone plz help me with mh code Is this VBA for Access? Plus could you please use code tags. im afraid i can't offer much help as i do not know what it is supose to look like, if you could provide a bit more info that would be helpful. Chris __________________ Who said i couldn't program `sarcasm = raw_input('Type in a sarcastic remark: ') print sarcasm`

Mar 31st, 2008, 1:40 PM	#3
shidayati Newbie Join Date: Mar 2008 Posts: 5 Rep Power: 0	Re: someone plz help me with mh code vb Syntax (Toggle Plain Text) Private Sub Label5_Click() Dim pegang3 As String """"user click at radio button for enter daily report If Option2.Value = True Then Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '" & Text2.Text & "'") Text2 = Combo2 & "/" & Combo1 & "/" & Combo3 """" combo1 for dare '''''''combo2 for month '''''combo3 for year If Text2 <> "" Then 'Text2 = rsGeneral.Fields!Date Text2.Text = General.RecordCount '''' check and loop for result If General.RecordCount <> 0 Then Do While Not General.EOF If General.Fields!Date = Text2.Text Then Call loadLV End If General.MoveNext Loop Else MsgBox ("Record 0") End If End If End If End Sub Private Sub Label5_Click() Dim pegang3 As String """"user click at radio button for enter daily report If Option2.Value = True Then Set General = db.OpenRecordset("select * from GeneralLog WHERE DATE LIKE '" & Text2.Text & "'") Text2 = Combo2 & "/" & Combo1 & "/" & Combo3 """" combo1 for dare '''''''combo2 for month '''''combo3 for year If Text2 <> "" Then 'Text2 = rsGeneral.Fields!Date Text2.Text = General.RecordCount '''' check and loop for result If General.RecordCount <> 0 Then Do While Not General.EOF If General.Fields!Date = Text2.Text Then Call loadLV End If General.MoveNext Loop Else MsgBox ("Record 0") End If End If End If End Sub '''''''''''''''''''''''''''''''''''' this program is to show daily report for student attendance based on date that enter by teacher......example if 30 student attend class on 28/02/2008..show the result will be shown all names of student. Last edited by big_k105; Mar 31st, 2008 at 3:54 PM.

Mar 31st, 2008, 5:34 PM	#4
OpenLoop Expert Programmer Join Date: May 2005 Location: East Lansing, MI Posts: 663 Rep Power: 4	Re: someone plz help me with mh code Is this the full code? what is loadLV?

Apr 1st, 2008, 7:21 AM	#5
shidayati Newbie Join Date: Mar 2008 Posts: 5 Rep Power: 0	Re: someone plz help me with my code vb Syntax (Toggle Plain Text) ''''call function Private Sub loadLV() '''''function in search''''''''' On Error Resume Next ListView1.ListItems.Clear Do While Not General.EOF Set items = ListView1.ListItems.Add(, , General.Fields!Log) 'items.SubItems(1) = rsSTUDENT.Fields!STUDENTNAME items.SubItems(1) = General.Fields!Date items.SubItems(2) = General.Fields!ATTENDANCE General.MoveNext Loop End Sub ''''call function Private Sub loadLV() '''''function in search''''''''' On Error Resume Next ListView1.ListItems.Clear Do While Not General.EOF Set items = ListView1.ListItems.Add(, , General.Fields!Log) 'items.SubItems(1) = rsSTUDENT.Fields!STUDENTNAME items.SubItems(1) = General.Fields!Date items.SubItems(2) = General.Fields!ATTENDANCE General.MoveNext Loop End Sub Last edited by big_k105; Apr 1st, 2008 at 10:43 AM. Reason: added Code Tags

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Incorporating javascript code into java application	csrocker101	Java	1	Feb 11th, 2008 6:36 AM
Viewing VB's Automated code	john Wesley	Visual Basic .NET	3	Jun 8th, 2006 5:37 AM
FTP and return code fetching	Serinth	C	2	May 28th, 2006 11:05 PM
String to Morse Code - Copying from string to string	Xenon	C	29	Nov 10th, 2005 2:30 PM
Code suggestions	Mad_guy	Perl	0	Feb 18th, 2005 10:31 PM

Programming Forums > Application Development > Visual Basic

someone plz help me with mh code