Evo ovako. Radim seminarski, temu sam dobio da napravim Program za vođenje video kluba. Ja sam uspio sve to nekako da skuckam i daošao sam do dijela da kad u textbox ukucam šifru filma da mi provjeri da li je film iznajmljen i da MsgBox izbaci upozorenje i da me sprijeći da ne bih iznajmio isti film dva puta. Taj problem treba da riješim u "txtfID" textboxu.
Evo code od te forme pa da vidite kako su podaci povezani i sve ostale potrebne informacije:
Code:
'-----------------------------------------------------------------------
Private Sub Form_Load()
korisnici.Refresh
filmovi.Refresh
Iznajmljivanje.Refresh
End Sub
'------------------------------------------------------------------------
Private Sub cmdPotvrdi_Click()
Dim strSQL As String
Iznajmljivanje.Recordset.MoveFirst
strSQL = "Select * from Iznajmljivanje where kID = " & txtkID.Text & ""
Iznajmljivanje.RecordSource = strSQL
'Iznajmljivanje.Refresh
If Not Iznajmljivanje.Recordset.BOF Then
With Iznajmljivanje.Recordset
.AddNew
!FID = txtfID.Text
!kID = txtkID.Text
!Film = lblImeFilma
!ImeKorisnika = lblkIme
!PrezimeKorisnika = lblkPrezime
!DatumIzn = Format(Date, "dd/mm/yyyy")
.Update
.Requery
End With
End If
'filmovi.Recordset!Iznajmljen = True
Unload Me
prva.Show
End Sub
'-------------------------------------------------------------------------
Private Sub Nazad_Click()
prva.Show
Unload Me
End Sub
'-------------------------------------------------------------------------
Private Sub txtkID_LostFocus()
If txtkID.Text <> "" Then
korisnici.Recordset.MoveFirst
korisnici.Recordset.Find "kID = " & txtkID.Text & ""
If Not korisnici.Recordset.EOF Then
lblkIme = korisnici.Recordset!Ime
lblkPrezime = korisnici.Recordset!Prezime
lbltel = korisnici.Recordset![Broj Telefona]
lblUlica = korisnici.Recordset!Ulica
lblMjesto = korisnici.Recordset!Mjesto
txtfID.SetFocus
Else
MsgBox "Unijeli ste pograšan ID Korisnika!"
txtkID.Text = ""
txtkID.SetFocus
End If
End If
End Sub
'----------------------------------------------------------------------------
Private Sub txtfID_LostFocus()
'Dim FIDi As String
'Dim FIDK As String
filmovi.Recordset.MoveFirst
If txtfID.Text <> "" Then
filmovi.Recordset.Find "fID = " & txtfID.Text & ""
If Not filmovi.Recordset.EOF Then
lblImeFilma = filmovi.Recordset!Ime
lblGlumci = filmovi.Recordset!Glumci
lblZanr = filmovi.Recordset!Zanr
lblReziser = filmovi.Recordset!Reziser
lblGodina = filmovi.Recordset!Godina
'-------------------------------------- EVO OVDE POKUŠAVAM DA TO URADIM
FIDK = txtfID
FIDi = Iznajmljivanje.Recordset!FID
If FID = FIDK Then
MsgBox "Film je iznajmljen!"
txtfID.Text = ""
txtfID.SetFocus
End If
'--------------------------------------
cmdPotvrdi.SetFocus
Else
MsgBox "Unijeli ste pograšan ID Filma!"
txtfID.Text = ""
txtfID.SetFocus
End If
End If
End Sub
'---------------------------------------------------------------------------------
Kao što vidite nisam neki poznavalac VB6, to je zato što sam VB6 prvi put pokrenuo prije nekoliko dana
Izvinjavam se svima, ali mi je stvarno potrebno da riješim ovaj problem što prije, pa zato vas gnjavim. Nemam vremena da uzmem neku knjigu i pa da to sam na tenane prostudiram. Tražio sam po tutorima ali nisam ništa zapazio.
Svaka pomoć je dobrodošla. Unaprijed zahvalan.