< návrat zpět

MS Excel

Téma: Duplicita rss

Zaslal/a Tguun 3.11.2010 11:48

Prosím o radu. Při zadávání dat přes formulář, potřebuji zajistit, aby se mi nevyplnovaly duplicity např. ve sloupci "B". Ve kterém zadávám kupříkladu rodné číslo. Jestliže nastane takový případ, nechť vyskočí MsgBox s textem, který mě upozorní, že už jeden takový záznám se stejným rodným číslem v databázi je.

Děkuji za pomoc.

Zaslat odpověď >
icon Poki(3.11.2010 12:30)#002975
Poki
tlacitko, kterym potvrzujete zadana data ve formulari by mohlo mit takovyto kod: Private Sub cmbOK_Click()
Dim Duplicita As String
On Error Resume Next
Duplicita = List1.Range("B:B").Find(CVar(UserForm1.txtRC.Text), , , xlWhole).Address
If Err.Number = 91 Then
MsgBox "bez duplicity"
'...dalsi kod
Unload Me
Exit Sub
End If
MsgBox "Tato hodnota jiz v seznamu existuje na adrese: " & Duplicita
Unload Me
End Subcitovat
Tguun(3.11.2010 13:22)#002976
avatar
Ještě jsem pátral ve starších vláknech a narazil na podobný případ. Opět jsi byl u toho ty Poki jako řešitel a já využil onen příklad.
------------------------------------------------------
Private Sub TextBox6_AfterUpdate()
Dim i As Integer
For i = 3 To Application.WorksheetFunction.CountA(Range("C:C"))
If TextBox6 = Cells(i, 3) Then
MsgBox "Tato hodnota je již obsažena (na řádku č. " & i & ")." & vbCrLf & vbCrLf & "Zkus to znova...", vbCritical, "POZOR"
End If
Next
End Sub
-----------------------------------------------------
Tohle je přesně to, co jsem hledal. Akorát je menší problém v tom, že když mi vyskočí MsgBox s hlášením, a já jej potvrdím, vrátím se do formuláře, zůstává hodnota v daném poli a teď již mi nic nebrání ji tam zapsat jako duplicitu. Napadá mě jen to, že po odkliknutí MsgBoxu se ti to pole, které je "hlídáno vymazalo a ty jsi musel hodnotu zadávat znovu...kdyby jsi to chtěl teddy obejít předchozím způsobem nešlo by to ... je to OK ?

Díkycitovat
icon Poki(3.11.2010 13:35)#002977
Poki
no, smazat ten textbox po varovnym msgboxu je logicky: TextBox6=""citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje