Click here to Skip to main content
15,888,177 members

The Weird and The Wonderful

   

The Weird and The Wonderful forum is a place to post Coding Horrors, Worst Practices, and the occasional flash of brilliance.

We all come across code that simply boggles the mind. Lazy kludges, embarrassing mistakes, horrid workarounds and developers just not quite getting it. And then somedays we come across - or write - the truly sublime.

Post your Best, your worst, and your most interesting. But please - no programming questions . This forum is purely for amusement and discussions on code snippets. All actual programming questions will be removed.

 
GeneralRe: Coding Horror of the Millennium in a banking application Pin
darkelv27-Sep-07 17:40
darkelv27-Sep-07 17:40 
GeneralRe: Coding Horror of the Millennium in a banking application Pin
Xiangyang Liu 刘向阳28-Sep-07 3:18
Xiangyang Liu 刘向阳28-Sep-07 3:18 
GeneralRe: Coding Horror of the Millennium in a banking application Pin
Vasudevan Deepak Kumar28-Sep-07 4:08
Vasudevan Deepak Kumar28-Sep-07 4:08 
GeneralRe: Coding Horror of the Millennium in a banking application Pin
destynova5-Oct-07 2:32
destynova5-Oct-07 2:32 
GeneralRe: Coding Horror of the Millennium in a banking application Pin
Rajesh R Subramanian2-Oct-07 23:07
professionalRajesh R Subramanian2-Oct-07 23:07 
GeneralAnother from my boss! Pin
Burnsys224-Sep-07 6:17
Burnsys224-Sep-07 6:17 
GeneralRe: Another from my boss! Pin
Chris Meech24-Sep-07 7:31
Chris Meech24-Sep-07 7:31 
GeneralAnd more! Pin
Burnsys224-Sep-07 8:08
Burnsys224-Sep-07 8:08 
no way, this proyect is a gold mine!!!

take a look at this, he was afraid of .SetFocus
      sql = "SELECT COD_GCIA FROM GerenciasWEB WHERE COD_GCIA = '" & .COD_GCIA & "'"
        Set rstmp = New ADODB.Recordset
        rstmp.Open sql, db, adOpenForwardOnly, adLockReadOnly
        If rstmp.EOF Or rstmp.BOF Then
            MsgBox "Código de Gerencia: " & .COD_GCIA & " no es valido", vbCritical, "Elija Otro"
On Error Resume Next
            txtIN(6).SetFocus
            Exit Sub
        Else
            .COD_GCIA = Trim(rstmp.Fields("COD_GCIA"))
        End If

        If tmpCntPermisos = 0 Then
            If MsgBox("Usuario no tiene permisos", vbQuestion + vbYesNo, "¿Desea grabar?") = vbNo Then
On Error Resume Next
                lvPermisos.SetFocus
                Exit Sub
            End If
        End If
        
        If .TIPO_USUARIO <> "PROV" And .COD_GCIA = "" Then
            If MsgBox("Usuario no tiene Gerencia", vbQuestion + vbYesNo, "¿Desea grabar?") = vbNo Then
On Error Resume Next
                txtIN(6).SetFocus
                Exit Sub
            End If
        End If
'Correo
        If .EMAIL <> "" Then
            If Not checkIngresoEMAIL(.EMAIL) Then
                MsgBox "E-Mail: " & .EMAIL & " no es valido", vbCritical, "Elija Otro"
On Error Resume Next
                txtIN(5).SetFocus
                Exit Sub
            End If
        End If
        If .COD_RCB_EMAIL = "0" Or .COD_RCB_EMAIL = "" Then
        
        Else
            If .EMAIL = "" Then
                MsgBox "Debe ingresar E-Mail o cambiar Tipo E-Mail", vbCritical, "Ingrese datos"
On Error Resume Next
                txtIN(5).SetFocus
                Exit Sub
            End If
        End If

GeneralRe: And more! Pin
hogan31-Oct-07 6:07
hogan31-Oct-07 6:07 
GeneralAnother one Pin
Burnsys224-Sep-07 8:21
Burnsys224-Sep-07 8:21 
GeneralRe: Another one Pin
Dan Neely24-Sep-07 8:30
Dan Neely24-Sep-07 8:30 
GeneralRe: Another one Pin
Burnsys224-Sep-07 8:43
Burnsys224-Sep-07 8:43 
GeneralRe: Another one Pin
Pete O'Hanlon24-Sep-07 9:42
mvePete O'Hanlon24-Sep-07 9:42 
GeneralRe: Another one Pin
blackjack215024-Sep-07 22:34
blackjack215024-Sep-07 22:34 
GeneralRe: Another one Pin
Michael Sync2-Oct-07 21:36
Michael Sync2-Oct-07 21:36 
GeneralRe: Another one Pin
Pete O'Hanlon3-Oct-07 9:48
mvePete O'Hanlon3-Oct-07 9:48 
GeneralRe: Another one Pin
SimonRigby26-Sep-07 22:37
SimonRigby26-Sep-07 22:37 
GeneralRe: Another one Pin
Russell Jones27-Sep-07 2:39
Russell Jones27-Sep-07 2:39 
GeneralRe: Another one Pin
Burnsys227-Sep-07 3:29
Burnsys227-Sep-07 3:29 
GeneralRe: Another one Pin
blackjack215024-Sep-07 22:36
blackjack215024-Sep-07 22:36 
GeneralRe: Another one Pin
Pete O'Hanlon24-Sep-07 23:12
mvePete O'Hanlon24-Sep-07 23:12 
GeneralRe: Another one Pin
Burnsys225-Sep-07 2:35
Burnsys225-Sep-07 2:35 
GeneralRe: Another one Pin
Steve Hansen26-Sep-07 23:17
Steve Hansen26-Sep-07 23:17 
GeneralRe: Another one Pin
Burnsys227-Sep-07 1:42
Burnsys227-Sep-07 1:42 
GeneralGive your boss a break, man Pin
Xiangyang Liu 刘向阳24-Sep-07 23:13
Xiangyang Liu 刘向阳24-Sep-07 23:13 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.