Search
hi guyz specially to admin can you ,help me about my problem in looping i cant make it
ask ko lng po bakit nagkakaron ng error na invalid null kapag nag-add na ako ng records ko sa na addform ko kapag binalikan ko ung ms-access ko meron na 1 na naka- blank kaya null na sy.. sa vb 6.0 po ha..
yah,, you're right..
actually i've already solved that problem last night..
tnx to you guyz...
ipagpapatuloy q na paggawa ng thesis q,,if my problem prin i will post it here..
tnx again..
ganito kc un,,
ang login form q is like calculator pero numbers lng meron design kc sya for touchscreen like different information kiosk
I already finished the design of my project and the only problem is the looping statement
kung d nya makita yung match na user move xa sa next record hanggang makita nya ung user
try mu kya i trap ung error...
gumamit k ng break point every line
dun mo mkkta if bakit d gumagana ung loop,
break point is good in case of debugging.
its like just youre comparing a sql statement dba.hehe
gnto siguru un..ah siguru ung mga numbers eh nka array po un..
so it means you will need a for loop..
example:
nakaaray po ung cmd jan
Private Sub Command1_Click(Index As Integer)
'Label2.Caption = ""
For x = 0 To 2 'so tatlo lng ung cmd x represent its index
If Command1(x).Value = True Then
Label2.Caption = Label2.Caption & Command1(x).Caption
End If
Next x
End Sub
rs.open"select * from table where username="& val( label2.caption) &"",con,2,3
if not rs.eof then
msgbox"sdfsdfsf"
else
msgbox"sdfsdf"
end if
hehe try mo!
hindi po kc ako pwede gumamit ng combo box sa project na ga2win ko...
designed for touchscreen sya and for viewing of informations only like kiosk terminal na maki2ta sa different universities...
tnx for your replies and suggestions
The output will be in the c combobox
gaya neto"2009-2010"
Gingamit to sa Semester table hehe
ilagay mo to sa form load
Private Sub Form_Load()
Dim x
For x = 2010 To 2000 Step -1
Combo1.AddItem x & "-" & x + 1
Next x
End Sub
oh yan ..sana makatulong.hehe
hi guys will u help me about looping statement in my thesis. I think it has an error because the code is not functioning will you help me to debug the error?
here's my code...
Private Sub cmdenter_Click()
Call Entry
Set DataGrid1.DataSource = rs
If lblscreen(0).Caption = "" Then
MsgBox "Enter your ID Number first.", vbCritical, "System Security"
Else
If Not rs.BOF Then
rs.MoveFirst
End If
Do Until rs.EOF = True
If lblscreen(0) <> rs!stud_id Then
Exit Do
Else
With studinfo2
.Show
.lblIDno = rs!stud_id
.lblname = rs!full_name
.lblage = rs!age
.Label6(0) = rs!gender
.Label7 = rs!address
.Label8 = rs!year_level
.Label9 = rs!course
.Label10 = rs!c_major
End With
Unload Me
Exit Do
End If
Loop
End If
End Sub
Public Sub Entry()
Set rs = New ADODB.Recordset
rs.Open "Select * from sa03_user_01 where stud_id like '" & LogMeIn.lblscreen(0).Caption & "'", cn, adOpenKeyset, adLockPessimistic
End Sub
Public Sub myCon()
Dim mDataSource As String
mDataSource = "database/kiosk.mdb"
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.CommandTimeout = 0
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDataSource & ";Persist Security Info=False"
Set rs = New ADODB.Recordset
End Sub
help me please..tnx,,godbless
i think its the error ->Unload Me
try to put that code before the end sub
Use For for the start of looping and Next for the back end.
Don't have much idea about sa gusto mo magyari kse ndi ka naman nagpost ng codes kung san ilalagay ung loop
example of for loop
dim i as integer
for i=1 to listview.columnheaders.count
combobox.additem listview.columnheaders(i).text
next i
this code will add the text in each columnheader of the listview control in the combobox. this is for search tool of your projects..
tnx
leomar ramos
tingnan mo ung database table mo then punta ka sa design view tingnan mo dun kung nakaset ang Required sa YES,,set mo yung Required=NO then Allow Zero Length=YES
=>> Lynesus <<==