Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 513
  • Last Modified:

Click Procedure Copy Record to table Including Null fields Error 94 Invalid Use of Null

Hello All Experts:

I have the need to have a button on a form that will copy some (not all) of the fields in the current record into a new record in the table.

I have been able to get the text fields to successfully copy, but the fields that are Long Integer are not having success.  The text fields are being passed as "" Zero string.

Since some of the information on the current record will have NULL values (and it is never consistent which fields are Null) - I need to have those fields handled by the code so that either they are ignored during the insert; or so that a Null is passed to the new record.

I have included the code snippet below.  I have tried the NZ() function as well.  And I still get Error 94 invalid use of Null. I also CANNOT have the Number 0 passed in the numeric fields instead of Null; I could detail why not, but really it has to do with the specific meaning of zero to my client.

Hoping that some out there can either help me understand how to tweak the code so that the Nulls are understood.  Or if I am unable to go that way with the code; how can I have those fields that are Null skipped on the insert in the SQL Insert statement?

Thanks in advance for your help,
KLB
Private Sub CopyRecordExcpt_Click()

Dim strGroup As String
Dim strPRID As Long
Dim strShip As String
Dim strPro As String
Dim strVndr As Long
Dim strPO As Long
Dim strRls As Long
Dim strRcpt As Long
Dim strQTY As Long
Dim strCmpy As String
Dim strPT As String
Dim strInsp As String
Dim strIDMarks As String
Dim strRcgCom As String
Dim strOrclSeq As Long
Dim strImage As String
Dim strPhoto1 As String
Dim strPhoto2 As String
Dim strPhoto3 As String
Dim strPhoto4 As String
Dim strSQLadd As String
Dim strAnlst As Long

strGroup = IIf(IsNull(Me.Group_Ctl_Id), "", Me.Group_Ctl_Id)
strPRID = IIf(IsNull(Me.PR_Seq_Idn), Null, Me.PR_Seq_Idn)
strShip = IIf(IsNull(Me.PO_Excpt_PkgSlp_ShipVia), "", Me.PO_Excpt_PkgSlp_ShipVia)
strPro = IIf(IsNull(Me.PO_Excpt_PkgSlp_Pro_Idn), "", Me.PO_Excpt_PkgSlp_Pro_Idn)
strVndr = IIf(IsNull(Me.Vdr_Idn), Null, Me.Vdr_Idn)
strPO = IIf(IsNull(Me.PO_Idn), Null, Me.PO_Idn)
strRls = IIf(IsNull(Me.PO_Rls_Idn), Null, Me.PO_Rls_Idn)
strRcpt = IIf(IsNull(Me.PO_Rcpt_Idn), Null, Me.PO_Rcpt_Idn)
strQTY = IIf(IsNull(Me.PO_Qty_Rcv), Null, Me.PO_Qty_Rcv)
strCmpy = IIf(IsNull(Me.Company_Idn), "", Me.Company_Idn)
strPT = IIf(IsNull(Me.Pt_Idn), "", Me.Pt_Idn)
strInsp = IIf(IsNull(Me.PO_Excpt_Inspection_Comments), "", Me.PO_Excpt_Inspection_Comments)
strIDMarks = IIf(IsNull(Me.PO_Excpt_Identifiable_Markings), "", Me.PO_Excpt_Identifiable_Markings)
strRcgCom = IIf(IsNull(Me.PO_Excpt_Rcvg_Comments), "", Me.PO_Excpt_Rcvg_Comments)
strOrclSeq = IIf(IsNull(Me.Orcl_Seq_Idn), Null, Me.Orcl_Seq_Idn)
strImage = IIf(IsNull(Me.PO_Excpt_PkgSlp_Image), "", Me.PO_Excpt_PkgSlp_Image)
strPhoto1 = IIf(IsNull(Me.PO_Excpt_Photo_1), "", Me.PO_Excpt_Photo_1)
strPhoto2 = IIf(IsNull(Me.PO_Excpt_Photo_2), "", Me.PO_Excpt_Photo_2)
strPhoto3 = IIf(IsNull(Me.PO_Excpt_Photo_3), "", Me.PO_Excpt_Photo_3)
strPhoto4 = IIf(IsNull(Me.PO_Excpt_Photo_4), "", Me.PO_Excpt_Photo_4)
strAnlst = IIf(IsNull(Me.Analyst_Idn), Null, Me.Analyst_Idn)

strSQLadd = "Insert INTO [PO_Excpt_Tbl] (Group_Ctl_Id, PR_Seq_Idn, PO_Excpt_PkgSlp_ShipVia, PO_Excpt_PkgSlp_Pro_Idn, Vdr_Idn, PO_Idn, PO_Rls_Idn, PO_Rcpt_Idn, PO_Qty_Rcv, Company_Idn, Pt_Idn, PO_Excpt_Inspection_Comments, PO_Excpt_Identifiable_Markings, PO_Excpt_Rcvg_Comments, Orcl_Seq_Idn, PO_Excpt_PkgSlp_Image, PO_Excpt_Photo_1, PO_Excpt_Photo_2, PO_Excpt_Photo_3, PO_Excpt_Photo_4, Analyst_Idn) VALUES ('" & strGroup & "'," & strPRID & ", '" & strShip & "', '" & strPro & "'," & strVndr & ", " & strPO & ", " & strRls & ", " & strRcpt & ", " & strQTY & ", '" & strCmpy & "', '" & strPT & "', '" & strInsp & "', '" & strIDMarks & "', '" & strRcgCom & "', " & strOrclSeq & ", '" & strImage & "', '" & strPhoto1 & "', '" & strPhoto2 & "', '" & strPhoto3 & "', '" & strPhoto4 & "', " & strAnlst & ")"

End Sub

Open in new window

0
CPKGDevTeam
Asked:
CPKGDevTeam
  • 12
  • 6
  • 3
  • +1
3 Solutions
 
TonyRebaCommented:
What database are you using MS SQL?
0
 
CPKGDevTeamAuthor Commented:
Sorry for the omission, TonyReba!

We are using Access 2010 front end and SQL Server 2008 backend.

Thanks,
KLB
0
 
TonyRebaCommented:
Have you trying create a constrain in you sql server 2008 for those fields ?
0
Free learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

 
CPKGDevTeamAuthor Commented:
I have checked my SQL 2008 fields that are numeric, and they have no constrains.

Would I be understanding you, that I SHOULD create a constrain on the numeric (Long Integer) fields?  If I did create a constrain on them; what would be the constrain?

I have looked at many examples that show how to use the constrain on CREATE TABLE. But since this is an INSERT, how would I approach that?  Would I have to use ALTER TABLE?

And all of the Long Integer fields are set on the server side to allow Nulls.  I have limited knowledge of the SQL server side, so I may need some hand holding here.  Or at least a good link to investigate and read up on my own.

Thanks,
KLB
0
 
CPKGDevTeamAuthor Commented:
Also, I should mention that the INSERT is not even being applied before the failure happens.  I get the error when any numeric field is being evaluated.

The code breaks and gives me an error at the first record that contains a NULL value.  When using a debug.print I can see that the text fields are being assigned the appropriate string; but the first NULL value is what causes the Error 94.

Since the table isn't being referenced until much later in the code, I think constrains may be helpful when inserting the record.  But I believe that my error is in coding the value of Null.  

Thought it was worth mentioning,
Thanks again in advance for help,
KLB
0
 
Helen FeddemaCommented:
It appears that you are trying to save Nulls to String varibles; this will not work.  For the fields that can accept Nulls, use variables of the Variant data type instead (they can contain Nulls).  Also, some of your variables starting with "str" are declared as Longs, which will be very confusing as you work with your code.  They should start with "lng".  Long variables won't accept Nulls either.
0
 
Helen FeddemaCommented:
If, instead of using a single SQL statement, you were adding values using DAO, you could just skip setting any fields where the variable contains a Null.  Something like this:

If varValue <> Null Then
 rst![FieldName] = varValue
End If

For String values, you could do the same using Nz():

If strValue <> "" Then
  rst![FieldName] = strValue
End If

And for Longs

If lngValue <> 0 Then
  rst![FieldName] = lngValue
End If
0
 
CPKGDevTeamAuthor Commented:
Hi Helen_Feddema:

First, thanks for the information re: string, variant and long with regard to Nulls.  This was critical information and now makes a lot of sense to me.

Also, I really like the idea of avoiding updating the Null values at all if present.  I apologize that I need a little more help from you.  So I have only used a SQL string to execute an update.  I am not sure how best to attack the code in order to have the values added using DAO.

I am not expecting you to write the code, but was hoping that you might be able to give me a bit of direction by example so that I can run with the idea. Should I be using Add New Record then stepping through each field?

I am also trying to find examples of this method on EE and hope to be successful in understanding a better way to write cleaner, neater and more concise code.

Thanks again,
Sincerely,
KLB
0
 
CPKGDevTeamAuthor Commented:
Update to Helen_Feddema:

I believe that I have found the AddNew and Update functions to correctly use in my code.  I will be working on tweaking what I have.  And hopefully will not require any hints as I asked above.

Thank you,
KLB
0
 
Helen FeddemaCommented:
Here is some simple DAO code.  There are many possibilities, depending on what you need to do.
Dim lngOrderID As Long
   Dim rst As DAO.Recordset
   Dim strSQL As String
   
   lngOrderID = Nz(Me![OrderID])
   
   If lngOrderID <> 0 Then
      strSQL = "SELECT * FROM tblOrderDetails WHERE OrderID = " & lngOrderID
      Debug.Print "SQL string: " & strSQL
      Set rst = CurrentDb.OpenRecordset(strSQL)
      Do While Not rst.EOF
         rst.Edit
         rst![Finished] = True
         rst.Update
         rst.MoveNext
      Loop
      rst.Close
   End If

Open in new window

0
 
CPKGDevTeamAuthor Commented:
Newest Update:

Helen_Feddema:

Can you please help me with the DAO code I have attached below?  When I run the code, I am getting a runtime error 424 - Object Required.  I do not believe that I am setting the DAO correctly.  I did test to make sure that the library was installed and it is (14.0).

You have been most helpful already so thank you in advance for any more support you can lend.  I will also be loking over your latest post regarding the examples you have offered.

Sincerely,
KLB
'DAO definitions
Dim dbsCarrera As DAO.Database
Dim rstExceptions As DAO.Recordset
'Variables to be copied to new record
Dim strGroup As String
Dim varPRID As Variant
Dim strShip As String
Dim strPro As String
Dim varVndr As Variant
Dim varPO As Variant
Dim varRls As Variant
Dim varRcpt As Variant
Dim varQTY As Variant
Dim strCmpy As String
Dim strPT As String
Dim strInsp As String
Dim strIDMarks As String
Dim strRcgCom As String
Dim varOrclSeq As Variant
Dim strImage As String
Dim strPhoto1 As String
Dim strPhoto2 As String
Dim strPhoto3 As String
Dim strPhoto4 As String
Dim strSQLadd As String
Dim VarAnlst As Variant

strGroup = IIf(IsNull(Me.Group_Ctl_Id), "", Me.Group_Ctl_Id)
varPRID = IIf(IsNull(Me.PR_Seq_Idn), Null, Me.PR_Seq_Idn)
strShip = IIf(IsNull(Me.PO_Excpt_PkgSlp_ShipVia), "", Me.PO_Excpt_PkgSlp_ShipVia)
strPro = IIf(IsNull(Me.PO_Excpt_PkgSlp_Pro_Idn), "", Me.PO_Excpt_PkgSlp_Pro_Idn)
varVndr = IIf(IsNull(Me.Vdr_Idn), Null, Me.Vdr_Idn)
varPO = IIf(IsNull(Me.PO_Idn), Null, Me.PO_Idn)
varRls = IIf(IsNull(Me.PO_Rls_Idn), Null, Me.PO_Rls_Idn)
varRcpt = IIf(IsNull(Me.PO_Rcpt_Idn), Null, Me.PO_Rcpt_Idn)
varQTY = IIf(IsNull(Me.PO_Qty_Rcv), Null, Me.PO_Qty_Rcv)
strCmpy = IIf(IsNull(Me.Company_Idn), "", Me.Company_Idn)
strPT = IIf(IsNull(Me.Pt_Idn), "", Me.Pt_Idn)
strInsp = IIf(IsNull(Me.PO_Excpt_Inspection_Comments), "", Me.PO_Excpt_Inspection_Comments)
strIDMarks = IIf(IsNull(Me.PO_Excpt_Identifiable_Markings), "", Me.PO_Excpt_Identifiable_Markings)
strRcgCom = IIf(IsNull(Me.PO_Excpt_Rcvg_Comments), "", Me.PO_Excpt_Rcvg_Comments)
varOrclSeq = IIf(IsNull(Me.Orcl_Seq_Idn), Null, Me.Orcl_Seq_Idn)
strImage = IIf(IsNull(Me.PO_Excpt_PkgSlp_Image), "", Me.PO_Excpt_PkgSlp_Image)
strPhoto1 = IIf(IsNull(Me.PO_Excpt_Photo_1), "", Me.PO_Excpt_Photo_1)
strPhoto2 = IIf(IsNull(Me.PO_Excpt_Photo_2), "", Me.PO_Excpt_Photo_2)
strPhoto3 = IIf(IsNull(Me.PO_Excpt_Photo_3), "", Me.PO_Excpt_Photo_3)
strPhoto4 = IIf(IsNull(Me.PO_Excpt_Photo_4), "", Me.PO_Excpt_Photo_4)
VarAnlst = IIf(IsNull(Me.Analyst_Idn), "", Me.Analyst_Idn)


Set dbsCarrera = CurrentDb
Set rstExceptions = dbsCarrera.OpenRecordset("PO_Excpt_Tbl", dbOpenDynaset, dbSeeChanges)


    rstExceptions.AddNew
    If strGroup <> "" Then
        rst![Group_Ctl_Id] = strGroup
    End If
    If varPRID <> Null Then
        rst![PR_Seq_Id] = varPRID
    End If
    If strShip <> "" Then
        rst![PO_Excpt_PkgSlp_ShipVia] = strShip
    End If
    If strPro <> "" Then
        rst![PO_Excpt_PkgSlp_Pro_Idn] = strPro
    End If
    If varVndr <> Null Then
        rst![Vdr_Idn] = varVndr
    End If
    If varPO <> Null Then
        rst![PO_Idn] = varPO
    End If
    If varRls <> Null Then
        rst![PO_Rls_Idn] = varRls
    End If
    If varRcpt <> Null Then
        rst![PO_Rcpt_Idn] = varRcpt
    End If
    If varQTY <> Null Then
        rst![PO_Qty_Rcv] = varQTY
    End If
    If strCmpy <> "" Then
        rst![Company_Idn] = strCmpy
    End If
    If strPT <> "" Then
        rst![Pt_Idn] = strPT
    End If
    If strInsp <> "" Then
        rst![PO_Excpt_Inspection_Comments] = strInsp
    End If
    If strIDMarks <> "" Then
        rst![PO_Excpt_Identifiable_Markings] = strIDMarks
    End If
    If strRcgCom <> "" Then
        rst![PO_Excpt_Rcvg_Comments] = strRcgCom
    End If
    If varOrclSeq <> Null Then
        rst![Orcl_Seq_Idn] = varOrclSeq
    End If
    If strImage <> "" Then
        rst![PO_Excpt_PkgSlp_Image] = strImage
    End If
    If strPhoto1 <> "" Then
        rst![PO_Excpt_Photo_1] = strPhoto1
    End If
    If strPhoto2 <> "" Then
        rst![PO_Excpt_Photo_2] = strPhoto2
    End If
    If strPhoto3 <> "" Then
        rst![PO_Excpt_Photo_3] = strPhoto3
    End If
    If strPhoto4 <> "" Then
        rst![PO_Excpt_Photo_4] = strPhoto4
    End If
    If VarAnlst <> Null Then
        rst![Analyst_Idn] = VarAnlst
    End If
    
rstExceptions.Update

End Sub

Open in new window

0
 
CPKGDevTeamAuthor Commented:
Newest Update:
Helen_Feddema:

I am able to get the recordset to update now.  But I have a different issue...

The variants are not updating. Any field that is set as a Variant is getting the correct assigned value as I have tested that during debug.print.

But those number values are not being updated to the new record.  All of the string values are successfully being transfered.  And I am not gettting any specific errors - the fields are just not populating.

Thanks again for the code snipets. They were a great help.  Hoping that you might be able to look at the "Variant" code and see where I might be erroring.

Sincerely,
KLB
0
 
Gustav BrockCIOCommented:
> I have the need to have a button on a form that will copy
> some (not all) of the fields in the current record into a new record in the table.

You can do this much simpler and faster with DAO and a loop:
Private Sub btnCopy_Click()

  Dim rstSource   As DAO.Recordset
  Dim rstInsert   As DAO.Recordset
  Dim fld         As DAO.Field
  
  If Me.NewRecord = True Then Exit Sub
    
  Set rstInsert = Me.RecordsetClone
  Set rstSource = rstInsert.Clone
  With rstSource
    If .RecordCount > 0 Then
      ' Go to the current record.
      .Bookmark = Me.Bookmark
      With rstInsert
        .AddNew
          For Each fld In rstSource.Fields
            With fld
              If .Attributes And dbAutoIncrField Then
                ' Skip Autonumber or GUID field.
              Else
                ' Copy field content.
                rstInsert.Fields(.Name).Value = .Value
              End If
            End With
          Next
        .Update
        ' Go to the new record and sync form.
        .MoveLast
        Me.Bookmark = .Bookmark
        .Close
      End With
    End If
    .Close
  End With
  
  Set rstInsert = Nothing
  Set rstSource = Nothing
  
End Sub

Open in new window


Now, this will copy all fields. To exclude some or to insert other values modify this section of the code to fit your needs. Here two fields are assigned other values and on will use a default value:

              If .Attributes And dbAutoIncrField Then
                ' Skip Autonumber or GUID field.
              Else
                If .Name = "NameOfSomeField" Then
                  ' Insert some value.
                  rstInsert.Fields(.Name).Value = YourValue
                ElseIf .Name = "NameOfSomeOtherField" Then
                  ' Insert a constant.
                  rstInsert.Fields(.Name).Value = 0
                ElseIf .Name = "NameOfThirdField" Then
                  ' Insert nothing.
                  ' The default value of this field will be used.
                Else
                  ' Copy field content.
                  rstInsert.Fields(.Name).Value = .Value
                End If
              End If

/gustav
0
 
CPKGDevTeamAuthor Commented:
Cactus_data:

Thank you for the above code.  I have been trying to tweak this to fit my fields.  I need to leave work early today so I am afraid I will not have an update until Monday.

Sincerely,
KLB
0
 
Gustav BrockCIOCommented:
No problem. Have a nice weekend!

/gustav
0
 
CPKGDevTeamAuthor Commented:
Hi Cactus_data:

I am still working on piecing together the code, with some errors as I haven't used anything like it before.

But here comes my much bigger problem.  I need to use this type of code over and over again in my data input screens.  And while this may work for copying a record to the same table, how would I be able to pass these to another table.  Something that I will have the need to do in my application several times.

I guess my biggest frustration, is that there doesn't seem to be any way to pass NULL to another record (same or different table) without significant code.  I need to pick and choose on each form which fields will be updated and it combination is never the same.

Perhaps I need to find a new way to look at the problem, I will continue to see if I can use the above for this question, and then I will need to submit a new question for the copying a record to a new table for separate points.

Just an FYI - one of the reasons for delay is that there have been some other fires to put out here at the office.

Thanks again,
KLB
0
 
Gustav BrockCIOCommented:
> .. how would I be able to pass these to another table.  

Change the recordsets:
  Set rstSource = Me.RecordsetClone
  Set rstInsert = <some other recordset>

> .. there doesn't seem to be any way to pass NULL to another record ..

This will copy Nulls as well:
  ' Copy field content.
  rstInsert.Fields(.Name).Value = .Value

/gustav
0
 
CPKGDevTeamAuthor Commented:
Cactus_data:

Again, I would like to thank you for the code examples.  Truly appreciate all your support on this.

I have attached my code, and unfortunately, I am getting a compile error "Next without For" - this is happening at line #68.  Can you please help me with solving this.  I have studied the code, and think I am clear as to what is attempting to do.  I have added all the fields that I want copied (lines #22 through #64).

I know I am close to solving this.  But I fear that if I get creative to solve the compile error that I will not be successful.  At least so far, I have been unsuccessful.

Code below.

Many Thanks!
KLB


Private Sub Command471_Click()

Dim rstSource As DAO.Recordset
Dim rstInsert As DAO.Recordset
Dim fld As DAO.Field

If Me.NewRecord = True Then Exit Sub

Set rstInsert = Me.RecordsetClone
Set rstSource = rstInsert.Clone
With rstSource
    If .RecordCount > 0 Then
        ' Go to the current record.
        .Bookmark = Me.Bookmark
    With rstInsert
        .AddNew
             For Each fld In rstSource.Fields
                With fld
                    If .Attributes And dbAutoIncrField Then
                    ' Skip Autonumber or GUID field.
                    Else
                        If .Name = "PO_Rcpt_Idn" Then
                            'Copy Field content
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Qty_Rcv" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Group_Ctl_Id" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Company_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Orcl_Seq_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Pt_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PR_Seq_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Inspection_Comments" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Identifiable_Markings" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Analyst_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Rcvg_Comments" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_PkgSlp_Image" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_PkgSlp_ShipVia" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Photo_1" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Photo_2" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_PkgSlp_Pro_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Photo_3" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "Vdr_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Excpt_Photo_4" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Idn" Then
                            rstInsert(.Name).Value = .Value
                        If .Name = "PO_Rls_Idn" Then
                            rstInsert(.Name).Value = .Value
                        End If
                    End If
                'End With
            Next
            .Update
            'Go to the new record and sync form.
            .MoveLast
            Me.Bookmark = .Bookmark
            End With
        End If
            .Close
    End With
    
    Set rstInsert = Nothing
    Set rstSource = Nothing
    
End Sub

Open in new window

0
 
Gustav BrockCIOCommented:
You should not comment out code lines:
                'End With
should read:
                End With

/gustav
0
 
CPKGDevTeamAuthor Commented:
Thanks, I was using the immediate window and getting errors that I had a With without a End With.  So I commented it out on the fly in order to see the code move forward.  Can you look to see if I have the correct amount of With & End With?

But that aside, I am still getting the "Next without For".  Any ideas how I can solve that part of the code?

Thanks,
KLB

Also, there was a death in the family and I will not be available starting at 4pm today and then not again until Tuesday morning to attend the funeral.
0
 
Gustav BrockCIOCommented:
You may also have to correct to:

                        If .Name = "PO_Qty_Rcv" Then
                            rstInsert(.Name).Value = .Value
                        End If

or replace all the If .. End If with a single Select Case .. End Select construction.

/gustav
0
 
CPKGDevTeamAuthor Commented:
Encapsulating the If...End IF did the trick.  And it works flawlessly.

I thank you not only for your immense help but for also sticking with this issue as it was a long process.

I have accepted 3 of your solutions, but awarded all the points to you, as it was the sum of all 3 posts that solved my problem.

Again, many thanks.
KLB
0
 
Gustav BrockCIOCommented:
You are welcome!

/gustav
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 12
  • 6
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now