Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Plain Text by Mode ( 15 years ago )
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
Combo1.Clear
snd.Recordset.OpenRecordset
snd.Recordset.MoveFirst
Do While Not snd.Recordset.EOF
Combo1.AddItem Text2.Text
snd.Recordset.MoveNext
Loop
End Sub
Private Sub Combo1_Click()
snd.Recordset.Index = "pavad"
snd.Recordset.Seek "=", Combo1.Text
If poz = 1 Then
vykdyk = MsgBox(seka1$, vbOKCancel, "Salinti?")
If vykdyk = vbOK Then
snd.Recordset.Delete
snd.Recordset.MoveNext
End If
End If
poz = 0
End Sub
Private Sub Command1_Click()
Combo1.Clear
snd.Recordset.OpenRecordset
snd.Recordset.MoveFirst
Do While Not snd.Recordset.EOF
Combo1.AddItem Text2.Text
snd.Recordset.MoveNext
Loop
End Sub
Private Sub Command2_Click()
snd.Recordset.Index = "pavad"
snd.Recordset.Seek "=", Combo1.Text
If poz_ks = 0 Then
vykdyk = MsgBox(seka1$, vbOKCancel, "Salinti")
If vykdyk = vbOK Then
snd.Recordset.Delete
snd.Recordset.MoveNext
End If
End If
poz_ks = 1
End Sub
Revise this Paste
Children: 40056