Invoeren gegevens en vastleggen in andere tab

[Offthefield]

Ik heb een userform waar ik niet verder kom met het vastleggen van de ingevoerde
gegevens in een andere tab en ik zie niet hoe ik een check kan maken of een RAPNR
reeds voorkomt ?!

Ik heb de volgende vragen :

Kan iemand mij helpen met een procedure, dat er een controle plaats vindt op
het RAPNR in INVOER

Hoe kan ik de gegevens die ik uit DATABASE haal en de toegevoegde gegevens, in tab INVOER
kan plaatsen !!

Bij voorbaat dank voor het meedenken

Offthefield

 

[Offthefield]

Probleem 2 van het wegschrijven heb ik reeds opgelost

Probleem 1 met de check of het nr in TAB -> INVOER reeds bestaat
hier kom ik nog niet uit

Bekijk bijlage TOEVOEGEN1.xls

 

[Warme bakkertje]

Private Sub CmdOK_Click()
Dim iRow As Long, ws As Worksheet
Set ws = Worksheets("INVOER")
'
'controle op bestaand nummer
'
On Error GoTo vervolg
findnr = ws.Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If CStr(findnr) = Me.TextBox1.Value Then TextBox1.SetFocus: Exit Sub
On Error GoTo 0
vervolg:
'
' Zoek 1e lege rij in de database
'
iRow = ws.Cells(Rows.Count, 3) _
  .End(xlUp).Offset(1, 0).Row
'
' Kopieer de gegevens naar de database
'
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.LB01.Caption
ws.Cells(iRow, 3).Value = Me.LB02.Caption
ws.Cells(iRow, 4).Value = Me.LB03.Caption
ws.Cells(iRow, 5).Value = Me.TextBox2.Value
ws.Cells(iRow, 6).Value = Me.TextBox3.Value
'
'clear the data
'
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.LB01.Caption = ""
Me.LB02.Caption = ""
Me.LB03.Caption = ""
''
Unload Me
End Sub

 

[snb]

Private Sub CmdOK_Click()
  if Application.CountIf(sheets("INVOER").Columns(1), TextBox1.Text)=0 then
    sheets("invoer").Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(,6)=array(TextBox1.Text,LB01.Caption,LB02.Caption,LB03.Caption,TextBox2.Text,TextBox3.Text)

    for j=1 to 3
      Me("TextBox" & j).Text = ""
      Me("LB0" & j).caption=""
   next
 end if
end sub

 

[Offthefield]

Snb en Warme Bakkertje hartelijk dank voor de reactie

Vandaag geen tijd, ik ga in het weekend beide mogelijkheden bekijken

mvrgr

Offthefield

 

[Offthefield]

Snb,

Hij geeft een fout op de volgende regel :

if Application.CountIf(sheets("INVOER")Columns(1), TextBox1.Text)=0 then

Alleen de controle van het rapnr of deze reeds bestaat, Ja of Nee, hier kom ik nog niet uit !

Kan je hier even naar kijken

bvd

Offthefield

 

[Warme bakkertje]

Tussen sheets("invoer") en columns1 moet er een punt ( . ) staan.

 

[Offthefield]

Warme Bakkertje,

Bedankt voor de reactie, alleen hij gooit de gegevens niet vanaf kolom A,
maar vanaf kolom C op het blad

Maar het zoeken naar de controle in textbox1 dat hij moet checken of pasnr in kolom a
voorkomt , zo ja dan geeft hij melding en blijft bij in textbox1, bestaat hij niet dan gaat hij naar listbox1
werkt nog niet

bvd

Offthefield

 

[Warme bakkertje]

Private Sub CmdOK_Click()
  If Application.CountIf(Sheets("INVOER").Columns(1), TextBox1.Text) = 0 Then
    Sheets("invoer").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = Array(TextBox1.Text, LB01.Caption, LB02.Caption, LB03.Caption, TextBox2.Text, TextBox3.Text)

    For J = 1 To 3
      Me("TextBox" & J).Text = ""
      Me("LB0" & J).Caption = ""
   Next
 End If
End Sub

 

[Offthefield]

Warme Bakkertje bedankt

Ik heb ook een controle voor textbox1.text een voorbeeld gevonden
die nabehoren werkt en die ik ga uitwerken

Private Sub btnZoeken_Click()
Dim doelgebied As Range, cel As Range

If Me.txtZoekwoord.Value = "" Then
MsgBox "U moet eerst een zoekwoord invoeren"
Else
Set doelgebied = ActiveSheet.Range("A1").CurrentRegion
Set cel = doelgebied.Find(txtZoekwoord.Value)
If cel Is Nothing Then
PRINTENE.Show
''Me.lblAdres.Caption = "niet gevonden"
Else
PRINTEND.Show
''Me.lblAdres.Caption = cel.Address
End If
End If
End Sub


Offthefield

 

[snb]

Weet jij na 103 posts nog niet dat je code tags moet gebruiken ?

 

[Warme bakkertje]

If Application.CountIf(Sheets("INVOER").Columns(1), TextBox1.Text) = 0 Then

Jij vroeg een controle, wat denk jij dat bovenstaande regel daar dan doet ?

 

[Offthefield]

Hartelijk dank voor de reacties, ik heb nu genoeg voorbeelden
en ideeen om het programma uit te werken