sir eric...hahaha mali lang pag copy ko sa isang project ko....pero msflexgrid1 ang gamit ko tlga sorry mali lang.
index? di ko po nakuha sir kung papaano gamitin yun. mahina pa talaga po ang background ko. self study lang kasi. any way may na-research po ako sa pag delete pero ginamit nya ang autonumber bilang criteria sa pag delete.
Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim db As Database
Dim SQL As String
Dim rs As Recordset
Dim i As Long
Dim iStep As Integer
Dim strWhere As String
Dim RowCount As Integer
Dim Ans As String
Set db = OpenDatabase(App.Path & "\db1.mdb")
If KeyCode = vbKeyDelete Then
Me.MousePointer = vbHourglass
With MSFlexGrid1
If .Row > .RowSel Then
RowCount = (.Row - .RowSel) + 1
iStep = -1
Else
iStep = 1
RowCount = (.RowSel - .Row) + 1
End If
Ans = MsgBox("Are you sure you want to deleted the selected " & RowCount & " record(s)?", vbYesNo + vbCritical + vbDefaultButton2)
Select Case Ans
Case vbYes
MSFlexGrid1.Visible = False
For i = .Row To .RowSel Step iStep
If Len(strWhere) > 0 Then
strWhere = strWhere & " or "
End If
strWhere = strWhere & "AutoNumColumn = " & .TextMatrix(i, 1)
SQL = "DELETE From Table1 Where " & strWhere
db.Execute SQL
Next
db.Close
Me.MousePointer = vbNormal
Case vbNo
db.Close
Me.MousePointer = vbNormal
Exit Sub
End Select
End With
cmdRefresh_Click
MsgBox "Delete completed."
End If
End Sub
HUHA:
sir nakuha ko na papaano mag-delete ng specific row dun.
msflexgrid1.removeitem msflexgrid1.row lang pala. yes ayos.
pero sir pwede paturo ako sa editing ng cells at papaano maging editable ang cell kasi mejo nalito pa ako dun sa sample. pasensya na sir. need lang talaga ng assistance nyo.
diba sinagot ko
sa flexgrid i specify mo lang sa Remove Method yung index ng rows maalis na yun
tapos
saka walang kinalaman ang recordset sa flexgrid kasi di naman databound.
thats why sa databse muna nag DELETE saka nag REFRESH sa flexgrid, yan yung nasa code mo
ang tanong mo kasi halong flexgrid at database
which is sabi ko completely not related
you can either delete a record from the database and refresh the grid
OR
delete the row OUTRIGHT, either way mawawala sya grid
deleting from databse is another matter
editing ng flexgrid, nandyan sa sample, may nakapatong lang ang textbox sa tapat ng cell, lalabas pag nag press ka ng key
pag ENTER or move ng cell, malilipat yung laman ng textbox sa cell sa ILALIM, and so on...
simple but elegant solution na nakuha ko sa internet way back mga 8 yrs ago pa, i just improved it a bit para mas mabilis at malinis.
wala ka choice kundi aralin yan just like what i did noong baguhan ako, wala ako time to teach it step by step, its just a trivial code
what you explain to programmers are concepts and principles and ideas, not how to code.
responsibiliy na yan ng programmer to experiment sa code para maaral.
hindi mo i eexplain sa karpentero kung papano gamitin ang lagari at martilyo,
i explain mo sa kanya kung ano ang itsura ng kalalabasan ng gagawin nyang bahay ng kalapati.
you can only get better if you try it yourself