• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Zoekformulier ik loop echt vast

Status
Niet open voor verdere reacties.

Bendepater

Gebruiker
Lid geworden
16 jan 2009
Berichten
55
Hallo,

Ik heb laatst een heel handig zoek formulier gevonden hier op het forum. Deze wil ik graag aanpassen naar eigen stijl. Ik heb alleen wel een vraag: Als ik een zoek opdracht invul en dit nummer bestaat niet, zou ik graag een msgbox willen krijgen met bv. "nummer niet gevonden" kan dat en hoe doe ik dat?
zijn dus 2 vragen.. ;)

Ik heb redelijk wat geprobeerd maar hier kom ik niet uit..:confused:

Wie zou me kunnen helpen?

gr,

Ben
 

Bijlagen

Laatst bewerkt:
Begrijp jij wat die voorwaarde wil zeggen in de IF:

Code:
If Not code Is Nothing Then
            ...            
End If
 
Ik wel, jij ook ? :p (sorry Wim, kon het ff niet laten)

Code:
If Not Code Is Nothing Then
....
Else
MsgBox "Nummer niet gevonden"
End If

Mvg

Rudi
 
Laatst bewerkt:
sorry,

Maar ik begrijp er nog niets van. Hij zal ergens naar moeten verwijzen lijkt mij maar heb even geen idee.

gr,

Ben
 
Code:
Private Sub haalgegevensop_Click()
Dim code As Range
On Error Resume Next
With Worksheets("HC")
    Set code = .Range("C7:C500").Find(gegdatum, LookIn:=xlValues, lookat:=xlWhole)
    If Not code Is Nothing Then
        gegdag.Text = .Range("A" & code.Row)
        gegmachinist.Text = .Range("I" & code.Row)
        gegconducteur.Text = .Range("J" & code.Row)
        gegannika.Text = .Range("K" & code.Row)
        gegsongnummer.Text = .Range("C" & code.Row)
        gegmachinistvan.Text = .Range("W" & code.Row).Text
        gegmachinisttot.Text = .Range("X" & code.Row).Text
        gegconducteurvan.Text = .Range("F" & code.Row).Text
        gegconducteurtot.Text = .Range("G" & code.Row).Text
        gegannikavan.Text = .Range("AB" & code.Row).Text
        gegannikatot.Text = .Range("AC" & code.Row).Text
    [COLOR="Red"]Else
        MsgBox "Nummer niet gevonden"[/COLOR]
            If Len(.Range("E" & code.Row).Comment.Text) > 0 Then
                gegopmerking.Text = ""
            Else
                gegopmerking.Text = .Range("E" & code.Row).Comment.Text
            End If
        On Error GoTo 0
    End If
End With
End Sub

Mvg

Rudi
 
Ik heb het via onderstaande ( 2de quote) en werkt ook (?) ik had opgelet
If Not Code Is Nothing Then
....
....
....
Else
MsgBox "Nummer niet gevonden"
End If
Private Sub haalgegevensop_Click()
Dim code As Range

With Worksheets("HC")
Set code = .Range("C7:C500").Find(gegdatum, LookIn:=xlValues, lookat:=xlWhole)
If Not code Is Nothing Then


gegdag.Text = .Range("A" & code.Row)
gegmachinist.Text = .Range("I" & code.Row)
gegconducteur.Text = .Range("J" & code.Row)
gegannika.Text = .Range("K" & code.Row)
gegsongnummer.Text = .Range("C" & code.Row)
gegmachinistvan.Text = .Range("W" & code.Row).Text
gegmachinisttot.Text = .Range("X" & code.Row).Text
gegconducteurvan.Text = .Range("F" & code.Row).Text
gegconducteurtot.Text = .Range("G" & code.Row).Text
gegannikavan.Text = .Range("AB" & code.Row).Text
gegannikatot.Text = .Range("AC" & code.Row).Text


Else
MsgBox "Nummer niet gevonden"
End If
On Error Resume Next
If Len(.Range("E" & code.Row).Comment.Text) > 0 Then
gegopmerking.Text = ""
Else
gegopmerking.Text = .Range("E" & code.Row).Comment.Text
End If
On Error GoTo 0

End With

End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan