Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.
All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!
ayun di na po sya nagooverflow..
kaso po ayaw na tumuloy tuloy... try ko po ayusin ulit yung gawa ko... ang hirap pala nito..
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.clear
Combo1.AddItem "ID"
Combo1.AddItem "Name"
Set rs = New ADODB.Recordset
rs.Open "select * from Customer", cn, adOpenKeyset, adLockOptimistic
frmcustomersearch.searchingthelist
End Sub
Sub searchingthelist()
If Not rs.EOF Then
ListView1.ListItems.clear
rs.MoveFirst
Do While Not rs.EOF
Set Item = ListView1.ListItems.Add(, , rs!Customer_ID)
Item.SubItems(1) = rs!Customer_Name
Item.SubItems(2) = rs!Customer_Address
rs.MoveNext
Loop
Else
ListView1.ListItems.clear
End If
rs.Close
Set rs = Nothing
End Sub
Sub search()
If Combo1.Text = "Name" Then
Set rs = New ADODB.Recordset
rs.Open "select * from customer where Customer_Name like '" & txtsearch.Text & "%';", cn, adOpenKeyset, adLockOptimistic
frmcustomersearch.searchingthelist
ElseIf Combo1.Text = "ID" Then
Set rs = New ADODB.Recordset
rs.Open "select * from customer where Customer_ID like '" & txtsearch.Text & "%';", cn, openkeyset, adLockOptimistic
frmsearch.searchingthelist
End If
End Sub
Private Sub txtsearch_Change()
frmcustomersearch.search
End Sub
hi gandang umaga poh....
pano po ba mag-add ng order sa customer??
may list po aq ng customer sa listview at ganito po gusto ko mangyari, pag may napili na po aq sa listview ay i-cclick ko lang po ang customer sa list...tapos i-ppress po ung Add Order na command button at may lalabas na form para makapag-add ng order sa customer na napili...
malinaw po bah??
Code:Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() Combo1.clear Combo1.AddItem "ID" Combo1.AddItem "Name" Set rs = New ADODB.Recordset rs.Open "select * from Customer", cn, adOpenKeyset, adLockOptimistic frmcustomersearch.searchingthelist End Sub Sub searchingthelist() If Not rs.EOF Then ListView1.ListItems.clear rs.MoveFirst Do While Not rs.EOF Set Item = ListView1.ListItems.Add(, , rs!Customer_ID) Item.SubItems(1) = rs!Customer_Name Item.SubItems(2) = rs!Customer_Address rs.MoveNext Loop Else ListView1.ListItems.clear End If rs.Close Set rs = Nothing End Sub Sub search() If Combo1.Text = "Name" Then Set rs = New ADODB.Recordset rs.Open "select * from customer where Customer_Name like '" & txtsearch.Text & "%';", cn, adOpenKeyset, adLockOptimistic frmcustomersearch.searchingthelist ElseIf Combo1.Text = "ID" Then Set rs = New ADODB.Recordset rs.Open "select * from customer where Customer_ID like '" & txtsearch.Text & "%';", cn, openkeyset, adLockOptimistic frmsearch.searchingthelist End If End Sub Private Sub txtsearch_Change() frmcustomersearch.search End Sub
salamat poh...
Do While Pn <> -3
n = n + 1
Pn1 = X1
fPn1 = f(X1)
Debug.Print (Pn = (Pn1 - (fPn1 * (Pn1 - Pn0)) / (fPn1 - fPn0)))
Pn = (Pn1 - (fPn1 * (Pn1 - Pn0)) / (fPn1 - fPn0))
arrPn= Pn
' dito po sa part na to.. ung Pn1 sa taas, sya na yung magiging Pn0 pagkatapos iperform yung formula sa taas..(tama po kaya to?)
Pn0 = Pn1
fPn0 = fPn1
'dito naman po.. yung Pn1, sya na yung magiging Pn.. then magloloop na ulit hanggat di pa -3 yung Pn...
Pn1 = Pn
arrPn
fPn1 = fPn
arrfPn
Exit Do
Loop
For i = 0 To n
MsgBox (i & "" & arrPn(i) & "" & arrfPn(i))
Next
End Sub
plsss...
help po mga paps,
ganito po kasi:
gusto ko sana na di na i allow sa listbox yung item NAME na
na add na sa list nya. panong coding po ba gagawin ko dito?
help po mga paps,
ganito po kasi:
gusto ko sana na di na i allow sa listbox yung item NAME na
na add na sa list nya. panong coding po ba gagawin ko dito?
combo1.clear
dim hasmatch as boolean
for i = 0 to rs.recordcount -1
hastmatch = false
for j = 0 to list1.listcount -1
if rs(i).value = list1.list(j) then
hasmatch = true
exit for
end if
next j
if not hasmatch then combo1.additem(rs(i).value)
next i
