näin se tyhjennys tapahtuu.....yleensä?

pitro kirjoitti:

Option Explicit
Sub main()

End Sub
Private Sub tyhjenna_putki()
'------------------------------------------------------------
' frmTuotteet / declarations
' Tyhjentää kuvaruudun.
'------------------------------------------------------------
txtT_Tnro.Text = ""
TxtT_nimi.Text = ""
TxtT_yks.Text = ""
TxtT_ykshinta.Text = ""
txtT_kuvaus.Text = ""
cboT_T_nro.ListIndex = -1
cboT_ryhma.ListIndex = -1
cboT_V_nro.ListIndex = -1
End Sub

Private Sub tarkista()
'------------------------------------------------------------
' frmTuotteet / Declarations - yleismoduli
'
' Tarkistetaan ruudulla olevat tiedot ja tuodaan tarvittavat
' lisäselitteet putkelle. Tieto tarkistusten onnistumisesta
' välitetään globaalilla muuttujalla G_Okvipu:
'
' G_Okvipu = True --> Ei virheitä
' False --> Tarkistusvirheitä
'-------------------------------------------------------------
Dim a As Integer
a = 0

G_Okvipu = True



If (Trim(txtT_Tnro.Text) = "") Then
a = 1
End If

If (Trim(TxtT_nimi.Text) = "") Then
a = 1
End If

If (Trim(TxtT_yks.Text) = "") Then
a = 1
End If

If (Trim(TxtT_ykshinta.Text) = "") Then
a = 1
End If

If (Trim(txtT_kuvaus.Text) = "") Then
a = 1
End If

If (Trim(cboT_V_nro.Text) = "") Then
a = 1
End If

If (Trim(cboT_ryhma.Text) = "") Then
a = 1
End If

If (Trim(cboT_T_nro.Text) = "") Then
a = 1
End If

If (a = 1) Then
G_Okvipu = False
End If

End Sub

Private Sub cmdEdellinen_Click()
'--------------------------------------------------
' Edellinen tietue Tuotteet -taulusta putkelle
'--------------------------------------------------
G_Tuotteet.MovePrevious
Call G_DofrmTuotteet


End Sub




Private Sub cmdEka_Click()
'---------------------------------------------------
' Ensimmäinen tietue Tuote-taulusta putkelle
'---------------------------------------------------
G_Tuotteet.MoveFirst
If (G_Tuotteet.BOF) Then
MsgBox "Tiedosto on tyhjä !"
Else
Call G_DofrmTuotteet
End If

End Sub



Private Sub cmdLisaa_Click()
G_Lisaysvipu = True 'Tiedoksi päivittämistävarten, että
'lisäystä on painettu
Call tyhjenna_putki
txtT_Tnro.SetFocus
CmdEka.Enabled = False
CmdSeuraava.Enabled = False
CmdViimeinen.Enabled = False
CmdEdellinen.Enabled = False
CmdTuotehaku.Enabled = True
CmdPoista.Enabled = False
CmdLisaa.Enabled = False
CmdLopeta.Caption = "Pe&ruuta"
CmdLopeta.Enabled = True

End Sub



Private Sub CmdLista_Click()
Report1.ReportFileName = "d:pekupekuvarastosysteemiTuotteet.rpt"
Report1.Action = 1
End Sub



Private Sub CmdLopeta_Click()
If (CmdLopeta.Caption = "Pe&ruuta") Then
MsgBox "Toiminto keskeytetty, palautetaan edellinen tilanne"
CmdLopeta.Caption = "Lopeta"
CmdTuotehaku.Enabled = True
CmdPoista.Enabled = True
CmdLisaa.Enabled = True
Call G_DofrmTuotteet ' Näyttää viimeksiluetuyn tietueen datat putkelle
G_Lisaysvipu = False
Else
End
End If
End Sub


Private Sub CmdPaivita_Click()
'----------------------------------------------------------
' Lisää uuden tai päivittää olemassaolevaa tietuetta
'----------------------------------------------------------
Call tarkista
If (G_Okvipu = False) Then
MsgBox "Kaikki tiedot annettava --> Tee korjaus, ja paina PÄIVITÄ"
Exit Sub
End If
If (G_Lisaysvipu = True) Then 'Uuden tietueen lisäys
If (Trim(txtT_Tnro.Text) = "") Then
MsgBox ("Tuotteen numero on annettava !!!")
txtT_Tnro.SetFocus
Exit Sub
Else
G_Tuotteet.Index = "T_Tnro"
G_Tuotteet.Seek "=", txtT_Tnro.Text
If (Not G_Tuotteet.NoMatch) Then
MsgBox "Kyseinen Tuotenumero on jo käytössä" & _
",lisäystä ei tehty, korjaa tilanne !"
txtT_Tnro.SetFocus
Exit Sub
End If
End If
G_Tuotteet.AddNew
G_Tuotteet("T_Tnro") = txtT_Tnro
G_Tuotteet("T_nimi") = TxtT_nimi
G_Tuotteet("T_yks") = TxtT_yks
G_Tuotteet("T_ykshinta") = TxtT_ykshinta
G_Tuotteet("T_kuvaus") = txtT_kuvaus
G_Tuotteet("T_T_nro") = Val(cboT_T_nro.List(cboT_T_nro.ListIndex))
G_Tuotteet("T_ryhma") = Val(cboT_ryhma.List(cboT_ryhma.ListIndex))
G_Tuotteet("T_V_nro") = Val(cboT_V_nro.List(cboT_V_nro.ListIndex))


G_Tuotteet.Update
If Err Then
G_Lisaysvipu = False
MsgBox "Lisäys ei onnistunut, syy " & Error(Err)
Else
G_Lisaysvipu = False
MsgBox "Lisäys suoritettu"
End If
Else
G_Tuotteet.Edit
G_Tuotteet("T_Tnro") = txtT_Tnro
G_Tuotteet("T_nimi") = TxtT_nimi
G_Tuotteet("T_yks") = TxtT_yks
G_Tuotteet("T_ykshinta") = TxtT_ykshinta
G_Tuotteet("T_kuvaus") = txtT_kuvaus
G_Tuotteet("T_T_nro") = Val(cboT_T_nro.List(cboT_T_nro.ListIndex))
G_Tuotteet("T_ryhma") = Val(cboT_ryhma.List(cboT_ryhma.ListIndex))
G_Tuotteet("T_V_nro") = Val(cboT_V_nro.List(cboT_V_nro.ListIndex))

G_Tuotteet.Update
If Err Then
MsgBox "Muutos ei onnistunut, syy " & Error(Err)
Else
G_Lisaysvipu = False
MsgBox "Muutos suoritettu"
End If
End If

G_Tuotteet.Index = "T_Tnro" 'Tuotetaulun päivitys
G_Ryhma.Index = "K_nro"
G_Tuotteet.Seek "=", txtT_Tnro.Text
G_Varasto.Index = "V_nro"
CmdLopeta.Caption = "Lopeta"
CmdPoista.Enabled = True
CmdLisaa.Enabled = True
Call G_DofrmTuotteet
Call G_DofrmTuotehaku


Exit Sub

End Sub


Private Sub CmdPaluu_Click()

FrmTuotteet.Hide
FrmPaavalikko.Show

End Sub



Private Sub CmdPoista_Click()
'----------------------------------------------------------
' Poistaa ruudulla olevan tietueen
'----------------------------------------------------------
Dim apu As Integer
apu = MsgBox("Vahvista poisto: OK = Poistetaan", 1, "Poiston vahvistuspyyntö")

If (apu = 1) Then '1 = OK-nappi
Call tarkista
If (G_Okvipu = False) Then
MsgBox "Tarkistusvirheitä --> Poistoa ei suoriteta"
Exit Sub
Else
G_Tuotteet.Delete
If Err Then
MsgBox "Poisto ei onnistunut, syy " & Error(Err)
Else
MsgBox "Poisto suoritettu"
G_Tuotteet.MoveNext 'Näyttö päivitetään
If (G_Tuotteet.BOF And G_Tuotteet.EOF) Then
MsgBox ("Tiedosto on tyhjä !!!")
Exit Sub
Else
If (G_Tuotteet.EOF) Then
G_Tuotteet.MoveLast
End If
Call G_DofrmTuotteet
End If
End If
Call G_DofrmTuotehaku
Exit Sub
End If
Else
MsgBox "Poistoa ei suoritettu"
Exit Sub
End If
Exit Sub
End Sub


Private Sub cmdSeuraava_Click()
'--------------------------------------------------
' Seuraava tietue Tuote-taulusta putkelle
'--------------------------------------------------
G_Tuotteet.MoveNext
Call G_DofrmTuotteet

End Sub







Private Sub CmdTuotelista_Click()
Report1.ReportFileName = "C:OhjelmatiedostotOmat tiedostotTuotteet.rpt"
Report1.Action = 1
End Sub

Private Sub cmdViimeinen_Click()
'--------------------------------------------------
' Viimeinen tietue Tuote-taulusta putkelle
'--------------------------------------------------
G_Tuotteet.MoveLast
If (G_Tuotteet.EOF) Then
MsgBox "Tiedosto on tyhjä !"
Else
Call G_DofrmTuotteet
End If
End Sub



Private Sub CmdTuotehaku_Click()
'--------------------------------------------------------------
' Siirrytään Tuotehaku-formille
'--------------------------------------------------------------
FrmTuotehaku.Show
FrmTuotehaku!CboT_tuotehaku.SetFocus
End Sub


Private Sub Form_Unload(Cancel As Integer)

G_TuotehakuSnap.Close
G_Tuotteet.Close
G_DB.Close
End Sub








Private Sub Txtryhma_Change()

End Sub

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä