Ha a kereső mezőbe olyan név kerül amely nem szerepel az adatbázisban egy teljesen üres űrlap jelenik meg. Csak a szűrés kikapcsolásával áll és látható újra a kereső mező.
Hogyan lehetne ezt megelőzni és lekérdezni a rekordmutatót, vagy a a rekord számot és az alapján engedélyezni a műveletet?
Válaszát előre is köszönöm!
Junger László

a következő kódal lehet megoldani a problémát :

Dim item As Control

For Each item In Me.Controls ‘minden vezérlőt megnézünk

Select Case item.ControlType ‘megnézzük a típusát a vezérlőnek
Case acTextBox, acComboBox, acListBox, acCheckBox ‘amennyiben ezek a következők
If item.ControlSource <> “” Then ‘és van forrásuk
If IsNull(item.Value) Then
MsgBox “nincs értéke a ” & item.Name & ” mezőnek”
Else
MsgBox item.Name & ” rendben! ”
End If
End If
Case Else
End Select

Next

üdvözlettel,
Faludi Gábor

Ez működik is, de mivel a mezők neve hasonló pl: Label1…LabelN, így szeretném ciklusba szervezni a vizsgálatot.
For K= 1 to 4
If IsNull (Forms![Űrlapnév].[Mezőnév & K].Value) Then

Így viszont hibaüzenet a vége!?

Van erre más megoldás?

A videok egyébként nagyon tetszenek, sok hasznos dolgot tanultam.
Üdvözlettel:
Attila

Kedves Zoltán!

Alapértelmezett értékeket célszerű a tábla definíciójában beállítani. Ebben az esetben azonban nincs lehetőségünk erre mivel egy lekérdezés eredményét kellene beletenni , ami ha jól értem az űrlapon beírt adatok alapján változna?!

Ilyenkor nem az alapértelmezett értékkel kellene operálni , hanem egyszerűen a mező érékét kellene beállítani egy adott értékre (VBA) .

Amennyiben van konkrét példája , küldje el meg fogom nézni és reflektálni fogok reá.

üdvözlettel,
Faludi Gábor

Szuper a videó, várjuk a következőt!

p100

Sikerűlt kisilabizálni a kódokban a ‘ * ” jeleket, bár sokat variáltam.
Ha nem baj, bemásolom ide, hátha mást is érdekel,
íme:
Private Sub Parancsgomb11_Click()

Me.Filter = “[Vezetéknév] like ‘ ” & Me.keresomezo & ” * ‘ ”
Me.FilterOn = True

End Sub

Amúgy, nagyon jók a videók.

Köszönettel: Szilágyi Károly

Először is gratulálok a honlaphoz és a videókhoz, nagyon – nagyon hasznos információkat találtam bennük, viszont segítséged kérném a következőben.

Egy űrlapon lévő beviteli mezőnek (ami kapcsolódik egy tábla adott mezőjébe) szeretnék alapértelmezett értéket beállítani, viszont a függvényeken kívül semmit nem fogad el, folyton a #NÉV értéket teszi be.

Tehát pl. alapértelmezett érték a date() akkor beírja az aktuális dátumot, ha viszont, az alapértelmezett érték mondjuk egy lekérdezés eredménye, ami ugye 1db érték, tehát mondjuk [Lekérdezés1]![dátum] akkor erre már hibát dob.

Előre is köszönöm szíves válaszod!

czs1